Restricted absorption: a mod-32 sparse SAFE block absorbs any admissible target with letters
ProvedErdos195.restricted_absorptionA 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 let satisfy . Then
is SAFE, where and are taken entrywise in the original order. No size condition on is needed, may be empty, and SAFE-ness of itself is not assumed (it follows). This is the mod-32 form of GPT Astra's uniform finite absorption theorem: an infinite class of arbitrarily long SAFE words absorbs every target of a residue class with exactly new entries.
import Mathlib import Definitions.Def_Erdos195_tree
namespace Erdos195
theorem restricted_absorption (a b y r : ℤ) (A : List ℤ)
(hA : ∃ θ : ℕ → ℤ → Bool, Safe (treeLt θ) A)
(hr : r % 2 = 1) (hAr : ∀ x ∈ A, x % 32 = r % 32)
(ha : a % 2 = 0) (hb : b % 4 = (r + 2) % 4)
(hy : y ∉ [a] ++ A ++ [b]) (hc : (2 * y - b) % 32 = (r + 16) % 32) :
∃ θ : ℕ → ℤ → 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