theorem logit_is_ces_at_q_one (T : ℝ) (_hT : T ≠ 0) (ε : Fin J → ℝ) (j : Fin J) :
logitProbability J T ε j =
escortDistribution J 1 (fun k => Real.exp (ε k / T)) j := by
simp only [logitProbability, escortDistribution, rpow_one]Economics extensions for CES formalization: