Exact safety criterion for extended by one even target : reflection closure
ProvedErdos195.prop3_charFix and the -adic total order on given by iff and the -th two's-complement digit of equals , where . 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. Let with , and let be a word that begins with , contains , and whose only even letters are and . Let be the word of odd letters of (in order) rescaled by , and . Then is -safe if and only if
So, for a single even target, safety reduces exactly to a one-digit-lower problem for the odd letters together with closure of the odd letters placed before under the reflection . This sharpens the necessary conditions , before (Ho-style constructions of -AP-free permutations of , Erdős Problem 195).
Formalization note: Safe, epsLt are from Definitions.Def_Erdos195_defs; "begins with " is [0, 1] <+: Q; "before" is comparison of List.idxOf; is (Q.filter (· % 2 = 1)).map (fun x => (x - 1) / 2); is padicValInt 2.
import Mathlib import Definitions.Def_Erdos195_defs
namespace Erdos195
theorem prop3_char (ε : ℕ → Bool) (Q : List ℤ) (hpre : [0, 1] <+: Q)
(t : ℤ) (ht0 : 0 < t) (ht4 : 4 ∣ t) (htQ : t ∈ Q)
(hev : ∀ x ∈ Q, x % 2 = 0 → x = 0 ∨ x = t) :
Safe (epsLt ε) Q ↔
ε 0 = true ∧ ε (padicValInt 2 t) = true ∧
Safe (epsLt (fun k => ε (k + 1)))
((Q.filter (fun x => decide (x % 2 = 1))).map (fun x => (x - 1) / 2)) ∧
∀ y ∈ Q, y % 2 = 1 → Q.idxOf y < Q.idxOf t →
2 * t - y ∈ Q ∧ Q.idxOf (2 * t - y) < Q.idxOf t := by sorry
end Erdos195