Beale (1955), eqs. (5.5)–(5.6): with a discrete distribution, E(C) is the value of a linear program
ProvedBealeConvexMin.RandomLP.discrete_expected_cost_lpSuppose the data are discrete: there are finitely many scenarios , and with probability the data take the values , . Fix a non-negative first-stage vector and assume that in every scenario the second-stage minimum is attained. Then the mean cost is the least value of
over all families of non-negative vectors satisfying
Consequently, minimising over non-negative is the linear program of choosing non-negative and to minimise (5.5) subject to (5.6): the precise sense in which Beale's problem "can also be regarded as a special case of linear programming if the random variables have discrete distributions".
Formalization Note The scenarios form a finite type with a probability measure on it (all subsets measurable), , and the data are functions , . Scenarios of probability zero are allowed; the attainment hypothesis is imposed on every scenario, so that the constraint (5.6) is satisfiable in each.
import Mathlib import Definitions.Def_BealeConvexMin_RandomLP_secondStageValue import Definitions.Def_BealeConvexMin_RandomLP_expectedCost
namespace BealeConvexMin.RandomLP
open Matrix MeasureTheory
/-- Beale (1955), §5, p. 182, eqs. (5.5)–(5.6): for a discrete distribution, with probability
`p_r = P {r}` that `A = A_r` and `β = β_r` over a finite set of scenarios `r`, the mean cost `E(C)`
at `x` is the least value of `c′x + Σ_r p_r f′y_r` (eq. (5.5)) over non-negative `y_r` satisfying
`A_r x + D y_r = β_r` for all `r` (eq. (5.6)); so minimising `E(C)` is a linear program. The
second-stage minimum is assumed attained in every scenario. -/
theorem discrete_expected_cost_lp {R : Type*} [Fintype R] [MeasurableSpace R]
[MeasurableSingletonClass R] (P : Measure R) [IsProbabilityMeasure P] {m n p : ℕ}
(c : Fin n → ℝ) (f : Fin p → ℝ) (D : Matrix (Fin m) (Fin p) ℝ)
(A : R → Matrix (Fin m) (Fin n) ℝ) (β : R → Fin m → ℝ) (x : Fin n → ℝ) (hx : 0 ≤ x)
(hatt : ∀ r, SecondStageAttained D f (β r - A r *ᵥ x)) :
IsLeast {z : ℝ | ∃ y : R → Fin p → ℝ,
(∀ r, 0 ≤ y r ∧ A r *ᵥ x + D *ᵥ y r = β r) ∧
z = c ⬝ᵥ x + ∑ r, (P {r}).toReal * (f ⬝ᵥ y r)}
(expectedCost P c f D A β x) := by sorry
end BealeConvexMin.RandomLP
Confirmed by the mission captain (proposal self-audit).
Confirmed by the moderator at approval.