Encyclopedia Gravity Gravity Recognition Ledger Recognition Ledger Cert Inhabited
ARTICLE 3 claims 3 theorems
Gravity Recognition Ledger Recognition Ledger Cert Inhabited
A machine-checked certificate proves that a recognition ledger exists for every finite substrate, and that its total cost is zero exactly when the ledger is flat.
The certificate's content
A recognition ledger is a discrete record of comparison costs between cells of a finite substrate. Each pair of cells carries a non-negative cost, the cost is symmetric, and a cell costs zero to compare with itself. The ledger also obeys a triangle-like bound: the cost from one cell to another never exceeds a fixed gate function applied to the costs through any intermediate cell. The gate is R(u,v) = 2uv + 2u + 2v, and the bound is the ledger's subadditivity condition.
The declaration recognitionLedgerCert_inhabited proves that a certificate for these ledgers exists. The certificate packages four facts: for every finite substrate, at least one ledger exists; the flat ledger, where every cost is zero, has total cost zero; every ledger has non-negative total cost; and total cost is zero exactly when the ledger is flat. The flat ledger itself is defined explicitly, with all costs set to zero, and it satisfies every ledger property by construction.
The certificate is a theorem in the machine-checked library of formal theorems, proved with no unproved assumptions. Its content is structural: it establishes that the definition of a recognition ledger is coherent, that flat ledgers exist, and that the total cost behaves as the definition demands. It does not claim that any particular physical ledger exists, that gravity arises from these ledgers, or that the total cost matches any measured value.
What the certificate changes is the status of the ledger definition itself. Before the certificate, one could ask whether the axioms of a recognition ledger are consistent, whether the flat case is genuinely flat, and whether total cost zero forces flatness. The certificate answers all three: consistency holds, flatness is realized, and the zero-cost characterization is proved. The definition is no longer a proposal; it is a working structure with verified properties.
THEOREM recognitionLedgerCert_inhabited · IndisputableMonolith/Gravity/RecognitionLedger.lean
theorem recognitionLedgerCert_inhabited :
Nonempty RecognitionLedgerCert :=
⟨recognitionLedgerCert⟩
THEOREM RecognitionLedgerCert · recognitionLedgerCert · IndisputableMonolith/Gravity/RecognitionLedger.lean
structure RecognitionLedgerCert where
flat_exists : ∀ (Λ : Type) [Fintype Λ] [DecidableEq Λ],
Nonempty (RecognitionLedger Λ)
flat_total_zero : ∀ (Λ : Type) [Fintype Λ] [DecidableEq Λ],
totalCost (flatLedger Λ) = 0
total_nonneg : ∀ {Λ : Type} [Fintype Λ] [DecidableEq Λ]
(L : RecognitionLedger Λ), 0 ≤ totalCost L
zero_iff_flat : ∀ {Λ : Type} [Fintype Λ] [DecidableEq Λ]
(L : RecognitionLedger Λ), totalCost L = 0 ↔ isFlat L
def recognitionLedgerCert : RecognitionLedgerCert where
flat_exists := fun Λ _ _ => ⟨flatLedger Λ⟩
flat_total_zero := fun Λ _ _ => flatLedger_totalCost_zero Λ
total_nonneg := fun L => totalCost_nonneg L
zero_iff_flat := fun L => totalCost_eq_zero_iff_flat L
THEOREM flatLedger · flatLedger_isFlat · IndisputableMonolith/Gravity/RecognitionLedger.lean
/-- The flat (zero) ledger on any finite lattice. -/
def flatLedger (Λ : Type*) [Fintype Λ] [DecidableEq Λ] : RecognitionLedger Λ where
cost := fun _ _ => 0
symmetric := fun _ _ => rfl
diagonal_zero := fun _ => rfl
nonneg := fun _ _ => le_refl 0
rcl_subadditive := fun _ _ _ => by unfold rclGate; norm_num
theorem flatLedger_isFlat (Λ : Type*) [Fintype Λ] [DecidableEq Λ] :
isFlat (flatLedger Λ) :=
fun _ _ => rfl
What this page does not claim
The certificate does not claim that any particular physical ledger exists in nature. The certificate does not claim that gravity is derived from the ledger structure. The certificate does not claim that the total ledger cost matches any measured physical quantity.
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/RecognitionLedger.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:
- What physical significance, if any, does the flat ledger have in the framework's account of gravity?
- How does the total ledger cost connect to the Regge action in the continuum limit?
- What role does the boundary cost between interior and exterior cells play in the page curve calculation?
MACHINE LAYER · GROUNDED CLAIM TABLE · CLICK TO EXPAND
THEOREM recognitionLedgerCert_inhabited · IndisputableMonolith/Gravity/RecognitionLedger.lean
theorem recognitionLedgerCert_inhabited : Nonempty RecognitionLedgerCert := ⟨recognitionLedgerCert⟩The declaration recognitionLedgerCert_inhabited proves that a certificate for these ledgers exists. recognitionLedgerCert_inhabited · IndisputableMonolith/Gravity/RecognitionLedger.leanTHEOREM RecognitionLedgerCert · recognitionLedgerCert · IndisputableMonolith/Gravity/RecognitionLedger.lean
structure RecognitionLedgerCert where flat_exists : ∀ (Λ : Type) [Fintype Λ] [DecidableEq Λ], Nonempty (RecognitionLedger Λ) flat_total_zero : ∀ (Λ : Type) [Fintype Λ] [DecidableEq Λ], totalCost (flatLedger Λ) = 0 total_nonneg : ∀ {Λ : Type} [Fintype Λ] [DecidableEq Λ] (L : RecognitionLedger Λ), 0 ≤ totalCost L zero_iff_flat : ∀ {Λ : Type} [Fintype Λ] [DecidableEq Λ] (L : RecognitionLedger Λ), totalCost L = 0 ↔ isFlat Ldef recognitionLedgerCert : RecognitionLedgerCert where flat_exists := fun Λ _ _ => ⟨flatLedger Λ⟩ flat_total_zero := fun Λ _ _ => flatLedger_totalCost_zero Λ total_nonneg := fun L => totalCost_nonneg L zero_iff_flat := fun L => totalCost_eq_zero_iff_flat LThe certificate packages four facts: for every finite substrate, at least one ledger exists; the flat ledger, where every cost is zero, has total cost zero; every ledger has non-negative total cost; and total cost is zero exactly when the ledger is flat. RecognitionLedgerCert · recognitionLedgerCert · IndisputableMonolith/Gravity/RecognitionLedger.leanTHEOREM flatLedger · flatLedger_isFlat · IndisputableMonolith/Gravity/RecognitionLedger.lean
/-- The flat (zero) ledger on any finite lattice. -/ def flatLedger (Λ : Type*) [Fintype Λ] [DecidableEq Λ] : RecognitionLedger Λ where cost := fun _ _ => 0 symmetric := fun _ _ => rfl diagonal_zero := fun _ => rfl nonneg := fun _ _ => le_refl 0 rcl_subadditive := fun _ _ _ => by unfold rclGate; norm_numtheorem flatLedger_isFlat (Λ : Type*) [Fintype Λ] [DecidableEq Λ] : isFlat (flatLedger Λ) := fun _ _ => rflThe flat ledger itself is defined explicitly, with all costs set to zero, and it satisfies every ledger property by construction. flatLedger · flatLedger_isFlat · IndisputableMonolith/Gravity/RecognitionLedger.lean