Construct short single-label exchange routes for alternating complements in both parity phases
ProvedHirsch.alternating_complement_exchange_routesLet h,k enumerate two r-element subsets of the m ordered labels 0,...,m-1. Assume each enumeration is strictly increasing and its values have alternating parity, with either starting parity permitted independently. Construct a route of length at most 2r+1 between their label sets. Every intermediate set has r labels in the same universe and an explicitly witnessed increasing alternating-parity enumeration. Every successive pair is distinct and has exactly r-1 common labels. The selected complements have cardinality m-r, are distinct at every step, and share exactly m-r-1 labels. The complete path is a conclusion, not a hypothesis; stationary transitions are removed. The cases r=0, r=m, m=0, and equal endpoints are included, without a shortestness assertion. This is an order-only combinatorial route theorem, not yet a formally composed original-polytope route or unrestricted Polynomial Hirsch theorem.
import Mathlib set_option autoImplicit false
theorem Hirsch.alternating_complement_exchange_routes (m r : ℕ) (h k : Fin r → ℕ)
(hh : StrictMono h) (hk : StrictMono k)
(hhm : ∀ i, h i < m) (hkm : ∀ i, k i < m)
(hphase : ∃ b : ℕ, b < 2 ∧ ∀ i, h i % 2 = (b + i.val) % 2)
(kphase : ∃ b : ℕ, b < 2 ∧ ∀ i, k i % 2 = (b + i.val) % 2) :
∃ L : ℕ, L ≤ 2*r+1 ∧ ∃ p : ℕ → Finset ℕ,
p 0 = Finset.univ.image h ∧ p L = Finset.univ.image k ∧
(∀ t, t ≤ L → p t ⊆ Finset.range m ∧ (p t).card = r ∧
(Finset.range m \ p t).card = m-r ∧
∃ a : Fin r → ℕ, StrictMono a ∧ (∀ i, a i < m) ∧
(∃ b : ℕ, b < 2 ∧ ∀ i, a i % 2 = (b + i.val) % 2) ∧
Finset.univ.image a = p t) ∧
(∀ t, t < L → p t ≠ p (t+1) ∧ (p t ∩ p (t+1)).card + 1 = r ∧
(Finset.range m \ p t) ≠ (Finset.range m \ p (t+1)) ∧
((Finset.range m \ p t) ∩ (Finset.range m \ p (t+1))).card + 1 = m-r) := by sorry