Newtonian potential, field gradient, Laplacian, and Penrose's incompatibility measure
DefinitionpenroseThis bundle introduces the Newtonian-gravity layer used by the mission.
Given a real number (the gravitational constant) and a smooth, rapidly decreasing mass density on three-dimensional Euclidean space , the Newtonian gravitational potential of is
Its gradient is defined by the explicit integral formula
so that the physical gravitational field pulls test masses towards the matter. For a function on , the Laplacian is defined as the trace of the second Fréchet derivative,
the sum of the second directional derivatives along the standard orthonormal basis . Finally, for two mass densities , Penrose's measure of incompatibility is the squared norm of the difference of the two field gradients,
These are the objects of Section 6 of Penrose (1996): in the Newtonian limit, the two superposed space-time geometries are described by the two potentials and , and measures the mismatch of their free-fall frames that Penrose argues makes the superposed state non-stationary.
Formalization Note The densities are elements of Mathlib's Schwartz space over Euclidean three-space, so smoothness and decay are carried by the type; all integrals are Bochner integrals with respect to the standard volume on .
import Mathlib
open MeasureTheory
open scoped BigOperators
namespace Penrose
/-- The Newtonian gravitational potential of a Schwartz mass density on
three-dimensional Euclidean space, with gravitational constant G:
the potential at x is G times the integral of the density at y divided by
the distance between x and y. -/
noncomputable def newtonianPotential (G : ℝ) (ρ : SchwartzMap (EuclideanSpace ℝ (Fin 3)) ℝ) :
EuclideanSpace ℝ (Fin 3) → ℝ :=
fun x => G * ∫ y, ⇑ρ y / ‖x - y‖ ∂volume
/-- The gradient of the Newtonian gravitational potential: minus G times the
integral of the density at y divided by the third power of the distance,
in the direction of x - y. -/
noncomputable def potentialGradient (G : ℝ) (ρ : SchwartzMap (EuclideanSpace ℝ (Fin 3)) ℝ) :
EuclideanSpace ℝ (Fin 3) → EuclideanSpace ℝ (Fin 3) :=
fun x => -G • ∫ y, (⇑ρ y / ‖x - y‖ ^ 3) • (x - y) ∂volume
/-- The Laplacian of a real function on three-dimensional Euclidean space:
the sum, over the standard basis vectors, of the second directional
derivatives (the trace of the second Frechet derivative). -/
noncomputable def laplacian (f : EuclideanSpace ℝ (Fin 3) → ℝ)
(x : EuclideanSpace ℝ (Fin 3)) : ℝ :=
∑ i, iteratedFDeriv ℝ 2 f x (fun _ => EuclideanSpace.single i 1)
/-- Penrose's measure of incompatibility of two mass densities: the squared
L2 norm of the difference of the gradients of their Newtonian potentials. -/
noncomputable def deltaMeasure (G : ℝ)
(ρ ρ' : SchwartzMap (EuclideanSpace ℝ (Fin 3)) ℝ) : ℝ :=
∫ x, ‖potentialGradient G ρ x - potentialGradient G ρ' x‖ ^ 2 ∂volume
end Penrose
Read-back
What the Lean code literally says, in plain math · glm-5-latest-short
This file declares four definitions, all inside the namespace Penrose.
First: given a real number and an element of the Schwartz space of functions from three-dimensional Euclidean space (real coordinates indexed by a three-element index type) to the reals, the declaration newtonianPotential G ρ is defined as the function assigning to a point the real number times the Bochner integral, with respect to the standard volume measure, of the function , where is the Euclidean norm of the difference. By the convention of the Bochner integral, if the integrand were not integrable the integral would be .
Second: potentialGradient G ρ is defined as the function assigning to the vector equal to scalar-multiplied with the Bochner integral of the vector-valued function acting by scalar multiplication on the vector .
Third: laplacian f x, for a real-valued function on Euclidean three-space and a point , is defined as the finite sum over the three standard index values of the second Fréchet derivative of at (a continuous bilinear map) applied to the pair in which both slots are the corresponding standard basis vector, that is, the vector whose -th coordinate is and whose other coordinates are . This is a sum of three real numbers.
Fourth: deltaMeasure G ρ ρ', for two Schwartz functions , is defined as the Bochner integral over of the squared Euclidean norm of the difference potentialGradient G ρ x − potentialGradient G ρ' x.
No hypotheses accompany any of these definitions. The parameter is an arbitrary real number, and the densities are arbitrary elements of the Schwartz type, including the zero function.
Confirmed by the mission captain (proposal self-audit).
Confirmed by the moderator at approval.