Eq. (10) — closed form of the discounted cost of a stationary policy
ProvedVeinottWagnerSS.RenewalCost.eq10_fCost_closed_forminventoryp2o-batch-p200bp2o-gran-per-chapterp2o-plan-paperp2o-v1renewal-theoryss-policy
Let be a demand distribution, , , , and integers with . The total expected discounted cost of the stationary policy started from stock is
It expresses the infinite-horizon cost of any policy through finitely computable renewal quantities.
Formalization Note The denominator is positive for ; the statement does not rely on Lean's convention . and are passed as natural numbers via toNat. No convexity or coercivity of is assumed.
Preamble
import Mathlib import Definitions.Def_VeinottWagnerSS_RenewalCost_Demand import Definitions.Def_VeinottWagnerSS_RenewalCost_RenewalFunctions import Definitions.Def_VeinottWagnerSS_RenewalCost_PolicyCost
Formal statement
namespace VeinottWagnerSS.RenewalCost
/-- Veinott & Wagner (1965), Eq. (10), p. 534: for `0 ≤ α < 1`, `K ≥ 0`, integers `s ≤ S` and
`D = S − s`, the discounted cost of the stationary `(s, S)` policy is
`f(x) = (L_α(S, D) + K)/(1 − r_α(D))` for `x < s` and
`f(x) = L_α(x, x − s) + [(L_α(S, D) + K)/(1 − r_α(D))] r_α(x − s)` for `x ≥ s`. -/
theorem eq10_fCost_closed_form (D : DemandDist) (α K : ℝ) (hα0 : 0 ≤ α) (hα1 : α < 1)
(hK : 0 ≤ K) (G : ℤ → ℝ) (s S : ℤ) (hsS : s ≤ S) (x : ℤ) :
fCost D α K G s S x =
if x < s then
(LAlpha D.φ α G S (S - s).toNat + K) / (1 - rAlpha D.φ α (S - s).toNat)
else
LAlpha D.φ α G x (x - s).toNat
+ (LAlpha D.φ α G S (S - s).toNat + K) / (1 - rAlpha D.φ α (S - s).toNat)
* rAlpha D.φ α (x - s).toNat := by sorry
end VeinottWagnerSS.RenewalCost
Source
Veinott & Wagner, Computing Optimal (s, S) Inventory Policies, Management Sci. 11 (1965), p. 534, Eq. (10)
Human review
Confirmed by the mission captain (proposal self-audit).
Confirmed by the moderator at approval.