The word is a tree-safe true root release
ProvedErdos195.W16_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. The -letter word is -safe for some tree witness and is a true root release. It consists of ; the even powers , , in the order ; the odd powers in the order ; then and . This is the case of the bit-reversal family .
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 W16_safe_released :
let Q : List ℤ := [0, 1, 43046721, 6561, 282429536481, 81, 3486784401, 531441, 22876792454961, 9, 387420489, 59049, 2541865828329, 729, 31381059609, 4782969, 7625597484987, 177147, 1162261467, 27, 94143178827, 2187, 14348907, 847288609443, 19683, 129140163, 3, 10460353203, 243, 1594323, 137260754729766, 68630377364883]
(∃ θ : ℕ → ℤ → 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