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