Encyclopedia Gravity Gravity Seven Gaps Hypersurface Deformation Bracket Coord P Coord P
ARTICLE 3 claims 3 theorems
Gravity Seven Gaps Hypersurface Deformation Bracket Coord P Coord P
A machine-checked theorem about a lattice wave field confirms that position and momentum coordinates behave as independent degrees of freedom, with a precise rule for when they interact.
A basic bracket relation
In classical mechanics, the Poisson bracket measures how two quantities change together in a phase space. For a simple system with one position coordinate q and one momentum coordinate p, the bracket {q, p} equals 1, while {q, q} and {p, p} both equal 0. These relations encode the fundamental independence of position and momentum: knowing one does not determine the other.
The Recognition Science declaration bracket_coordP_coordP establishes the analogous statement for a discrete model: the bracket of a momentum coordinate with itself vanishes identically. In this model, the phase space consists of a periodic lattice with n sites, where each site carries a field value q and a conjugate momentum pi. The bracket is defined as a sum over all sites of products of partial derivatives, implemented using Fréchet derivatives.
This result is part of a larger program to build a discrete version of the ADM constraint algebra from general relativity. Alongside the companion theorem bracket_coordQ_coordQ, which shows the bracket of a position coordinate with itself also vanishes, and bracket_coordQ_coordP, which gives the value 1 when the sites match and 0 otherwise, the three relations together confirm that the lattice coordinates form a canonical set. The theorems are unconditional and axiom-clean, meaning they hold without extra hypotheses.
What this declaration does not claim is just as important. It does not assert anything about the full gravitational field, since this model has no metric degree of freedom. It does not prove the Jacobi identity for the bracket, which remains an open problem for non-polynomial observables. And it does not recover the full Dirac algebra in the continuum limit, a target that remains open.
THEOREM bracket_self · IndisputableMonolith/Gravity/SevenGaps/HypersurfaceDeformation.lean
/-- THEOREM. The bracket of an observable with itself vanishes. -/
theorem bracket_self (F : PhaseSpace n → ℝ) (x : PhaseSpace n) :
bracket F F x = 0 := by
have h := bracket_antisymm F F x
linarith
THEOREM bracket_self · IndisputableMonolith/Gravity/SevenGaps/HypersurfaceDeformation.lean
/-- THEOREM. The bracket of an observable with itself vanishes. -/
theorem bracket_self (F : PhaseSpace n → ℝ) (x : PhaseSpace n) :
bracket F F x = 0 := by
have h := bracket_antisymm F F x
linarith
THEOREM bracket_coordQ_coordP · IndisputableMonolith/Gravity/SevenGaps/HypersurfaceDeformation.lean
/-- THEOREM. Canonical relation `{q_k, pi_l} = delta_{kl}`. -/
theorem bracket_coordQ_coordP (k l : ZMod n) (x : PhaseSpace n) :
bracket (fun y : PhaseSpace n => y.1 k) (fun y : PhaseSpace n => y.2 l) x
= if k = l then (1 : ℝ) else 0 := by
have hQ : ∀ i : ZMod n, pderivQ (fun y : PhaseSpace n => y.1 k) i x
= if k = i then (1 : ℝ) else 0 := by
intro i
rw [pderivQ, (hasFDerivAt_coord_fst k x).fderiv]
simp [coordQ, Pi.single_apply]
have hP0 : ∀ i : ZMod n, pderivP (fun y : PhaseSpace n => y.1 k) i x = 0 := by
intro i
rw [pderivP, (hasFDerivAt_coord_fst k x).fderiv]
simp [coordQ]
have hP : ∀ i : ZMod n, pderivP (fun y : PhaseSpace n => y.2 l) i x
= if l = i then (1 : ℝ) else 0 := by
intro i
rw [pderivP, (hasFDerivAt_coord_snd l x).fderiv]
simp [coordP, Pi.single_apply]
have hQ0 : ∀ i : ZMod n, pderivQ (fun y : PhaseSpace n => y.2 l) i x = 0 := by
intro i
rw [pderivQ, (hasFDerivAt_coord_snd l x).fderiv]
simp [coordP]
simp only [bracket, hQ, hP, hQ0, hP0, mul_zero, sub_zero]
by_cases hkl : k = l
· subst hkl
rw [Finset.sum_eq_single k]
· simp
· intro b _ hb
simp [Ne.symm hb]
· intro h
exact absurd (Finset.mem_univ _) h
· rw [if_neg hkl]
apply Finset.sum_eq_zero
intro i _
by_cases hk : k = i
· subst hk
have : ¬(l = k) := fun h => hkl h.symm
simp [this]
· simp [hk]
What this page does not claim
This declaration does not model the full gravitational field, which has no metric degree of freedom here. It does not prove the Jacobi identity for the bracket, which remains open for non-polynomial observables. It does not recover the full Dirac algebra in the continuum limit.
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/SevenGaps/HypersurfaceDeformation.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:
- How does the discrete bracket behave for products of coordinates?
- What additional structure is needed to prove the Jacobi identity for polynomial observables?
- How does the lattice spacing affect the recovery of the continuum Dirac algebra?
MACHINE LAYER · GROUNDED CLAIM TABLE · CLICK TO EXPAND
THEOREM bracket_self · IndisputableMonolith/Gravity/SevenGaps/HypersurfaceDeformation.lean
/-- THEOREM. The bracket of an observable with itself vanishes. -/ theorem bracket_self (F : PhaseSpace n → ℝ) (x : PhaseSpace n) : bracket F F x = 0 := by have h := bracket_antisymm F F x linarithThe bracket of a momentum coordinate with itself vanishes identically. bracket_self · IndisputableMonolith/Gravity/SevenGaps/HypersurfaceDeformation.leanTHEOREM bracket_self · IndisputableMonolith/Gravity/SevenGaps/HypersurfaceDeformation.lean
/-- THEOREM. The bracket of an observable with itself vanishes. -/ theorem bracket_self (F : PhaseSpace n → ℝ) (x : PhaseSpace n) : bracket F F x = 0 := by have h := bracket_antisymm F F x linarithThe bracket of a position coordinate with itself also vanishes. bracket_self · IndisputableMonolith/Gravity/SevenGaps/HypersurfaceDeformation.leanTHEOREM bracket_coordQ_coordP · IndisputableMonolith/Gravity/SevenGaps/HypersurfaceDeformation.lean
/-- THEOREM. Canonical relation `{q_k, pi_l} = delta_{kl}`. -/ theorem bracket_coordQ_coordP (k l : ZMod n) (x : PhaseSpace n) : bracket (fun y : PhaseSpace n => y.1 k) (fun y : PhaseSpace n => y.2 l) x = if k = l then (1 : ℝ) else 0 := by have hQ : ∀ i : ZMod n, pderivQ (fun y : PhaseSpace n => y.1 k) i x = if k = i then (1 : ℝ) else 0 := by intro i rw [pderivQ, (hasFDerivAt_coord_fst k x).fderiv] simp [coordQ, Pi.single_apply] have hP0 : ∀ i : ZMod n, pderivP (fun y : PhaseSpace n => y.1 k) i x = 0 := by intro i rw [pderivP, (hasFDerivAt_coord_fst k x).fderiv] simp [coordQ] have hP : ∀ i : ZMod n, pderivP (fun y : PhaseSpace n => y.2 l) i x = if l = i then (1 : ℝ) else 0 := by intro i rw [pderivP, (hasFDerivAt_coord_snd l x).fderiv] simp [coordP, Pi.single_apply] have hQ0 : ∀ i : ZMod n, pderivQ (fun y : PhaseSpace n => y.2 l) i x = 0 := by intro i rw [pderivQ, (hasFDerivAt_coord_snd l x).fderiv] simp [coordP] simp only [bracket, hQ, hP, hQ0, hP0, mul_zero, sub_zero] by_cases hkl : k = l · subst hkl rw [Finset.sum_eq_single k] · simp · intro b _ hb simp [Ne.symm hb] · intro h exact absurd (Finset.mem_univ _) h · rw [if_neg hkl] apply Finset.sum_eq_zero intro i _ by_cases hk : k = i · subst hk have : ¬(l = k) := fun h => hkl h.symm simp [this] · simp [hk]The bracket of a position coordinate with a momentum coordinate equals 1 when the sites match and 0 otherwise. bracket_coordQ_coordP · IndisputableMonolith/Gravity/SevenGaps/HypersurfaceDeformation.lean