Facets are polyhedra of one dimension less, with the connecting walk staying in the facet
ProvedHirsch.facet_walkLet be a bounded H-polytope described by inequalities and fix an index with . Let . Suppose that every bounded H-polyhedron in described by inequalities has combinatorial diameter at most . Then any two vertices of are joined by a walk of steps in the vertex-edge graph of all of whose points lie in :
This strengthens the platform theorem Hirsch.facet_reduction (same hypotheses) by recording that the walk produced by the affine chart of the facet never leaves the supporting hyperplane. The extra information is what a layer argument needs: it identifies walks in the facet, viewed as a -polyhedron with inequalities, with walks in that stay on that facet.
Formalization Note The facet is written as the set and its vertices as its extreme points, exactly as in Hirsch.facet_reduction; the walk is indexed by with stationary steps allowed.
import Mathlib import Definitions.Def_Hirsch_model open scoped RealInnerProductSpace
namespace Hirsch
theorem facet_walk (d k : ℕ) (a : Fin (k + 1) → EuclideanSpace ℝ (Fin d))
(b : Fin (k + 1) → ℝ) (i : Fin (k + 1)) (hai : a i ≠ 0)
(hbd : Bornology.IsBounded (Hpoly a b)) (B : ℕ)
(IH : ∀ (a' : Fin k → EuclideanSpace ℝ (Fin (d - 1))) (b' : Fin k → ℝ),
Bornology.IsBounded (Hpoly a' b') → DiamLE (Hpoly a' b') B)
(u v : EuclideanSpace ℝ (Fin d))
(hu : u ∈ Set.extremePoints ℝ {x | x ∈ Hpoly a b ∧ ⟪a i, x⟫ = b i})
(hv : v ∈ Set.extremePoints ℝ {x | x ∈ Hpoly a b ∧ ⟪a i, x⟫ = b i}) :
∃ w : ℕ → EuclideanSpace ℝ (Fin d), w 0 = u ∧ w B = v ∧
(∀ j < B, w j = w (j + 1) ∨ Adj (Hpoly a b) (w j) (w (j + 1))) ∧
(∀ j ≤ B, w j ∈ Hpoly a b ∧ ⟪a i, w j⟫ = b i) := by sorry
end Hirsch