def
definition
liCoupling
show as:
view math explainer →
open explainer
Read the cached plain-language explainer.
open lean source
IndisputableMonolith.Gravity.Candidates.Li on GitHub at line 39.
browse module
All declarations in this module, on Recognition.
explainer page
depends on
used by
formal source
36/-- Li's coupling coefficient (simplified display form).
37 k_Li = (μ_g / μ) * (m / q)
38 In RS, we treat (μ_g / μ) as the "Coherence Gain". -/
39def liCoupling (mu_g mu m q : ℝ) : ℝ := (mu_g / mu) * (m / q)
40
41/-- The RS-modified gravitomagnetic field hypothesis.
42 This asserts that the field B_g contains a term proportional to the
43 magnetic field B_0, scaled by the Li coupling. -/
44def CoherentGravitomagnetism (B_g0 B_0 : ℝ) (mu_g mu m q : ℝ) : Prop :=
45 let B_g_internal := B_g0 + liCoupling mu_g mu m q * B_0
46 -- The claim is that this internal field is physically realized.
47 True -- Placeholder for field equation integration
48
49/-- RS Falsifier: Coherence Gating.
50 The effect MUST vanish if the system is not superconducting (T > Tc).
51 We model this by asserting the coupling becomes zero (or negligible)
52 when coherence is lost. -/
53def CoherenceGateFalsifier (T Tc : ℝ) (measured_coupling : ℝ) : Prop :=
54 if T > Tc then
55 measured_coupling ≈ 0
56 else
57 measured_coupling > 0
58
59/-- RS Falsifier: Sign Flip.
60 Since B_0 is a vector field, reversing B_0 (or the current) must reverse
61 the induced gravitomagnetic component.
62 B_g_induced(-B_0) = -B_g_induced(B_0). -/
63def SignFlipFalsifier (B_0 : ℝ) (induced_Bg : ℝ → ℝ) : Prop :=
64 induced_Bg (-B_0) = -induced_Bg B_0
65
66end Li
67end Candidates
68end Gravity
69end IndisputableMonolith