Root releases after inserting into
ProvedErdos195.W8_bridge_safe_releasedA 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. An in-order pair of ( occurs before ) is open if and ; it lies at the node , , and forces there to equal . A root pair is one with odd (node ); is a true root release if every open root pair has even second entry, i.e. no open pair forces the value at the root. Let and with . Insert into after the last even power and append , :
Each is -safe for some tree witness and is a true root release. The new odd letter is grounded through the bridge , which closes the pair via . These are the analogues of for .
Formalization note: treeLt θ is from Definitions.Def_Erdos195_tree; Safe, bitOne are from Definitions.Def_Erdos195_defs. Positions are List.idxOf; the release property is stated as: every open in-order pair with has .
import Mathlib import Definitions.Def_Erdos195_tree
namespace Erdos195
theorem W8_bridge_safe_released :
∀ i ∈ ([2, 4, 6, 8, 10, 12] : List ℕ),
let x : ℤ := 4 * 3 ^ 11 + 3 ^ (i - 2)
let Q : List ℤ := [0, 3 ^ 0, 3 ^ 8, 3 ^ 4, 3 ^ 12, 3 ^ 2, 3 ^ 10, 3 ^ 6, x, 3 ^ 11, 3 ^ 3, 3 ^ 7, 3 ^ 9, 3 ^ 1, 3 ^ 5, 2 * 3 ^ 13, 3 ^ 13, 6 * x, 3 * x]
(∃ θ : ℕ → ℤ → Bool, Safe (treeLt θ) Q) ∧
∀ a b : ℤ, a ∈ Q → b ∈ Q → Q.idxOf a < Q.idxOf b → 2 * b - a ∉ Q → 3 * b - 2 * a ∉ Q →
(b - a) % 2 = 1 → b % 2 = 0 := by sorry
end Erdos195