def cesGradComponent (J : ℕ) (ρ : ℝ) (x : Fin J → ℝ) (k : Fin J) : ℝ := (1 / ↑J) * (x k) ^ (ρ - 1) * ((1 / ↑J : ℝ) * ∑ j : Fin J, (x j) ^ ρ) ^ ((1 - ρ) / ρ)
thesis/CESProofs/Applications/Economics.lean:683
Economics extensions for CES formalization: