bapP0 is defined and its cost is bounded by bap0Cost

bapP0 is defined and its cost is bounded by bap0Cost.

The following holds (Lean statement, in the scope of module Solutions.KFMBap0):

theorem NLogN.KFM.bapP0_okc (M : MulSpec) (mm Φ B : ℕ) (hM : MulBnd M mm Φ) (p s t α kb : ℕ) (hs : 0 < s)
    (hst : s ≤ t) (V : List (ℤ × ℤ))
    (hV : V.length = t) (s0 : IState HS) (RU : List Item)
    (hU : s0.G CU = gints V ++ RU) (hP : BParams s0 p s t α kb)
    (hVm : ∀ z ∈ V, zsz z.1 ≤ mm ∧ zsz z.2 ≤ mm) (hmm : 1 ≤ mm) (hmB : 2 * mm ≤ B)
    (hAcc : (2 * HvdH.eWidth p α + 2) * 2 ^ (2 * mm) ≤ 2 ^ B) (hpB : p + 1 ≤ B)
    (hT : zsz ((t + 1 : ℕ) : ℤ) ≤ B)
    (hSW : zsz (((s + 1) * (2 * HvdH.eWidth p α + 1) : ℕ) : ℤ) ≤ B)
    (hJ : zsz (HvdH.jIter p s t α : ℤ) ≤ B)
    (hWE : ∀ W ∈ eTab p s t α, ∀ y ∈ W, zsz y ≤ mm)
    (hWD : ∀ W ∈ dTab p s t α, ∀ y ∈ W, zsz y ≤ mm)
    (hv : ∀ j ≤ HvdH.jIter p s t α, ∀ z ∈ vL p s t α (cselL s t V) j,
      zsz z.1 ≤ mm ∧ zsz z.2 ≤ mm)
    (hac : ∀ j ≤ HvdH.jIter p s t α, ∀ z ∈ NLogN.Rsp.accL p s t α (cselL s t V) j,
      zsz z.1 ≤ B ∧ zsz z.2 ≤ B)
    (hJm : ∀ z ∈ japL p s t α (cselL s t V), zsz z.1 ≤ mm ∧ zsz z.2 ≤ mm) :
    bapP0.ok M s0 ∧ bapP0.cost M s0 ≤ bap0Cost p s t α mm Φ B

Context. The lemma belongs to the part Item 12 (machine side, part 1): the permutation-free B̃₀ slice program.

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 $n\log n$ (field moves, row split/merge, shifts, the uniform Proposition 11 interchange, Lemma 12 with fine $O(1)$-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_Defs18.