def
definition
phase
show as:
view math explainer →
open explainer
Generate a durable explainer page for this declaration.
open lean source
IndisputableMonolith.Foundation.EightTick on GitHub at line 29.
browse module
All declarations in this module, on Recognition.
explainer page
depends on
used by
-
of -
vacuum_climate_zero_cost -
diurnal_phase -
diurnal_phase_bound -
diurnal_phase_count -
noon_phase -
phase_wraps_24 -
topological_phases_structure -
balance_from_conservation -
curvature_term_complete_derivation -
eight_tick_forces_temporal -
seam_ratio_from_topology -
spatial_dims_eq_3 -
octavePhase -
equation_of_state -
vacuum_mode -
darkSector -
detectionMethods -
LedgerSector -
ledgerShadowProperties -
mondStatus -
odd_phases_dark -
PBH -
rs_explains_null_detection -
structureFormation -
summary -
btfrData -
nfwProfile -
predictions -
rs_universal_clock -
synchronization_mechanism -
cp_not_symmetry -
eta_from_epsilon -
eta_from_phi -
sakharov_necessary -
HTheoremForce -
misaligned_ticks_per_cycle -
sync_exceeds_both -
lightPhase -
phase_ratio_from_topology
formal source
26open Real
27
28/-- The 8-tick phases: kπ/4 for k = 0, 1, ..., 7 -/
29noncomputable def phase (k : Fin 8) : ℝ := (k : ℝ) * Real.pi / 4
30
31/-- The 8-tick phase is periodic with period 2π. -/
32theorem phase_periodic : phase 0 + 2 * Real.pi = 2 * Real.pi := by
33 unfold phase
34 simp
35
36/-- Even ticks (0, 2, 4, 6) correspond to bosons. -/
37def isEvenTick (k : Fin 8) : Bool := k.val % 2 = 0
38
39/-- Odd ticks (1, 3, 5, 7) correspond to fermions. -/
40def isOddTick (k : Fin 8) : Bool := k.val % 2 = 1
41
42/-- Phase advance by one tick. -/
43noncomputable def nextPhase (k : Fin 8) : Fin 8 := ⟨(k.val + 1) % 8, Nat.mod_lt _ (by norm_num)⟩
44
45/-- The complex exponential of a phase. -/
46noncomputable def phaseExp (k : Fin 8) : ℂ := Complex.exp (Complex.I * phase k)
47
48/-- **THEOREM**: The 8th power of each phase gives 1.
49 exp(i × k × π/4)^8 = exp(2πik) = 1.
50 Uses periodicity: exp(2πin) = 1 for n ∈ ℤ. -/
51theorem phase_eighth_power_is_one (k : Fin 8) :
52 (phaseExp k)^8 = 1 := by
53 unfold phaseExp phase
54 rw [← Complex.exp_nat_mul]
55 -- 8 * (I * (k * π / 4)) = 2kπI, and exp(2kπI) = 1
56 have h : (8 : ℕ) * (Complex.I * ((k.val : ℕ) * Real.pi / 4 : ℝ)) = 2 * Real.pi * Complex.I * k.val := by
57 push_cast
58 ring
59 simp only [] at h