Documentation

Lean 4 Proof

theorem keff_below_critical (J : ℕ) (ρ T Tstar : ℝ)
    (hTs : 0 < Tstar) (hT : T < Tstar) :
    effectiveCurvatureKeff J ρ T Tstar =
      curvatureK J ρ * (1 - T / Tstar) := by
  simp only [effectiveCurvatureKeff]
  congr 1
  exact max_eq_right (by rw [sub_nonneg, div_le_one hTs]; exact le_of_lt hT)

Dependency Graph

Used by

Location

thesis/CESProofs/CurvatureRoles/PhaseTransition.lean:55

Module Section

Phase Transition at T* (Gap #8)

In the same file