The decrement of the loop index
ProvedNLogN.KFV.stepD_spThe decrement of the loop index.
The following holds (Lean statement, in the scope of module Solutions.KFV39LayOut2):
theorem NLogN.KFV.stepD_sp (s : IState HS) (f : Fin HS → List ℤ) {k B : ℕ} (hI : f NLogN.KFV.gI = [((k + 1 : ℕ) : ℤ)])
(hB : k + 2 ≤ B) :
KIL.Sp stepD (encK s f) (encK s (Function.update f NLogN.KFV.gI [((k : ℕ) : ℤ)]))
((((Ex.reg NLogN.KFV.gI).add (Ex.lit (-1))).size + 1) * 10 ^ 7 * (B + 2) ^ 2)
Context. The lemma belongs to the part KFV §42: phase 2 of the layout, backwards, as a fixed IL loop: Iteration j < b D (k = bD-1-j): gI ← gI - 1 (from k+1 to k), then the inverse move mvF
puts the bit at nL + k back to nL + k + δ₂(k). ph2R_ok: the loop computes
runArrR n 0 (ops2 …).
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)
theorem NLogN.KFV.stepD_sp (s : IState HS) (f : Fin HS → List ℤ) {k B : ℕ} (hI : f NLogN.KFV.gI = [((k + 1 : ℕ) : ℤ)])
(hB : k + 2 ≤ B) :
KIL.Sp stepD (encK s f) (encK s (Function.update f NLogN.KFV.gI [((k : ℕ) : ℤ)]))
((((Ex.reg NLogN.KFV.gI).add (Ex.lit (-1))).size + 1) * 10 ^ 7 * (B + 2) ^ 2) := by sorry