Boyer–Lindquist to ingoing Kerr: pull-back identity of the metrics
ProvedExactVacuumAtlas.Kerr.R3.pullbackLet be real numbers, arbitrary, , , and in the regular domain . Let be the map and let
Then, with the Boyer–Lindquist Kerr metric (platform definition KerrBL_Kerr_Metric, coordinates ): , , , , , other entries , with its closed-form candidate inverse (, and a block with denominator ) and the ingoing (Kerr's original, advanced) Kerr metric of bundle Atlas_Kerr_InDefs, read off from Visser's line element , , with the half-Hessian convention (): in coordinates and with , , , , , , , all remaining entries ; its candidate inverse has , , , with , , , all remaining entries (both matrices are symmetric; every symmetric counterpart is listed):
The algebraic half of relation R3. Because depends only on , which preserves, this identity does not involve ; it certifies the change of coordinates only together with the Jacobian theorem stating that consists of the genuine partial derivatives of (which is where , enter). Both are combined in ExactVacuumAtlas.Release01.R3_boyerLindquist_ingoing.
Formalization Note Everything is coordinate-level on (points are functions ): no manifold, chart gluing, periodicity of , horizon, causal or global statement is made. Partial derivatives are Mathlib's deriv of coordinate slices; the certificates' obligations make every derivative used a genuine derivative. Units , signature .
import Mathlib import Definitions.Def_Atlas_Core_Basic import Definitions.Def_Atlas_Kerr_Domain import Definitions.Def_Atlas_Kerr_InDefs import Definitions.Def_Atlas_Kerr_R3 import Definitions.Def_KerrBL_CoordGeometry import Definitions.Def_KerrBL_Kerr_Metric open Real open scoped ContDiff open ExactVacuumAtlas ExactVacuumAtlas.Kerr open ExactVacuumAtlas open ExactVacuumAtlas.Kerr open ExactVacuumAtlas.Kerr.R3 set_option maxHeartbeats 4000000 variable (M a : ℝ) (H₁ H₂ : ℝ → ℝ) variable (h₁ : ContDiffOn ℝ ∞ H₁ (radDom M a)) (h₂ : ContDiffOn ℝ ∞ H₂ (radDom M a)) include h₁ h₂ omit h₁ h₂ variable (d₁ : ∀ r ∈ radDom M a, HasDerivAt H₁ (2 * M * r / Delta M a r) r) variable (d₂ : ∀ r ∈ radDom M a, HasDerivAt H₂ (a / Delta M a r) r) include d₁ omit d₁ include d₂ omit d₂ include d₁ d₂ omit d₁ d₂
theorem ExactVacuumAtlas.Kerr.R3.pullback {x : Pt 4} (hx : x ∈ domBL M a) :
(jac M a x).transpose * metricMatrix (In.gIn M a) (toIn H₁ H₂ x) * jac M a x =
metricMatrix (KerrBL.gKerr M a) x := by sorryConfirmed by the mission captain (proposal self-audit).
Confirmed by the moderator at approval.