theorem keff_eq_K_times_reduced (J : ℕ) (ρ T Tstar : ℝ) : effectiveCurvatureKeff J ρ T Tstar = curvatureK J ρ * reducedOrderParam T Tstar := by simp [effectiveCurvatureKeff, reducedOrderParam]
thesis/CESProofs/CurvatureRoles/PhaseTransition.lean:36
Phase Transition at T* (Gap #8)