dynamicalTime

formal source

  66
  67/-- Keplerian dynamical time at radius r for mass M:
  68    T_dyn = 2π√(r³/(GM)). -/
  69noncomputable def dynamicalTime (G_N M r : ℝ) : ℝ :=
  70  2 * Real.pi * Real.sqrt (r ^ 3 / (G_N * M))
  71
  72/-- Newtonian acceleration at radius r: a = GM/r². -/
  73noncomputable def newtonAccel (G_N M r : ℝ) : ℝ :=
  74  G_N * M / r ^ 2
  75
  76/-! ## §3. The Saturation Condition -/
  77
  78/-- **DEFINITION**: Saturation acceleration a_sat.
  79
  80    The acceleration at which the demanded recognition rate equals the
  81    holographic bandwidth of the gravitational area:
  82
  83        demandedRate(M, T_dyn(a)) = bandwidth(gravArea(a))
  84
  85    At a < a_sat, the system is bandwidth-saturated and ILG activates.
  86    At a > a_sat, Newtonian gravity suffices.
  87
  88    In RS-native units (G = φ⁵, ℓ_P = 1, τ₀ = 1, k_R = ln φ):
  89        a_sat = π / (2 · ln(φ))  -/
  90noncomputable def saturationAccel : ℝ :=
  91  Real.pi / (2 * k_R)
  92
  93theorem saturationAccel_pos : 0 < saturationAccel := by
  94  unfold saturationAccel
  95  exact div_pos Real.pi_pos (mul_pos (by norm_num : (0:ℝ) < 2) k_R_pos)
  96
  97/-- Saturation acceleration is well-defined (positive and finite). -/
  98theorem saturationAccel_well_defined : 0 < saturationAccel ∧ saturationAccel ≠ 0 :=
  99  ⟨saturationAccel_pos, ne_of_gt saturationAccel_pos⟩