Round-six lemma `zipK`

Proved

NLogN.KIL.Sp.zipK

by xuanji · Oct 20, 2026 · Mathlib 0df444a (Lean v4.33.1)

complexity-theoryinteger-multiplicationkappa-improvement

An 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.KIL3Ops):

theorem NLogN.KIL.Sp.zipK {A Z O C : Fin HS} (hAZ : A ≠ Z) (hAO : A ≠ O) (hZO : Z ≠ O) (hAC : A ≠ C)
    (hZC : Z ≠ C) (hOC : O ≠ C) (hA5 : A.val < 56) (hZ5 : Z.val < 56) (hO5 : O.val < 56)
    (hC5 : C.val < 56) (s : IState HS) (f : Fin HS → List ℤ) (a b la lb : List ℤ)
    (hfA : f A = a ++ la) (hfZ : f Z = b ++ lb) (hab : a.length = b.length)
    (ha : Bits a) (hb : Bits b) (hfC : f C = []) (Bb : ℕ) (hB : zsz ((2 * 2 : ℕ) : ℤ) ≤ Bb)
    (hn : zsz (a.length : ℤ) ≤ Bb) :
    Sp (zipK A Z O C a.length) (encK s f)
      (encK s (Function.update (Function.update (Function.update f A la) Z lb) O
        ((List.zipWith xr a b).reverse ++ f O))) (cZip a.length Bb)

Context. KIL3: generic stack operations on managed states

Element-wise loops used by the one-stack network: dupK (copy n integers to two stacks), dropK (discard n integers), zeroK (push n zeros), zipK (pointwise addition mod 2 of two stacks). All are stated on managed states encK s f.

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*).

Preamble

-- 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 Mathlib
import Definitions.Def_IntMul_HvdH_M_Defs8
import Definitions.Def_IntMul_MultitapeModel

set_option autoImplicit false
set_option relaxedAutoImplicit false
set_option maxHeartbeats 1000000

open NLogN NLogN.KIL
open IntMul NLogN.RS AModel

Formal statement

theorem NLogN.KIL.Sp.zipK {A Z O C : Fin HS} (hAZ : A ≠ Z) (hAO : A ≠ O) (hZO : Z ≠ O) (hAC : A ≠ C)
    (hZC : Z ≠ C) (hOC : O ≠ C) (hA5 : A.val < 56) (hZ5 : Z.val < 56) (hO5 : O.val < 56)
    (hC5 : C.val < 56) (s : IState HS) (f : Fin HS → List ℤ) (a b la lb : List ℤ)
    (hfA : f A = a ++ la) (hfZ : f Z = b ++ lb) (hab : a.length = b.length)
    (ha : Bits a) (hb : Bits b) (hfC : f C = []) (Bb : ℕ) (hB : zsz ((2 * 2 : ℕ) : ℤ) ≤ Bb)
    (hn : zsz (a.length : ℤ) ≤ Bb) :
    Sp (zipK A Z O C a.length) (encK s f)
      (encK s (Function.update (Function.update (Function.update f A la) Z lb) O
        ((List.zipWith xr a b).reverse ++ f O))) (cZip a.length Bb) := by sorry

Source

S. Jain, round-six networks for the integer-multiplication κ-improvement campaign (https://github.com/Swapnil-jain/integer-mult-kappa, commit 5868dc7) and D. Colkitt, integer-mult-bounds (https://github.com/CrocSwap/integer-mult-bounds); target `IntMul.Kappa.jain_round6_framework`. Lean declaration `NLogN.KIL.Sp.zipK`, Solutions/KIL3Ops.lean (lines 192–272) of the round-six development.

View graph