theorem convergenceRate_at_critical (J : ℕ) (ρ c Tstar : ℝ) (hTs : 0 < Tstar) : convergenceRate J ρ c Tstar Tstar = 0 := by simp [convergenceRate, div_self (ne_of_gt hTs)]
thesis/CESProofs/Potential/Welfare.lean:217
Theorem 8, Corollary 6, Propositions 18-22: