theorem shares_are_expectations_not_sufficient
[NeZero J] (x : Fin J → ℝ) (_hx : ∀ j, 0 < x j) (ρ : ℝ) :
-- The escort expectation of log x equals the mean log-input
-- weighted by the escort probabilities (share-weighted mean).
escortExpectation x ρ (fun j => Real.log (x j)) =
∑ j, escortProbability x ρ j * Real.log (x j) := by
rflCES Estimation Theory: Connecting Theory to Data