Adjacency of two vertices is the common-tight-row face being the segment
ProvedHirsch.spindle_adj_iff_common_tight_faceLet be a bounded H-polytope with all (so the origin is strictly feasible) and let be vertices. Then are adjacent (the segment is an extreme subset, the mission's Adj) if and only if and the face cut out by the rows tight at both and ,
is exactly the segment .
Direction : an equality set of valid inequalities is extreme. Direction : at the midpoint of the tight rows are precisely the common tight rows; for any in the displayed face, a short extension stays in (all other rows have positive slack at ), so lies strictly between and a point of , and extremality of forces . This is the elementary 'smallest face containing two vertices' fact, stated without any face-lattice machinery; it is the basic tool for transporting adjacency along perturbations in the strong -step argument.
import Mathlib import Definitions.Def_Hirsch_model open scoped RealInnerProductSpace open WithLp EuclideanSpace
namespace Hirsch
theorem spindle_adj_iff_common_tight_face
(m N : ℕ) (A : Fin N → EuclideanSpace ℝ (Fin m))
(B : Fin N → ℝ) (hB : ∀ i, 0 < B i)
(hbd : Bornology.IsBounded (Hpoly A B))
(x y : EuclideanSpace ℝ (Fin m))
(hx : x ∈ Set.extremePoints ℝ (Hpoly A B))
(hy : y ∈ Set.extremePoints ℝ (Hpoly A B)) :
Adj (Hpoly A B) x y ↔
x ≠ y ∧
{z | z ∈ Hpoly A B ∧ ∀ i,
⟪A i, x⟫ = B i → ⟪A i, y⟫ = B i → ⟪A i, z⟫ = B i}
= segment ℝ x y := by sorry
end Hirsch