Four-class restricted absorption, exceptional case (7b−6y ∈ A): reorder the reflections with 4y−3b last
ProvedErdos195.restricted_absorption_mod8_exceptionalA tree witness defines a strict total order on (milestone framework). A finite word of integers is SAFE for if the sequence "letters of in order, then all remaining integers in -order" has no monotone 4-term arithmetic progression. Theorem (exceptional case of the four-class absorption theorem). Let be odd, let be a list of integers all , let be even and , and put . Let and with , and assume both and are SAFE (for some witnesses). Suppose but . Put and . Then there is a duplicate-free list whose entries are exactly the elements of other than , such that
is SAFE for some tree witness.
This is the exceptional case () of GPT 6 Astra's four-class restricted absorption theorem. The non-exceptional case is milestone #122. Together they cover Astra's full critical exclusion . When , the closed-form batch fails because lies in the reflection block. The fix: order the reflection set safely with last (specified-last-entry ordering, milestone #133) and put before . The proof uses the two-child decomposition at the root (the even letters are ; odd-to- pairs close by reflection about ) and at level 1 of the odd class. In the odd class, every cross 3-AP gets its fourth term in time; the only new case is , whose fourth term now comes before , and , whose fourth term is old. The hypothesis rules out the cross triple , whose fourth term would be the delayed .
import Mathlib import Definitions.Def_Erdos195_tree
namespace Erdos195
theorem restricted_absorption_mod8_exceptional (a b y r : ℤ) (A : List ℤ)
(hr : r % 2 = 1) (hAr : ∀ x ∈ A, x % 8 = r % 8)
(ha : a % 2 = 0) (hb : b % 4 = (r + 2) % 4)
(hy : y ∉ [a] ++ A ++ [b]) (hcQ : 2 * y - b ∉ [a] ++ A ++ [b]) (hc : (2 * y - b) % 8 = r % 8)
(hAc : ∃ θ : ℕ → ℤ → Bool, Safe (treeLt θ) (A ++ [2 * y - b]))
(hcA : ∃ θ : ℕ → ℤ → Bool, Safe (treeLt θ) ([2 * y - b] ++ A))
(h7 : 7 * b - 6 * y ∈ A) (h10 : 10 * y - 9 * b ∉ A) :
∃ L : List ℤ, L.Nodup ∧
(∀ x, x ∈ L ↔ (x = 12 * y - 11 * b ∨ ∃ v ∈ A, x = 10 * y - 10 * b + v) ∧ x ≠ 4 * y - 3 * b) ∧
∃ θ : ℕ → ℤ → Bool, Safe (treeLt θ)
(([a] ++ A ++ [b]) ++ ([2 * y - b] ++ A.map (fun x => 2 * y - x) ++ [y] ++ L ++
[6 * y - 5 * b, 4 * y - 3 * b])) := by sorry
end Erdos195