theorem network_log_premium (hJ : 0 < J) {ρ : ℝ} (hρ : ρ ≠ 0)
{c : ℝ} (hc : 0 < c) :
Real.log (unnormCES J ρ (symmetricPoint J c) / c) =
1 / ρ * Real.log ↑J := by
rw [unnormCES_symmetricPoint hJ hρ hc]
rw [mul_div_cancel_right₀ _ (ne_of_gt hc)]
exact Real.log_rpow (by exact_mod_cast hJ : (0 : ℝ) < ↑J) (1 / ρ)## Network Scaling Results