Proposition 14 in IL for complexIface, closed bounds, one-pass phases, honest top kernels
ProvedNLogN.KFM.prop14Ph_complex_closedProposition 14 in IL for complexIface, closed bounds, one-pass phases, honest top kernels.
The following holds (Lean statement, in the scope of module Solutions.KFMProp14):
theorem NLogN.KFM.prop14Ph_complex_closed : ∃ (A : ℕ) (lam : ℝ), 0 ≤ lam ∧ lam < 1 ∧
lam = Real.logb ((100 ^ 3 : ℕ) : ℝ) (Rb P8Lift.sc P8Lift.Wc (100 ^ 3) τ50) ∧
∀ {K r Z : ℕ} {Ψ : ℕ → ℕ} {CR : ℝ},
RowHyp Isym iprog K (100 ^ 3) r Z Ψ CR τ50 → 0 ≤ CR → 1 ≤ r → Monotone Ψ →
(∀ v, Z + 2 ≤ Ψ v) → ∀ {P D S ρ : ℕ} (hρ : ρ < K), 1 ≤ S → 1 ≤ P → 1 ≤ D →
zsz ((32 * (vol (Butterfly.layerShape P K D S) * r) : ℕ) : ℤ) ≤ Z →
∃ (Cc : ℕ → IStmt HS Pp) (E dC : ℕ) (kC : ℕ → ℕ),
E ≤ D + (Nat.log (100 ^ 3) D + 1) * 100 ^ 3 * ((Nat.log (100 ^ 3) D + 1) *
NLogN.KFN.Gb P8Lift.complexIface.net.length P8Lift.sc P8Lift.Wc A ^ Nat.log (100 ^ 3) D) ∧
dC ≤ 2 * D + (Nat.log (100 ^ 3) D + 1) * 100 ^ 3 * (4 * (Nat.log (100 ^ 3) D + 1) ^ 2 *
NLogN.KFN.Gb P8Lift.complexIface.net.length P8Lift.sc P8Lift.Wc A ^ (Nat.log (100 ^ 3) D + 2)) ∧
(∀ w, (kC w : ℝ) ≤ (2 * ((((Nat.log (100 ^ 3) D + 1) * 100 ^ 3 : ℕ) : ℝ) *
((100000 + (Nat.log (100 ^ 3) D : ℝ) *
(((P8Lift.sc + P8Lift.complexIface.net.length) * alN P8Lift.Wc A + 1 : ℕ) : ℝ) +
(Nat.log (100 ^ 3) D : ℝ) *
(2 * (((P8Lift.sc + P8Lift.complexIface.net.length : ℕ) : ℝ) * CR))) *
(D : ℝ) ^ lam) + 1) + 1000000 * (((Nat.log (100 ^ 3) D * 71 : ℕ) : ℝ) + 2)) *
((vol (Butterfly.layerShape P K D S) : ℕ) : ℝ) *
(Xf r Ψ (w + 2 * D + (Nat.log (100 ^ 3) D + 1) * 100 ^ 3 *
(4 * (Nat.log (100 ^ 3) D + 1) ^ 2 *
NLogN.KFN.Gb P8Lift.complexIface.net.length P8Lift.sc P8Lift.Wc A ^ (Nat.log (100 ^ 3) D + 2)) +
20 * (Nat.log (100 ^ 3) D + 1) ^ 3 *
NLogN.KFN.Gb P8Lift.complexIface.net.length P8Lift.sc P8Lift.Wc A ^ (Nat.log (100 ^ 3) D + 2) +
2) : ℝ)) ∧
∀ (st : IState HS) (f : Fin HS → List ℤ) (zs : List GI) (l : List ℤ)
(xs : List (Fin r → ℂ)) (p w : ℕ), RecRep r p zs xs →
xs.length = vol (Butterfly.layerShape P K D S) → f 0 = gflat zs ++ l → ClN f →
NLogN.KFB.GB w zs → (∀ j (h : j < xs.length), ‖xs[j]‖ ≤ 1) →
∃ zs', RecRep r p zs' (Butterfly.prop14Proc (P := P) (S := S) hρ p
(Butterfly.tens Butterfly.Cm : Butterfly.Op (Fin D)) xs) ∧
NLogN.KFB.GB (p + 1) zs' ∧
(∀ j (h : j < (Butterfly.prop14Proc (P := P) (S := S) hρ p
(Butterfly.tens Butterfly.Cm : Butterfly.Op (Fin D)) xs).length)
(h' : j < (Butterfly.layerH P K D S ρ hρ xs).length), ∀ c,
‖(Butterfly.prop14Proc (P := P) (S := S) hρ p
(Butterfly.tens Butterfly.Cm : Butterfly.Op (Fin D)) xs)[j] c -
(Butterfly.layerH P K D S ρ hρ xs)[j] c‖ < Real.sqrt 2 * 2⁻¹ ^ p) ∧
IRuns Isym iprog (p14Ph P K D S ρ r E dC Cc w) (encK st f)
(encK st (Function.update f 0 (gflat zs' ++ l)))
(kC w + cWrapPh P K D S r E
(zsz ((16 * (vol (Butterfly.layerShape P K D S) * r) : ℕ) : ℤ)) w dC)
Context. The lemma belongs to the part KFM 4: Proposition 14 in IL for complexIface with a D-free wrapper and top-kernel cost: KFN.prop14_il_complex_closed with two cost fixes (MACHINE-PLAN.md item 4, issues (A), (B)):
the phase diagonals are one pass each (KFM.p14Ph, KFMPhase), and the top kernels of the
C-layer are charged 10^6 (71 ⌊log_m D⌋ + 2) instead of 10^6 (D + 2) (KFM.cLayerT).
Formalization Note. This lemma belongs to the item-language (IL) layer of the integer-multiplication-kappa campaign: tape-level programs (register programs over 64 item stacks of the NLogN multitape framework, definition bundles IntMul_HvdH_M_Defs1–IntMul_HvdH_M_Defs8) that implement the data-movement primitives of the OpenAI preprint Integer multiplication below (field moves, row split/merge, shifts, the uniform Proposition 11 interchange, Lemma 12 with fine -per-element costs, Gaussian record primitives, Proposition 14 pieces) with exact list denotations from the array-model bundles IntMul_Kappa_K_Defs* and explicit cost bounds. All names refer to the definition bundles up to IntMul_Kappa_K_Defs20.
-- OpenAI-preprint / κ-improvement development (integer-multiplication-kappa), generated by skeleton subtraction.
import Definitions.Def_IntMul_Kappa_K_Defs20
set_option autoImplicit false
set_option relaxedAutoImplicit false
set_option maxHeartbeats 1000000
set_option linter.unusedSimpArgs false
set_option linter.unusedVariables false
set_option linter.unusedSectionVars false
open NLogN
open NLogN.KFM
open IntMul RS AModel KIL KFD KFB KFG KFH KFN Complex P8Lift Butterfly
variable {Pp : ℕ} {Isym : List Sym} {iprog : Fin Pp → IStmt HS Pp}
theorem NLogN.KFM.prop14Ph_complex_closed : ∃ (A : ℕ) (lam : ℝ), 0 ≤ lam ∧ lam < 1 ∧
lam = Real.logb ((100 ^ 3 : ℕ) : ℝ) (Rb P8Lift.sc P8Lift.Wc (100 ^ 3) τ50) ∧
∀ {K r Z : ℕ} {Ψ : ℕ → ℕ} {CR : ℝ},
RowHyp Isym iprog K (100 ^ 3) r Z Ψ CR τ50 → 0 ≤ CR → 1 ≤ r → Monotone Ψ →
(∀ v, Z + 2 ≤ Ψ v) → ∀ {P D S ρ : ℕ} (hρ : ρ < K), 1 ≤ S → 1 ≤ P → 1 ≤ D →
zsz ((32 * (vol (Butterfly.layerShape P K D S) * r) : ℕ) : ℤ) ≤ Z →
∃ (Cc : ℕ → IStmt HS Pp) (E dC : ℕ) (kC : ℕ → ℕ),
E ≤ D + (Nat.log (100 ^ 3) D + 1) * 100 ^ 3 * ((Nat.log (100 ^ 3) D + 1) *
NLogN.KFN.Gb P8Lift.complexIface.net.length P8Lift.sc P8Lift.Wc A ^ Nat.log (100 ^ 3) D) ∧
dC ≤ 2 * D + (Nat.log (100 ^ 3) D + 1) * 100 ^ 3 * (4 * (Nat.log (100 ^ 3) D + 1) ^ 2 *
NLogN.KFN.Gb P8Lift.complexIface.net.length P8Lift.sc P8Lift.Wc A ^ (Nat.log (100 ^ 3) D + 2)) ∧
(∀ w, (kC w : ℝ) ≤ (2 * ((((Nat.log (100 ^ 3) D + 1) * 100 ^ 3 : ℕ) : ℝ) *
((100000 + (Nat.log (100 ^ 3) D : ℝ) *
(((P8Lift.sc + P8Lift.complexIface.net.length) * alN P8Lift.Wc A + 1 : ℕ) : ℝ) +
(Nat.log (100 ^ 3) D : ℝ) *
(2 * (((P8Lift.sc + P8Lift.complexIface.net.length : ℕ) : ℝ) * CR))) *
(D : ℝ) ^ lam) + 1) + 1000000 * (((Nat.log (100 ^ 3) D * 71 : ℕ) : ℝ) + 2)) *
((vol (Butterfly.layerShape P K D S) : ℕ) : ℝ) *
(Xf r Ψ (w + 2 * D + (Nat.log (100 ^ 3) D + 1) * 100 ^ 3 *
(4 * (Nat.log (100 ^ 3) D + 1) ^ 2 *
NLogN.KFN.Gb P8Lift.complexIface.net.length P8Lift.sc P8Lift.Wc A ^ (Nat.log (100 ^ 3) D + 2)) +
20 * (Nat.log (100 ^ 3) D + 1) ^ 3 *
NLogN.KFN.Gb P8Lift.complexIface.net.length P8Lift.sc P8Lift.Wc A ^ (Nat.log (100 ^ 3) D + 2) +
2) : ℝ)) ∧
∀ (st : IState HS) (f : Fin HS → List ℤ) (zs : List GI) (l : List ℤ)
(xs : List (Fin r → ℂ)) (p w : ℕ), RecRep r p zs xs →
xs.length = vol (Butterfly.layerShape P K D S) → f 0 = gflat zs ++ l → ClN f →
NLogN.KFB.GB w zs → (∀ j (h : j < xs.length), ‖xs[j]‖ ≤ 1) →
∃ zs', RecRep r p zs' (Butterfly.prop14Proc (P := P) (S := S) hρ p
(Butterfly.tens Butterfly.Cm : Butterfly.Op (Fin D)) xs) ∧
NLogN.KFB.GB (p + 1) zs' ∧
(∀ j (h : j < (Butterfly.prop14Proc (P := P) (S := S) hρ p
(Butterfly.tens Butterfly.Cm : Butterfly.Op (Fin D)) xs).length)
(h' : j < (Butterfly.layerH P K D S ρ hρ xs).length), ∀ c,
‖(Butterfly.prop14Proc (P := P) (S := S) hρ p
(Butterfly.tens Butterfly.Cm : Butterfly.Op (Fin D)) xs)[j] c -
(Butterfly.layerH P K D S ρ hρ xs)[j] c‖ < Real.sqrt 2 * 2⁻¹ ^ p) ∧
IRuns Isym iprog (p14Ph P K D S ρ r E dC Cc w) (encK st f)
(encK st (Function.update f 0 (gflat zs' ++ l)))
(kC w + cWrapPh P K D S r E
(zsz ((16 * (vol (Butterfly.layerShape P K D S) * r) : ℕ) : ℤ)) w dC) := by sorry