Lemma B.2, p. 28 — for max_{A∈[0,Ā]} y·u(A/y, d) − C(A): A*(y) increasing, A*(y)/y decreasing, V*(y) concave, dV*/dy decreasing in d
ProvedAddictivePlatforms.Compete.lemma_B_2Assume Assumptions 1–2 (with the mission's standing pins). For and consider
the consumer's problem when she spreads total attention evenly over " platforms" of addictiveness . Let be a maximizer and the maximized value. Then for every :
- is (weakly) increasing in on ;
- is (weakly) decreasing in on ;
- is concave on ;
and 4. is decreasing in , in integrated form: for all , the map
is (weakly) decreasing on .
At the problem defines , and is the consumer's gain from joining the -th platform; the lemma is the engine of Step 1 of Proposition 2.
Formalization Note. The page says " is strictly concave in ". That is false: on the paper's Figure 3 instance , with a large cap, is linear in . The proof shows concavity, which is all that is used downstream, so concavity is stated. The derivative claim is stated as a decreasing difference because the paper does not establish differentiability of . The maximizer is a parameter Astar assumed to maximize (A.1) for every , (it is unique by strict concavity, and exists when by compactness).
import Mathlib import Definitions.Def_AddictivePlatforms_Compete_Model open Set Filter Topology open scoped ENNReal
namespace AddictivePlatforms.Compete
/-- Lemma B.2 (p. 28). With `A*(y, d)` a maximizer of `y · u(A/y, d) − C(A)` over `A ∈ [0, Ā]` and
`V*(y, d)` the maximized value: `A*` is increasing in `y`, `A*(y)/y` is decreasing in `y`, `V*` is
concave in `y` on `(0, ∞)` (the page says "strictly concave", which is false; see the mission
notes), and `dV*/dy` is decreasing in `d`, stated in integrated form: for `0 < y₁ < y₂`,
`V*(y₂, d) − V*(y₁, d)` is decreasing in `d ≥ 0`. -/
theorem lemma_B_2 (u : ℝ → ℝ → ℝ) (C : ℝ → ℝ) (Abar : ℝ≥0∞) (hS : Standing u C)
(Astar : ℝ → ℝ → ℝ)
(hA : ∀ y : ℝ, 0 < y → ∀ d : ℝ, 0 ≤ d → IsPerspMax u C Abar y d (Astar y d)) :
(∀ d : ℝ, 0 ≤ d →
MonotoneOn (fun y => Astar y d) (Ioi 0) ∧
AntitoneOn (fun y => Astar y d / y) (Ioi 0) ∧
ConcaveOn ℝ (Ioi 0) (fun y => perspObj u C y d (Astar y d))) ∧
∀ y₁ y₂ : ℝ, 0 < y₁ → y₁ < y₂ →
AntitoneOn (fun d => perspObj u C y₂ d (Astar y₂ d) - perspObj u C y₁ d (Astar y₁ d))
(Ici 0) := by sorry
end AddictivePlatforms.Compete
Confirmed by the mission captain (proposal self-audit).
Confirmed by the moderator at approval.