theorem escortRawMoment_one [NeZero J]
(x : Fin J → ℝ) (_hx : ∀ j, 0 < x j) (ρ : ℝ) :
escortRawMoment x ρ 1 =
escortExpectation x ρ (fun j => Real.log (x j)) := by
simp only [escortRawMoment, escortPartitionZn, escortExpectation,
escortProbability, pow_one, div_mul_eq_mul_div, ← Finset.sum_div]The Cumulant Tower: Higher-Order Bridges Between CES and Escort Statistics