theorem
proved
echoDelay_pos
show as:
view math explainer →
open explainer
Read the cached plain-language explainer.
open lean source
IndisputableMonolith.Physics.QuantumGravityFromRS on GitHub at line 49.
browse module
All declarations in this module, on Recognition.
explainer page
depends on
-
one_lt_phi -
bounceRadius_pos -
echoDelay -
echoDelay_pos -
bounceRadius_pos -
echoDelay -
echoDelay_pos -
one_lt_phi -
one_lt_phi -
echoDelay -
echoDelay_pos -
bounceRadius_pos -
echoDelay
used by
formal source
46/-- Echo delay = 2r_min × log φ: positive (structural). -/
47noncomputable def echoDelay (N : ℕ) : ℝ := 2 * bounceRadius N * Real.log phi
48
49theorem echoDelay_pos (N : ℕ) : 0 < echoDelay N := by
50 unfold echoDelay
51 apply mul_pos (mul_pos (by norm_num) (bounceRadius_pos N))
52 exact Real.log_pos one_lt_phi
53
54structure QuantumGravityCert where
55 five_approaches : Fintype.card QGApproach = 5
56 bounce_pos : ∀ N, 0 < bounceRadius N
57 bounce_mono : ∀ N, bounceRadius N < bounceRadius (N + 1)
58 echo_pos : ∀ N, 0 < echoDelay N
59
60noncomputable def quantumGravityCert : QuantumGravityCert where
61 five_approaches := qgApproachCount
62 bounce_pos := bounceRadius_pos
63 bounce_mono := bounceRadius_mono
64 echo_pos := echoDelay_pos
65
66end IndisputableMonolith.Physics.QuantumGravityFromRS