theorem meanCurvature_pos (hJ : 2 ≤ J) {ρ : ℝ} (hρ : ρ < 1)
{c : ℝ} (hc : 0 < c) :
0 < meanCurvatureTrace J ρ c := by
simp only [meanCurvatureTrace]
apply mul_pos
· have : (1 : ℝ) < ↑J := by exact_mod_cast (show 1 < J by omega)
linarith
· exact curvature_pos hJ hρ hcDifferential Geometry of CES Isoquants (Gap #6)