def
definition
D
show as:
view math explainer →
open explainer
Generate a durable explainer page for this declaration.
open lean source
IndisputableMonolith.Masses.CoherenceExponent on GitHub at line 53.
browse module
All declarations in this module, on Recognition.
explainer page
depends on
formal source
50/-! ## Dimension Constraint -/
51
52/-- D = 3 is the spatial dimension (from T8 dimension forcing) -/
53def D : ℕ := 3
54
55/-- The octave period is 2^D -/
56def octave : ℕ := 2 ^ D
57
58/-- Verify: octave = 8 -/
59theorem octave_eq_8 : octave = 8 := by
60 unfold octave D
61 norm_num
62
63/-- D equals F₄ -/
64theorem D_is_fib_4 : D = fib 4 := by
65 unfold D
66 rw [fib_4_eq]
67
68/-- Octave (2^D) equals F₆ -/
69theorem octave_is_fib_6 : octave = fib 6 := by
70 rw [octave_eq_8, fib_6_eq]
71
72/-! ## The Coherence Exponent -/
73
74/-- The Fibonacci deficit: 2^D - D = 5 -/
75def coherence_exponent : ℕ := octave - D
76
77/-- The coherence exponent equals 5 -/
78theorem coherence_exponent_eq_5 : coherence_exponent = 5 := by
79 unfold coherence_exponent octave D
80 norm_num
81
82/-- The coherence exponent equals F₅ -/
83theorem coherence_exponent_is_fib_5 : coherence_exponent = fib 5 := by