Flatly Foliated Relativity: FFR equations, elliptic form, spherical symmetry
DefinitionFlatlyFoliatedRelativity_basicBasic objects of Flatly Foliated Relativity on a flat slice (all fields are functions of ; one-forms are identified with vector fields via the flat metric; the paper's is written w).
- Coordinate derivatives , the Laplacian , the divergence (with ), the gradient , and .
- The FFR equations (34)–(35) for with data , required at every point:
- The elliptic form (39)–(41) for , with :
together with . 4. Spherical symmetry: a scalar is spherically symmetric if for every linear isometry of ; is spherically symmetric at infinity if for some , and for all such and all . 5. Spherical symmetrization (75): . 6. Approximate spherical symmetry at (Theorem 5): with , is bounded and for every there is with whenever .
These definitions are shared by every statement of the mission.
Formalization Note Space is EuclideanSpace ℝ (Fin 3); partial derivatives are fderiv evaluated on standard basis vectors, so all theorems assume smoothness. Isometry invariance is equivalent to rotation invariance because is transitive on spheres. Norms of and are operator norms (any choice of norm gives the same condition since the limit is ).
import Mathlib
/-!
# Flatly Foliated Relativity — basic definitions
Bray, Hamm, Hirsch, Wheeler, Zhang, *Flatly Foliated Relativity*, arXiv:1911.00967v2.
Everything here lives on a single flat slice `ℝ³_t` of the foliation (the FFR equations
contain no time derivatives), modelled as `EuclideanSpace ℝ (Fin 3)`. One-forms such as
`ω`, `ζ`, `J` are identified with vector fields via the flat metric `δ_{ℝ³}`.
The paper's `ω` is written `w` in Lean (the glyph `ω` is reserved notation in Mathlib).
-/
open scoped ContDiff
namespace FlatlyFoliated
/-- Euclidean space `ℝ³`, the flat slice `ℝ³_t`. -/
abbrev R3 : Type := EuclideanSpace ℝ (Fin 3)
/-- Coordinate partial derivative `∂ᵢ u` of a real function on `ℝ³`. -/
noncomputable def pd (i : Fin 3) (u : R3 → ℝ) : R3 → ℝ :=
fun x => fderiv ℝ u x (EuclideanSpace.single i 1)
/-- The `i`-th component `wᵢ` of a vector field (one-form) on `ℝ³`. -/
def comp (w : R3 → R3) (i : Fin 3) : R3 → ℝ := fun x => w x i
/-- Flat Laplacian `Δu = Σᵢ uᵢᵢ`. -/
noncomputable def lap (u : R3 → ℝ) : R3 → ℝ :=
fun x => ∑ i, pd i (pd i u) x
/-- Divergence `∇ · w = Σᵢ wᵢ,ᵢ`. -/
noncomputable def divg (w : R3 → R3) : R3 → ℝ :=
fun x => ∑ i, pd i (comp w i) x
/-- Gradient `df` (as a vector field), with components `fᵢ`. -/
noncomputable def grad (u : R3 → ℝ) : R3 → R3 :=
fun x => ∑ i, pd i u x • EuclideanSpace.single i (1 : ℝ)
/-- Squared Frobenius norm of the Hessian, `‖fᵢⱼ‖² = Σᵢⱼ fᵢⱼ²`. -/
noncomputable def hessNormSq (u : R3 → ℝ) : R3 → ℝ :=
fun x => ∑ i, ∑ j, (pd j (pd i u) x) ^ 2
/-- Paper eq. (34) at a point `x`:
`2Λ + 16πμ = η⁻² [ (∇·w)² − ¼ ‖wᵢ,ⱼ + wⱼ,ᵢ‖² ]`. -/
def Eq34 (Λ : ℝ) (μ : R3 → ℝ) (w : R3 → R3) (η : R3 → ℝ) (x : R3) : Prop :=
2 * Λ + 16 * Real.pi * μ x =
(1 / η x ^ 2) * (divg w x ^ 2 -
(1 / 4) * ∑ i, ∑ j, (pd j (comp w i) x + pd i (comp w j) x) ^ 2)
/-- Paper eq. (35) at a point `x`, for the index `i`:
`16πJᵢ = η⁻¹(Δwᵢ − d(∇·w)ᵢ) + 2η⁻²(∇·w)ηᵢ − η⁻² Σⱼ (wᵢ,ⱼ + wⱼ,ᵢ) ηⱼ`. -/
def Eq35 (J : R3 → R3) (w : R3 → R3) (η : R3 → ℝ) (x : R3) (i : Fin 3) : Prop :=
16 * Real.pi * J x i =
(1 / η x) * (lap (comp w i) x - pd i (divg w) x)
+ (2 / η x ^ 2) * divg w x * pd i η x
- (1 / η x ^ 2) * ∑ j, (pd j (comp w i) x + pd i (comp w j) x) * pd j η x
/-- **The Flatly Foliated Relativity equations** (34)–(35) on `ℝ³`, with cosmological
constant `Λ`, energy density `μ` and momentum density `J`, for the unknowns `(w, η)`. -/
def FFREquations (Λ : ℝ) (μ : R3 → ℝ) (J : R3 → R3) (w : R3 → R3) (η : R3 → ℝ) : Prop :=
∀ x, Eq34 Λ μ w η x ∧ ∀ i, Eq35 J w η x i
/-- `Qᵢⱼ = fᵢⱼ + ½(ζᵢ,ⱼ + ζⱼ,ᵢ)`. -/
noncomputable def Qmat (f : R3 → ℝ) (ζ : R3 → R3) (i j : Fin 3) : R3 → ℝ :=
fun x => pd j (pd i f) x + (1 / 2) * (pd j (comp ζ i) x + pd i (comp ζ j) x)
/-- The coefficient matrix `Δf · δᵢⱼ − Qᵢⱼ` appearing in (40), (41). -/
noncomputable def ellCoeff (f : R3 → ℝ) (ζ : R3 → R3) (i j : Fin 3) : R3 → ℝ :=
fun x => (if i = j then lap f x else 0) - Qmat f ζ i j x
/-- **The FFR equations in elliptic form** (39)–(41) on `ℝ³` for the unknowns
`(f, ζ, η)`, together with the requirement `lim_{x→∞} ∇·ζ = 0`:
* (39) `(Δf)² − ‖Qᵢⱼ‖² = (16πμ + 2Λ) η²`,
* (40) `Δζᵢ = 16π Jᵢ η − (2/η) Σⱼ (Δf δᵢⱼ − Qᵢⱼ) ηⱼ`,
* (41) `Σᵢⱼ (Δf δᵢⱼ − Qᵢⱼ) ηᵢⱼ = 8π ∇·(J η²)`. -/
def EllipticSystem (Λ : ℝ) (μ : R3 → ℝ) (J : R3 → R3) (f : R3 → ℝ) (ζ : R3 → R3)
(η : R3 → ℝ) : Prop :=
(∀ x, lap f x ^ 2 - ∑ i, ∑ j, Qmat f ζ i j x ^ 2 = (16 * Real.pi * μ x + 2 * Λ) * η x ^ 2) ∧
(∀ x i, lap (comp ζ i) x =
16 * Real.pi * J x i * η x - (2 / η x) * ∑ j, ellCoeff f ζ i j x * pd j η x) ∧
(∀ x, ∑ i, ∑ j, ellCoeff f ζ i j x * pd j (pd i η) x =
8 * Real.pi * divg (fun y => η y ^ 2 • J y) x) ∧
Filter.Tendsto (divg ζ) (Bornology.cobounded R3) (nhds 0)
/-- A scalar function on `ℝ³` is spherically symmetric: invariant under every linear
isometry of `ℝ³` (equivalently, under every rotation, since `SO(3)` acts transitively on
spheres). -/
def IsSphSymm (u : R3 → ℝ) : Prop :=
∀ (R : R3 ≃ₗᵢ[ℝ] R3) (x : R3), u (R x) = u x
/-- The pair `(w, η)` is *spherically symmetric at infinity* (paper §5): there is
`r₀ > 0` such that `(w, η)` is spherically symmetric on `{r ≥ r₀}`, i.e. `η` is invariant and
the one-form `w` is equivariant under every linear isometry `R` of `ℝ³` at points with
`‖x‖ ≥ r₀`. -/
def SphSymmAtInfty (w : R3 → R3) (η : R3 → ℝ) : Prop :=
∃ r₀ : ℝ, 0 < r₀ ∧ ∀ (R : R3 ≃ₗᵢ[ℝ] R3) (x : R3), r₀ ≤ ‖x‖ →
η (R x) = η x ∧ w (R x) = R (w x)
/-- Spherical symmetrization (paper eq. (75)):
`ψ̄(x) = (1/|S²|) ∫_{S²} ψ(|x| u) dσ(u)`, the average of `ψ` over the sphere of radius `|x|`. -/
noncomputable def sphSymmetrization (ψ : R3 → ℝ) : R3 → ℝ :=
fun x => ⨍ u, ψ (‖x‖ • u.1) ∂((MeasureTheory.volume : MeasureTheory.Measure R3).toSphere)
/-- `f` is *approximately spherically symmetric at ∞* (paper, Theorem 5): with
`g = f − f̄`, `g` is bounded and `limsup_{r→∞} sup_{x ∈ S_r} r² ‖∇²g(x)‖ ‖∇g(x)‖ = 0`. -/
def ApproxSphSymmAtInfty (f : R3 → ℝ) : Prop :=
(∃ C : ℝ, ∀ x, |f x - sphSymmetrization f x| ≤ C) ∧
∀ ε > 0, ∃ R : ℝ, ∀ x : R3, R ≤ ‖x‖ →
‖x‖ ^ 2 * (‖fderiv ℝ (fderiv ℝ (fun y => f y - sphSymmetrization f y)) x‖ *
‖fderiv ℝ (fun y => f y - sphSymmetrization f y) x‖) ≤ ε
end FlatlyFoliated
Confirmed by the mission captain (proposal self-audit).
Confirmed by the moderator at approval.