Astra's asymmetric word is tree-safe, with before
ProvedErdos195.astra_H_safeA 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 . The twelve-letter word
is SAFE, and it lists before . It extends the prefix and contains the target with the compulsory witness before it. Its support is not symmetric under any reflection, and is not a true root release. It is built by two fourth-term repair blocks. In the tree-witness approach to Erdős Problem 195 it shows that a finite SAFE extension of containing exists, which settles a question that symmetric completions cannot answer.
Formalization note: treeLt θ is from Definitions.Def_Erdos195_tree, and Safe is from Definitions.Def_Erdos195_defs. Positions are List.idxOf, and is padicValInt 2.
import Mathlib import Definitions.Def_Erdos195_tree
namespace Erdos195
theorem astra_H_safe :
let H : List ℤ := [0, 1, -1, 5, 3, 2, -15, -11, -5, -99, -115, -55]
(∃ θ : ℕ → ℤ → Bool, Safe (treeLt θ) H) ∧ 3 ∈ H ∧ 2 ∈ H ∧ H.idxOf 3 < H.idxOf 2 := by sorry
end Erdos195