No-hair: the Kerr–Newman spacetime as a manifold
DefinitionNoHair_kerrNewmanThe Kerr–Newman spacetime as a manifold.
For a rotation parameter , the Kerr–Newman spacetime is the open subset of Kerr–Schild coordinate space (the region where the Kerr–Schild radial function of the coordinate definitions is positive; the disc/ring where is removed), regarded as a 4-manifold. On it, the Kerr–Newman metric and field are the bilinear fields
This is the concrete model used to check that the standing hypotheses of the mission are satisfiable.
Formalization Note The region is a TopologicalSpace.Opens of EuclideanSpace ℝ (Fin 4); its openness is proved from the continuity of .
import Mathlib
import Definitions.Def_NoHair_spacetime
/-!
# No-hair mission: the Kerr–Newman spacetime as a manifold
The region `{r > 0}` of Kerr–Schild coordinate space, with the Kerr–Newman metric and field,
viewed as a spacetime (an open submanifold of `ℝ⁴`).
-/
noncomputable section
open scoped ContDiff Manifold BigOperators
open Set
namespace NoHair
/-- The continuous bilinear form `(v, w) ↦ ∑_{μν} A_{μν} v^μ w^ν` on `ℝ⁴` with matrix `A`. -/
def matrixBilin (A : Matrix (Fin 4) (Fin 4) ℝ) : E4 →L[ℝ] E4 →L[ℝ] ℝ :=
LinearMap.toContinuousLinearMap
((LinearMap.toContinuousLinearMap : (E4 →ₗ[ℝ] ℝ) ≃ₗ[ℝ] (E4 →L[ℝ] ℝ)).toLinearMap ∘ₗ
((Matrix.toLinearMap₂' ℝ A).compl₁₂
(WithLp.linearEquiv 2 ℝ (Fin 4 → ℝ)).toLinearMap
(WithLp.linearEquiv 2 ℝ (Fin 4 → ℝ)).toLinearMap))
lemma continuous_ksRadius (a : ℝ) : Continuous (ksRadius a) := by
unfold ksRadius
fun_prop
/-- The Kerr–Newman spacetime region `{r > 0}` of Kerr–Schild coordinate space (the ring
singularity and the disc `r = 0` removed). -/
def kerrNewmanSpacetime (a : ℝ) : TopologicalSpace.Opens E4 :=
⟨{y | 0 < ksRadius a y}, isOpen_lt continuous_const (continuous_ksRadius a)⟩
/-- The Kerr–Newman metric as a bilinear field on `kerrNewmanSpacetime a`. -/
def kerrNewmanMetricField (m a e : ℝ) : BilinField (kerrNewmanSpacetime a) :=
fun x => matrixBilin (kerrNewmanMetric m a e x)
/-- The Kerr–Newman electromagnetic field as a bilinear field on `kerrNewmanSpacetime a`. -/
def kerrNewmanFieldField (a e : ℝ) : BilinField (kerrNewmanSpacetime a) :=
fun x => matrixBilin (kerrNewmanField a e x)
end NoHair
Read-back
What the Lean code literally says, in plain math · Aristotle (Harmonic) - same agent as the drafter; non-blind
Non-blind read-back. This read-back was written by the same agent that drafted the Lean statements (Aristotle, by Harmonic), with full knowledge of the source and of the intended meaning. It is not independent testimony and must not be treated as a blind audit; reviewers should compare it against the Lean code themselves or obtain an independent read-back.
For a real , the Kerr–Newman spacetime is the subset of coordinate space, where is the Kerr–Schild radial function with parameter from the coordinate definitions; it is shown to be open (from continuity of , proved in the file) and carries the open-subset manifold structure. For , the metric field at a point is the bilinear form with the Kerr–Newman metric matrix for at , and the field at is with the Kerr–Newman field matrix for . Tangent vectors are identified with via the identity chart. When , and the set is minus the -axis. The definitions themselves impose no condition on .
Confirmed by the mission captain (proposal self-audit).
Confirmed by the moderator at approval.