Phase 1 of the layout, backwards, uniform
ProvedNLogN.KFV.ph1R_okPhase 1 of the layout, backwards, uniform.
The following holds (Lean statement, in the scope of module Solutions.KFV38LayOut1):
theorem NLogN.KFV.ph1R_ok {L : LP} {mk p W B : ℕ} (hLn : L.n = nLong D long + D * (ℓ - 1)) (hLD : L.D = D)
(hLnl : L.nL = nLong D long) (hmk : mk = mkOf (flOf D long)) (hℓ : 2 ≤ ℓ)
(hB : L.n + ℓ + 5 ≤ B) :
LayerU (r := 2 ^ ℓ) I iprog (fun s => LRg s L mk W ∧ L.ℓ = ℓ) ph1R
(runArrR L.n 0 (ops1 D ℓ long)) (2 ^ L.n) p W (cPh1R D ℓ long L.n W B)
Context. The lemma belongs to the part KFV §41: phase 1 of the layout, backwards, as a fixed IL loop: Iteration j < D (k = D-1-j): the registers gI = k+1, gRk = rank(k+1) are
first decremented (gI ← gI - 1, gRk ← gRk - flag), then the inverse move mvF puts the bit at
position rank back to rank + flag·k(ℓ-1). ph1R_ok: the loop computes
runArrR n 0 (ops1 …).
Formalization Note. This lemma belongs to layer 5 of the Lean formalization (integer-multiplication-kappa campaign) of the OpenAI preprint Integer multiplication below : the uniform item-language machine (register programs over the NLogN multitape framework) assembling the Proposition 14 / Lemma 13 / Proposition 18 pieces, the resampling and chirp stages and the cost recurrences into one fixed machine, culminating in NLogN.KFTop.kappa_bound : IntMul.KappaBound (1 / 2 ^ 182) (the bound of Def_IntMul_MultitapeModel). All names refer to the definition bundles up to IntMul_Kappa_K_Defs33.
-- OpenAI-preprint / κ-improvement development (integer-multiplication-kappa), generated by skeleton subtraction.
import Definitions.Def_IntMul_Kappa_K_Defs33
set_option autoImplicit false
set_option relaxedAutoImplicit false
set_option maxHeartbeats 1000000
set_option linter.unusedSectionVars false
set_option linter.unusedSimpArgs false
set_option linter.unusedVariables false
open NLogN
open NLogN.KFV
open IntMul RS KIL KFD KFB KFH KFC KFT Synth AModel AModelL12
variable {Pp : ℕ} {I : List Sym} {iprog : Fin Pp → IStmt HS Pp}
variable (D ℓ K : ℕ) [NeZero D] (long : Fin D → Bool)
set_option maxHeartbeats 2000000
theorem NLogN.KFV.ph1R_ok {L : LP} {mk p W B : ℕ} (hLn : L.n = nLong D long + D * (ℓ - 1)) (hLD : L.D = D)
(hLnl : L.nL = nLong D long) (hmk : mk = mkOf (flOf D long)) (hℓ : 2 ≤ ℓ)
(hB : L.n + ℓ + 5 ≤ B) :
LayerU (r := 2 ^ ℓ) I iprog (fun s => LRg s L mk W ∧ L.ℓ = ℓ) ph1R
(runArrR L.n 0 (ops1 D ℓ long)) (2 ^ L.n) p W (cPh1R D ℓ long L.n W B) := by sorry