Gravity Derived Factors Lock Stiffness

The lock stiffness constant

In the Recognition Science framework, a recognition cycle is a discrete record of events that must repeat to stay valid. The framework's earlier work establishes that an eight-beat cycle is the minimal valid period in three dimensions, while a seven-beat cycle fails a neutrality condition. The constant lock_stiffness quantifies how strongly the valid eight-beat cycle resists breaking into the invalid seven-beat one. It is defined as the inverse of the relative gap between the two modes: the eight-beat cycle has seven active modes, the seven-beat has six degrees of freedom, and the gap is (7 - 6) / 8 = 1/8. The stiffness is therefore 1 / (1/8) = 8.

This number is not an isolated curiosity. The framework uses it to define a saturation acceleration scale, a_saturation = 8 * a0, where a0 is a characteristic acceleration. The physical picture is that you need eight times the characteristic acceleration to break the eight-beat coherence. This scale feeds into a suppression factor, ξ(g) = 1 / (1 + g / (8*a0)), which multiplies the framework's gravity modification. At low accelerations the factor is near 1, so the modification is fully active; at high accelerations it tends to 0, recovering ordinary Newtonian behavior. The framework's machine-checked library proves two limits: as acceleration goes to infinity the suppression factor goes to 0, and as acceleration goes to 0 it goes to 1, both assuming a0 is positive.

The purpose of this construction is to address a specific observational problem. The framework's gravity kernel overpredicts rotation velocities for high surface brightness galaxies, which are baryon-dominated, and underpredicts for low surface brightness galaxies. The suppression factor is meant to turn off the modification at high acceleration or surface density, recovering Newtonian behavior where it should apply. The radial profile factor n_derived is set to unity for now, with the suppression factor handling the main systematic bias.

What lock_stiffness does not do is prove that the suppression mechanism is physically real. The definition is a hypothesis: the docstring explicitly calls it a hypothesis that at high energy densities the eight-beat lock is overcome by leakage into seven-beat modes. The two proved theorems only establish the mathematical limits of the chosen functional form; they do not establish that this form matches any galaxy rotation data. The constant is a definitional choice within the framework, not a derived physical law, and its connection to observed galaxy dynamics remains a prediction to be tested.

/-- The stiffness of the 8-beat lock against 7-beat leakage.
    Stiffness = 1 / Gap = 8. -/
def lock_stiffness : ℝ := 1 / seven_beat_gap

/-- The acceleration scale where "saturation" (leakage) begins.
    Hypothesis: The critical acceleration `a_sat` is the characteristic scale `a0`
    boosted by the stiffness of the 8-beat lock.

    a_sat = stiffness * a0 = 8 * a0.

    Physical intuition: You need 8x the characteristic acceleration to "break"
    the 8-beat coherence and suppress the ILG effect. -/
def a_saturation (a0 : ℝ) : ℝ := lock_stiffness * a0

/-- Theorem: HSB Suppression recovers Newtonian limit.
    As baryon acceleration goes to infinity, the ILG modification vanishes. -/
theorem hsb_suppression_limit (a0 : ℝ) (ha0 : a0 > 0) :
    Filter.Tendsto (fun g => xi_derived g a0) Filter.atTop (nhds 0) := by
  unfold xi_derived
  have h_sat_pos : a_saturation a0 > 0 := by
    unfold a_saturation lock_stiffness seven_beat_gap
    linarith
  -- Rewrite 1/(1+x) as (1+x)⁻¹ to match inv_tendsto_atTop
  rw [show (fun g => 1 / (1 + g / a_saturation a0)) = (fun g => (1 + g / a_saturation a0)⁻¹) by ext; simp]
  apply Filter.Tendsto.inv_tendsto_atTop
  apply Filter.tendsto_atTop_add_const_left
  apply Filter.Tendsto.atTop_mul_const (inv_pos.mpr h_sat_pos) Filter.tendsto_id

/-- Theorem: LSB Limit is Unsuppressed.
    As baryon acceleration goes to zero, the suppression factor goes to 1. -/
theorem lsb_unsuppressed_limit (a0 : ℝ) (ha0 : a0 > 0) :
    Filter.Tendsto (fun g => xi_derived g a0) (nhds 0) (nhds 1) := by
  unfold xi_derived
  -- We prove 1 / (1 + g / K) -> 1
  -- Rewrite 1 as 1 / (1 + 0 / K)
  conv in (nhds 1) => rw [show (1 : ℝ) = 1 / (1 + 0 / a_saturation a0) by
    field_simp [a_saturation, lock_stiffness, seven_beat_gap]; linarith]
  apply Filter.Tendsto.div
  · exact tendsto_const_nhds
  · apply Filter.Tendsto.add
    · exact tendsto_const_nhds
    · apply Filter.Tendsto.div
      · exact Filter.tendsto_id
      · exact tendsto_const_nhds
      · -- Denominator ≠ 0
        unfold a_saturation lock_stiffness seven_beat_gap
        linarith
  · -- Limit denominator (1 + 0) ≠ 0
    norm_num

What this page does not claim

The suppression mechanism is proven to exist in nature. The constant 8 is derived from a deeper principle; it is a definitional choice based on a mode gap. The two proved limits establish agreement with any galaxy rotation data.

Verify this page

Every tagged claim above names its theorem. To check one yourself rather than trust this page, elaborate the source module with Lean 4 and audit its axiom basis:

$ lake env lean IndisputableMonolith/Gravity/DerivedFactors.lean
expected axiom basis: [propext, Classical.choice, Quot.sound] (the Lean kernel's standard three; no RS-specific axioms)

A page whose claims cannot be reproduced this way does not ship. In production, every anchor links to the exact declaration in the public source release, and this block carries the build receipt for the page itself.

Derived articles

This page is generated by a question-recursion engine: the questions its answers raise become the next pages. The current agenda, with open targets marked red: