theorem generalKeff_above_critical
{J : ℕ} {ρ : ℝ} {a : Fin J → ℝ} {T Tstar : ℝ}
(hTs : 0 < Tstar) (hT : Tstar ≤ T) :
generalEffectiveCurvatureKeff J ρ a T Tstar = 0 := by
unfold generalEffectiveCurvatureKeff
have h : 1 - T / Tstar ≤ 0 := by
rw [sub_nonpos]
rwa [le_div_iff₀ hTs, one_mul]
rw [max_eq_left h, mul_zero]## General-Weight Effective Curvature Theorems