Round-six lemma `cnjCp_runs`
ProvedNLogN.KFZ.cnjCp_runsAn auxiliary lemma of the round-six development, published as a separate node because its proof is long or shared.
The following holds (Lean statement, in the scope of module Solutions.KFZPass):
theorem NLogN.KFZ.cnjCp_runs (H W : Fin HS) (hHU : H ≠ pU) (hWU : W ≠ pU) (hHW : H ≠ W) (hH : NC H)
(hW : NC W) (hHX : H ≠ nX) (hWX : W ≠ nX) (A : List GI) (B : ℕ) (hB : GB B A)
(s : IState HS) (RH LX LX2 : List Item) (h0 : s.G H = ints (gflat A) ++ RH)
(hX : s.G nX = .int (A.length : ℤ) :: LX)
(hX2 : s.G nX2 = .int ((2 * A.length : ℕ) : ℤ) :: LX2) :
IRuns I iprog (cnjCp H W) s (s.upd W (ints (gflat (A.map NLogN.KFZ.gconj)) ++ s.G W))
(cCnj A.length B)
Context. KFZ Pass: list moves, conjugate copies and record replication (uniform counts)
All counts are run-time data (rptX, the count copied from a register). Every spec is
frame-preserving: only the named stacks change.
mvX_runs: moveLfromXtoY(reversed);mv2_runs: move throughpU(order kept);dropX_runs: dropL.cnjCp_runs: push the conjugate of the Gaussian list onHontoW(order kept),Hunchanged; counts2NonnX2,NonnX.replP_runs: pushNcopies of the Gaussian list onHontoW; countsNonrN,2|τ|onrN2.
Formalization Note. Part of the Lean formalization of the round-six κ-improvement (integer-multiplication-kappa campaign, target IntMul.Kappa.jain_round6_framework). The statement is copied verbatim from the Lean development; the platform node carries the same declaration name. Definitions it mentions live in the IntMul_Kappa_R6_Defs* bundles (on top of the published κ bundles IntMul_Kappa_K_Defs*).
-- Round-six κ development (integer-multiplication-kappa), generated by skeleton subtraction.
import Definitions.Def_IntMul_Kappa_K_Defs33
import Definitions.Def_IntMul_Kappa_R6_Defs1
import Definitions.Def_IntMul_MultitapeModel
import Mathlib
import Definitions.Def_IntMul_HvdH_M_Defs8
import Definitions.Def_IntMul_HvdH_Numeric
import Definitions.Def_IntMul_HvdH_ExpApprox
import Definitions.Def_IntMul_HvdH_Twiddle
import Definitions.Def_IntMul_HvdH_RealExp
import Definitions.Def_IntMul_HvdH_SApprox
import Definitions.Def_IntMul_HvdH_MachineRef
import Definitions.Def_IntMul_HvdH_DiagApprox
import Definitions.Def_IntMul_HvdH_EApprox
import Definitions.Def_IntMul_HvdH_JApprox
import Definitions.Def_IntMul_HvdH_BApprox
import Definitions.Def_IntMul_HvdH_FPApprox
set_option autoImplicit false
set_option relaxedAutoImplicit false
set_option maxHeartbeats 1000000
open NLogN NLogN.KFZ
open IntMul NLogN.KIL NLogN.KFB NLogN.KFC NLogN.KFT NLogN.KFM
variable {P : ℕ} {I : List Sym} {iprog : Fin P → IStmt HS P}
theorem NLogN.KFZ.cnjCp_runs (H W : Fin HS) (hHU : H ≠ pU) (hWU : W ≠ pU) (hHW : H ≠ W) (hH : NC H)
(hW : NC W) (hHX : H ≠ nX) (hWX : W ≠ nX) (A : List GI) (B : ℕ) (hB : GB B A)
(s : IState HS) (RH LX LX2 : List Item) (h0 : s.G H = ints (gflat A) ++ RH)
(hX : s.G nX = .int (A.length : ℤ) :: LX)
(hX2 : s.G nX2 = .int ((2 * A.length : ℕ) : ℤ) :: LX2) :
IRuns I iprog (cnjCp H W) s (s.upd W (ints (gflat (A.map NLogN.KFZ.gconj)) ++ s.G W))
(cCnj A.length B) := by sorry