Four-class restricted absorption: a SAFE block in one odd class mod 8 absorbs a target with letters
ProvedErdos195.restricted_absorption_mod8A tree witness is a function on the nodes , , of the binary tree of residues. For distinct integers with , put iff . A finite word of integers is -safe if the sequence "the letters of in order, then all remaining integers in -order" contains no monotone -term arithmetic progression. is SAFE if it is -safe for some tree witness . Let be a SAFE word all of whose entries are congruent modulo to an odd integer . Let be even and , and put . Let be such that , , both and are SAFE, and . Then
is SAFE, where and are entrywise images in the original order. This is GPT Astra's mod-8 generalization of the mod-32 absorption theorem: the block may occupy all four residue classes modulo inside one odd class modulo . No size condition is needed and may be empty.
import Mathlib import Definitions.Def_Erdos195_tree
namespace Erdos195
theorem restricted_absorption_mod8 (a b y r : ℤ) (A : List ℤ)
(hA : ∃ θ : ℕ → ℤ → Bool, Safe (treeLt θ) A)
(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) :
∃ θ : ℕ → ℤ → Bool, Safe (treeLt θ)
(([a] ++ A ++ [b]) ++ ([2 * y - b] ++ A.map (fun x => 2 * y - x) ++ [y, 12 * y - 11 * b] ++
A.map (fun x => 10 * y - 10 * b + x) ++ [6 * y - 5 * b])) := by sorry
end Erdos195