Strong -step theorem for spindles
ProvedHirsch.strong_dstep_spindle(Santos, strong -step theorem for spindles.) Let be a nonempty bounded H-polytope described by inequalities, with . Suppose are extreme points of such that every describing inequality is tight at exactly one of or (a spindle with apices ), and there is no padded vertex-edge walk of length from to (the spindle has length at least ).
Then there exist a dimension and a nonempty bounded H-polytope described by exactly inequalities such that
In particular has facets in dimension , so the Hirsch bound is , and is a counterexample to the -step conjecture, hence also to the Hirsch conjecture.
The construction is Santos's one-point suspension / strong -step map: from a -spindle with facets and length one obtains an -spindle with facets and length at least . Here yields length at least , so the diameter exceeds .
Formalization Note The output description has type Fin (2*D) → EuclideanSpace ℝ (Fin D) with D = n-d (truncated subtraction, legal by ). The input length hypothesis is the nonexistence of a padded walk of length , matching DiamLE style.
import Mathlib import Definitions.Def_Hirsch_model open scoped RealInnerProductSpace
namespace Hirsch
theorem strong_dstep_spindle (d n : ℕ) (hd : 0 < d) (hdn : d ≤ n)
(a : Fin n → EuclideanSpace ℝ (Fin d)) (b : Fin n → ℝ)
(u v : EuclideanSpace ℝ (Fin d))
(hne : (Hpoly a b).Nonempty) (hbd : Bornology.IsBounded (Hpoly a b))
(hu : u ∈ Set.extremePoints ℝ (Hpoly a b))
(hv : v ∈ Set.extremePoints ℝ (Hpoly a b))
(hspindle : ∀ i, (⟪a i, u⟫ = b i) ↔ ⟪a i, v⟫ ≠ b i)
(hlong : ∀ w : ℕ → EuclideanSpace ℝ (Fin d),
¬ (w 0 = u ∧ w d = v ∧
∀ j < d, w j = w (j + 1) ∨ Adj (Hpoly a b) (w j) (w (j + 1)))) :
∃ (D : ℕ) (a' : Fin (2 * D) → EuclideanSpace ℝ (Fin D)) (b' : Fin (2 * D) → ℝ),
D = n - d ∧
(Hpoly a' b').Nonempty ∧
Bornology.IsBounded (Hpoly a' b') ∧
¬ DiamLE (Hpoly a' b') D := by sorry
end Hirsch