Proposition 1: if , the retailer's rebate profit is concave in
ProvedFalseFailureReturns.TargetRebate.prop1_concaveLet , , , be as in the model, let be the rebate per false failure below the target and the target. For every effort let be a random variable with values in , with law and cumulative distribution function . Suppose that for every the map is twice continuously differentiable on with
Then the retailer's expected profit under the target rebate contract,
is concave in on .
Concavity makes the first-order condition sufficient for the retailer's optimal effort, which is how the paper computes coordinating contracts.
Formalization Note The family of laws is an arbitrary map of probability measures on with for . The paper's other standing assumptions on (differentiable and strictly increasing in , ) are not imposed: the statement is the proposition under fewer hypotheses, and the paper's version is a special case. The second-derivative condition is required only for and only in the interior , with twice continuous differentiability on assumed explicitly so the condition is not vacuous.
import Mathlib import Definitions.Def_FalseFailureReturns_TargetRebate_Model open MeasureTheory
namespace FalseFailureReturns.TargetRebate
theorem prop1_concave (P : Params) (μ : ℝ → Measure ℝ) (T u : ℝ)
(ha : 0 < P.a) (hβ : 0 < P.β) (hM : 0 < P.Mm) (hR : 0 < P.Rr) (hu : 0 ≤ u)
(hprob : ∀ ρ ∈ Set.Ici (1 : ℝ), IsProbabilityMeasure (μ ρ))
(hnonneg : ∀ ρ ∈ Set.Ici (1 : ℝ), μ ρ (Set.Iio 0) = 0)
(hF_smooth : ∀ x ∈ Set.Icc 0 T,
ContDiffOn ℝ 2 (fun ρ => (μ ρ (Set.Iic x)).toReal) (Set.Ici 1))
(hF_second : ∀ x ∈ Set.Icc 0 T, ∀ ρ ∈ Set.Ioi (1 : ℝ),
deriv (deriv (fun ρ => (μ ρ (Set.Iic x)).toReal)) ρ ≤ 0) :
ConcaveOn ℝ (Set.Ici 1)
(fun ρ => u * ∫ x, max (T - x) 0 ∂(μ ρ) - P.a * ρ ^ 2 / 2 + P.Rr * P.β * (1 - 1 / ρ)) := by sorry
end FalseFailureReturns.TargetRebate
Confirmed by the mission captain (proposal self-audit).
Confirmed by the moderator at approval.