def
definition
hbar
show as:
view math explainer →
open explainer
Read the cached plain-language explainer.
open lean source
IndisputableMonolith.Constants on GitHub at line 306.
browse module
All declarations in this module, on Recognition.
explainer page
depends on
used by
-
BridgeData -
lambda_rec -
lambda_rec_dimensionless_id -
lambda_rec_dimensionless_id_physical -
Physical -
G -
hbar_action_identity -
hbar_bounds -
hbar_eq_phi_inv_fifth -
hbar_lt_one -
hbar_pos -
hbar_positive -
kappa_einstein_eq -
lambda_rec_pos -
hbar -
hbar_ne_zero -
hbar_pos -
GDerivationChain -
ell_P -
lambda_rec_over_ell_P -
lambda_rec_SI -
planck_gate_identity -
planck_gate_normalized -
standardInflation -
gaussian_approx_at_eq -
pathIntegralDeepCert -
PathIntegralDeepCert -
path_weight -
path_weight_max_at_eq -
path_weight_pos -
bremermann_limit -
bremermann_limit_pos -
hbar -
alphaG_pred_closed -
alphaG_pred_eq -
G_div_hbar -
hbar_c_eq_hbar -
row_alphaG_pred -
row_alphaG_pred_eq -
hbar_range
formal source
303-/
304
305/-- Reduced Planck constant ħ in RS-native units: ħ = E_coh · τ₀ = φ⁻⁵ · 1. -/
306noncomputable def hbar : ℝ := cLagLock * tau0
307
308lemma hbar_pos : 0 < hbar := mul_pos cLagLock_pos tau0_pos
309
310/-- **THEOREM C-004.1**: ℏ = φ⁻⁵ in RS-native units.
311
312 This is the fundamental identity: ℏ = E_coh · τ₀ = φ⁻⁵ · 1 = φ⁻⁵. -/
313lemma hbar_eq_phi_inv_fifth : hbar = phi ^ (-(5 : ℝ)) := by
314 unfold hbar cLagLock tau0 tick
315 simp
316
317/-- **THEOREM C-004.2**: ℏ is positive (required for quantum dynamics). -/
318theorem hbar_positive : hbar > 0 := hbar_pos
319
320/-- **THEOREM C-004.3**: ℏ < 1 (the action quantum is small compared to natural units).
321
322 Proof: φ > 1 ⟹ φ⁵ > 1 ⟹ φ⁻⁵ < 1. -/
323theorem hbar_lt_one : hbar < 1 := by
324 rw [hbar_eq_phi_inv_fifth]
325 have h1 : phi ^ (5 : ℝ) > 1 := by
326 have hphi : phi > 1 := one_lt_phi
327 have hexp : (5 : ℝ) > 0 := by norm_num
328 have h1_lt : (1 : ℝ) < phi ^ (5 : ℝ) := by
329 rw [← Real.one_rpow (5 : ℝ)]
330 apply Real.rpow_lt_rpow
331 · norm_num
332 · linarith
333 · norm_num
334 linarith
335 have h2 : phi ^ (-(5 : ℝ)) = 1 / (phi ^ (5 : ℝ)) := by
336 rw [show (-(5 : ℝ)) = - (5 : ℝ) by norm_num]