rt_ev (KFV §35: phase 1 of the layout (the tops of the long axes) as a fixed IL loop)
ProvedNLogN.KFV.rt_evThe following holds (Lean statement, in the scope of module Solutions.KFV32LayLoop1):
theorem NLogN.KFV.rt_ev {s : IState HS} {f : Fin HS → List ℤ} {r : Fin HS} {v : ℤ} {B : ℕ} (h : RT s r v)
(hf : f r = []) (hv : zsz v ≤ B) : EV (encK s f) B (.reg r) v
Context. The lemma belongs to the part KFV §35: phase 1 of the layout (the tops of the long axes) as a fixed IL loop: The long-axis flags are the bits of the mask register gMk (mkOf). Iteration k < D of a
unary loop moves the bit at position rank + flag·k(ℓ-1) to position rank (mvB), then
rank += flag, k += 1 (registers gRk, gI). ph1_ok: the loop computes
runArr 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)
theorem NLogN.KFV.rt_ev {s : IState HS} {f : Fin HS → List ℤ} {r : Fin HS} {v : ℤ} {B : ℕ} (h : RT s r v)
(hf : f r = []) (hv : zsz v ≤ B) : EV (encK s f) B (.reg r) v := by sorry