theorem escortPartitionZ'_hasDerivAt
(x : Fin J → ℝ) (hx : ∀ j, 0 < x j) (ρ : ℝ) :
HasDerivAt (escortPartitionZ' x)
(∑ j, x j ^ ρ * (Real.log (x j)) ^ 2) ρ := by
unfold escortPartitionZ'
convert HasDerivAt.sum (u := Finset.univ)
(fun j _ => hasDerivAt_rpow_exponent_sq (hx j) ρ)
using 1
ext p; simpThe VRI σ² = T·χ is fundamentally an exponential family identity: