theorem unnormCES_symmetricPoint {J : ℕ} (_hJ : 0 < J) {ρ : ℝ} (hρ : ρ ≠ 0)
{c : ℝ} (hc : 0 < c) :
unnormCES J ρ (symmetricPoint J c) = (↑J : ℝ) ^ (1 / ρ) * c := by
simp only [unnormCES, symmetricPoint]
rw [Finset.sum_const, Finset.card_univ, Fintype.card_fin, nsmul_eq_mul]
rw [mul_rpow (Nat.cast_nonneg J) (rpow_nonneg hc.le ρ)]
congr 1
rw [← rpow_mul hc.le, mul_one_div_cancel hρ, rpow_one]Core definitions for the Lean formalization of Paper 1: