The converse of the Extension Theorem — a concave extension with integral base polytope argmaxs forces (EXC)
ProvedSteinitzExchange.Extension.concave_extension_imp_excLet be a finite integral base set and . Suppose there is a function such that
- is concave on ;
- for all ;
- for every , the maximizers over of form an integral base polytope.
Then satisfies the exchange property (EXC): for all and every with there is with , , and
This is the converse (hard) direction of Murota's Extension Theorem (1996, p. 288, Theorem 4.6). The intuition is that concavity of plus the integrality of every maximizer face pins down the exchange inequality: if it failed at some , a carefully chosen linear perturbation would expose a maximizing face of that violates the integral base polytope condition, contradicting hypothesis 3. Proving this requires relating the exchange partner to an exposed face of the concave closure.
Formalization Note. This child isolates exactly the converse implication, so that the parent Extension Theorem reduces to Lemma 4.5 (agreement on ), the concavity of the concave closure, the perturbed-argmax identity, and this converse.
import Mathlib import Definitions.Def_SteinitzExchange_Extension_IntegralBaseSet import Definitions.Def_SteinitzExchange_Extension_Exchange import Definitions.Def_SteinitzExchange_Extension_ConcaveClosure
namespace SteinitzExchange.Extension
/-- Murota 1996, p. 288, Theorem 4.6 (Extension Theorem), reverse direction. Let `B ⊆ ℤ^V` be a finite
integral base set and `ω : B → ℝ` a function. Suppose `ω` extends to a concave function
`ω̄ : B̄ → ℝ` agreeing with `ω` on `B` whose maximizers over `B̄` of `ω̄[p](b) = ω̄(b) + ⟨p, b⟩`
are integral base polytopes for every `p : V → ℝ`. Then `ω` satisfies the exchange property (EXC).
This is the converse half of the Extension Theorem: the combinatorial condition on the maximizer
sets of all linear perturbations forces the base-exchange inequality
$$\omega(x) + \omega(y) \le \omega(x - \chi_u + \chi_v) + \omega(y + \chi_u - \chi_v)$$
whenever `x, y ∈ B` and `u ∈ supp⁺(x − y)`. The argument proceeds by contradiction: if the
exchange inequality fails for some `x, y, u`, one produces a linear functional `p` (a supporting
separator at a maximizing face) whose maximizer set over `B̄` cannot be an integral base polytope,
contradicting the hypothesis. -/
theorem concave_extension_imp_exc {V : Type*} [Fintype V] [DecidableEq V] [Nonempty V]
(B : Finset (V → ℤ)) (hB : IsIntegralBaseSet B) (ω : (V → ℤ) → ℝ)
(ωbar : (V → ℝ) → ℝ)
(hconc : ConcaveOn ℝ (hull B) ωbar)
(hext : ∀ x ∈ B, ωbar (toReal x) = ω x)
(hpoly : ∀ p : V → ℝ, IsIntegralBasePolytope (argmaxOn (hull B) (fun b => ωbar b + pairing p b))) :
SatisfiesEXC B ω := by sorry
end SteinitzExchange.Extension