tc_rung_pos

formal source

  79def T_c_rung (n : ℤ) : ℝ := phi ^ n
  80
  81/-- **THEOREM EN-002.4**: Critical temperature is positive for all rungs. -/
  82theorem tc_rung_pos (n : ℤ) : 0 < T_c_rung n := by
  83  unfold T_c_rung
  84  apply zpow_pos phi_pos
  85
  86/-- **THEOREM EN-002.5**: Higher rungs give higher critical temperatures.
  87    T_c(n+1) = φ · T_c(n) > T_c(n) since φ > 1. -/
  88theorem phi_ladder_tc_monotone (n : ℤ) : T_c_rung n < T_c_rung (n + 1) := by
  89  unfold T_c_rung
  90  rw [zpow_add_one₀ phi_ne_zero]
  91  have hphi_gt1 : 1 < phi := one_lt_phi
  92  have hpos : 0 < phi ^ n := zpow_pos phi_pos n
  93  exact lt_mul_of_one_lt_right hpos hphi_gt1
  94
  95/-- **THEOREM EN-002.6**: The φ-ladder spans all temperature scales.
  96    For any temperature T > 0, there exists a rung n such that T_c(n) > T. -/
  97theorem phi_ladder_unbounded (T : ℝ) (hT : 0 < T) :
  98    ∃ n : ℤ, T < T_c_rung n := by
  99  unfold T_c_rung
 100  -- phi⁻¹ < 1 since phi > 1, so phi⁻¹^k → 0 as k → ∞
 101  -- equivalently phi^k → ∞
 102  obtain ⟨n, hn⟩ := pow_unbounded_of_one_lt T one_lt_phi
 103  exact ⟨(n : ℤ), by rw [zpow_natCast]; exact hn⟩
 104
 105/-! ## §III. Superconducting Gap -/
 106
 107/-- The superconducting gap function Δ in RS.
 108    Δ is proportional to E_coh reduced by the thermal competition ratio.
 109    When T < T_c, gap Δ > 0 (superconducting); when T ≥ T_c, Δ = 0 (normal). -/
 110def superconducting_gap (T : ℝ) (T_c : ℝ) (hTc : 0 < T_c) : ℝ :=
 111  if T < T_c then E_coh * (1 - T / T_c) else 0
 112