Split of `N` (truncation, report L8) (round six, `nsplit`)
ProvedJ6Seg.nsplitSplit of N (truncation, report L8): N x = M x + Δ x + drop,
|drop| ≤ 4 e^{-πα² w(w+1)} ‖x‖.
The following holds (Lean statement, in the scope of module Solutions.J6SegGlob):
theorem J6Seg.nsplit (hB : BlocksOK s t B) (hs : 0 < s) (hst : s ≤ t) (hα : 2 ≤ α)
(hx1 : 1 ≤ xθ s t α) (x : ℕ → ℝ) (X : ℝ) (hX : ∀ k < s, |x k| ≤ X) {i : ℕ} (hi : i < s) :
|NxR s t α x i - (Mv (blS B) (MxG s t α) x i + Dv (Hset B) (col B.s) (cfG s t α) x i)| ≤
4 * exp (-(π * (α : ℝ) ^ 2 * (B.w * (B.w + 1)))) * X
Context. Segmented inverse (S2): the resampling system split into blocks, coupling and tail
For a valid block structure (BlocksOK: blocks are wrap-free runs [st i, st i + len i) that
partition [0, s), coupling width w ≤ s):
MxG(the block part ofN, entriesδ_{ik} + e_{i,k-i}) andMiG(its exact block inverseD T⁻¹ D⁻¹from the q-LU) satisfyM M⁻¹ = I(hinvG, viaeEx_recentre,MF_mul_MinvF);- row sums:
‖M - I‖, ‖Δ‖ ≤ 2^{-α²θ}(rowM,rowD), hence‖M⁻¹‖ ≤ 8/7whenα²θ ≥ 3; - every coupling column lies in the capacitance set
Jlist(col_mem); nsplit:(N x)_i = (M x)_i + (Δ x)_i + drop,|drop| ≤ 4 e^{-πα² w(w+1)} ‖x‖;nearN:‖N d‖ ≤ ρ ⇒ ‖d‖ ≤ 8ρ/7(‖N - I‖ ≤ 1/8).
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_R6_Defs3
set_option autoImplicit false
set_option relaxedAutoImplicit false
set_option maxHeartbeats 1000000
open J6Seg
open Finset Real
open IntMul.HvdH IntMul.HvdH.JPf J6QLU
variable {s t α : ℕ} {B : Blocks}
theorem J6Seg.nsplit (hB : BlocksOK s t B) (hs : 0 < s) (hst : s ≤ t) (hα : 2 ≤ α)
(hx1 : 1 ≤ xθ s t α) (x : ℕ → ℝ) (X : ℝ) (hX : ∀ k < s, |x k| ≤ X) {i : ℕ} (hi : i < s) :
|NxR s t α x i - (Mv (blS B) (MxG s t α) x i + Dv (Hset B) (col B.s) (cfG s t α) x i)| ≤
4 * exp (-(π * (α : ℝ) ^ 2 * (B.w * (B.w + 1)))) * X := by sorry