theorem effectiveCurvature_at_symmetry (hJ : 0 < J) (ρ : ℝ) :
effectiveCurvatureAt ρ
(fun _ : Fin J => (1 : ℝ) / ↑J) =
curvatureK J ρ := by
unfold effectiveCurvatureAt escortHerfindahl curvatureK
simp only [Finset.sum_const, Finset.card_fin,
nsmul_eq_mul]
have hJne : (↑J : ℝ) ≠ 0 :=
Nat.cast_ne_zero.mpr (by omega)
field_simpGeneral CES Hessian at Arbitrary Allocation