theorem curvatureK_neg_substitute (hJ : 2 ≤ J) {ρ : ℝ} (hρ : 1 < ρ) :
curvatureK J ρ < 0 := by
simp only [curvatureK]
apply div_neg_of_neg_of_pos
· have hJ1 : (1 : ℝ) < ↑J := by exact_mod_cast (show 1 < J by omega)
exact mul_neg_of_neg_of_pos (by linarith) (by linarith)
· exact Nat.cast_pos.mpr (by omega)Substitute Regime: The ρ > 1 Theory (Anti-Complementarity)