Classified vector (actual VII-06 classification, either sign)
ProvedExactVacuumAtlas.EinsteinMaxwell.ES5.KerrSchild.Geodesic.classified_momentaClassified vector (actual VII-06 classification, either sign). At a point of the actual
domain with f, m, N, alphaSq > 0 and the actual Einstein–Maxwell equations, a nonzero, actually
null, actually Ricci-null v has common scale ρ = f v⁰/e ≠ 0, v¹ ≠ 0, and lowered components
(gv)₀ = -ρ p', (gv)₃ = -ρ u a', (gv)₄ = -ρ (1-u) a' (the same for both principal lines).
Scope. Supporting result in the formal proof chain of Atlas VII Unit A: the restricted geodesic Kerr–Schild obstruction on the actual asymptotic branch of the five-dimensional, , source-free Einstein–Maxwell radial system with two equal-magnitude angular momenta. It asserts exactly the Lean statement of this node for the data stated there; it does not claim the existence of a solution, a horizon or a black hole.
import Mathlib
import Definitions.Def_Atlas_Core_Basic
import Definitions.Def_Atlas_EinsteinMaxwell_Basic
import Definitions.Def_Atlas_EinsteinMaxwell_D_Basic
import Definitions.Def_Atlas_EinsteinMaxwell_ES5_Defs
import Definitions.Def_Atlas_EinsteinMaxwell_ES5_Generic_Cert
import Definitions.Def_Atlas_EinsteinMaxwell_ES5_Generic_Data
import Definitions.Def_Atlas_EinsteinMaxwell_ES5_Generic_Reduced
import Definitions.Def_Atlas_EinsteinMaxwell_ES5_Generic_Tables
import Definitions.Def_Atlas_EinsteinMaxwell_ES5_KerrSchild_ChargedTail
import Definitions.Def_Atlas_EinsteinMaxwell_ES5_KerrSchild_CompactifiedBridge
import Definitions.Def_Atlas_EinsteinMaxwell_ES5_KerrSchild_CompactifiedResiduals
import Definitions.Def_Atlas_EinsteinMaxwell_ES5_KerrSchild_CoordinateAcceleration
import Definitions.Def_Atlas_EinsteinMaxwell_ES5_KerrSchild_FiniteJetObstruction
import Definitions.Def_Atlas_EinsteinMaxwell_ES5_KerrSchild_FiniteTaylorJet
import Definitions.Def_Atlas_EinsteinMaxwell_ES5_KerrSchild_GeodesicCongruenceObstruction
import Definitions.Def_Atlas_EinsteinMaxwell_ES5_KerrSchild_JetRecursion
import Definitions.Def_Atlas_EinsteinMaxwell_ES5_KerrSchild_MaxwellFrame
import Definitions.Def_Atlas_EinsteinMaxwell_ES5_KerrSchild_OneSidedExtraction
import Definitions.Def_Atlas_EinsteinMaxwell_ES5_KerrSchild_PaperGauge
import Definitions.Def_Atlas_EinsteinMaxwell_ES5_KerrSchild_PolynomialJet
import Definitions.Def_Atlas_EinsteinMaxwell_ES5_KerrSchild_PrincipalGeodesic
import Definitions.Def_Atlas_EinsteinMaxwell_ES5_KerrSchild_RadialBVP
import Definitions.Def_Atlas_EinsteinMaxwell_ES5_KerrSchild_RadialBVPEquivalence
import Definitions.Def_Atlas_EinsteinMaxwell_ES5_KerrSchild_RicciNullDirections
import Definitions.Def_Atlas_EinsteinMaxwell_ES5_KerrSchild_ScalarCertificate
import Definitions.Def_Atlas_EinsteinMaxwell_ES5_KerrSchild_SmoothBranch
open scoped ContDiff Topology Matrix
open ExactVacuumAtlas ExactVacuumAtlas.EinsteinMaxwell ExactVacuumAtlas.EinsteinMaxwell.ES5
open ExactVacuumAtlas.EinsteinMaxwell.ES5.KerrSchild.Radial
open ExactVacuumAtlas.EinsteinMaxwell.ES5.KerrSchild.Compact
open ExactVacuumAtlas.EinsteinMaxwell.ES5.KerrSchild.SmoothExt
open ExactVacuumAtlas.EinsteinMaxwell.ES5.KerrSchild.NullDirections
open ExactVacuumAtlas.EinsteinMaxwell.D (einsteinMaxwellD EMCertificateD)
open ExactVacuumAtlas
open ExactVacuumAtlas.EinsteinMaxwell
open ExactVacuumAtlas.EinsteinMaxwell.ES5
open ExactVacuumAtlas.EinsteinMaxwell.ES5.KerrSchild
open ExactVacuumAtlas.EinsteinMaxwell.ES5.KerrSchild.Geodesic
variable {I : Set ℝ} {f m N w p a : ℝ → ℝ}
theorem ExactVacuumAtlas.EinsteinMaxwell.ES5.KerrSchild.Geodesic.classified_momenta (hP : PaperData I f m N w p a) {y : Pt 5} (hy : y ∈ esDomain I)
(hf : 0 < f (y 1)) (hm : 0 < m (y 1)) (hN : 0 < N (y 1))
(ha2 : 0 < alphaSq f m N w p a (y 1))
(hEin : ∀ i j, einsteinMaxwellD (esMetric f (Dfun f m N) (Afun f m) (Hfun m N) w)
(esInverse f (Dfun f m N) (Afun f m) (Hfun m N) w) (esFaraday p a) i j y = 0)
{v : Fin 5 → ℝ} (hv0 : v ≠ 0)
(hnull : contract2 (esMetric f (Dfun f m N) (Afun f m) (Hfun m N) w) y v = 0)
(hric : contract2 (ricciOf (esMetric f (Dfun f m N) (Afun f m) (Hfun m N) w)
(esInverse f (Dfun f m N) (Afun f m) (Hfun m N) w)) y v = 0) :
f (y 1) * v 0 / eFun w p a (y 1) ≠ 0 ∧ v 1 ≠ 0 ∧
(metricMatrix (esMetric f (Dfun f m N) (Afun f m) (Hfun m N) w) y *ᵥ v) 0 =
-(f (y 1) * v 0 / eFun w p a (y 1) * deriv p (y 1)) ∧
(metricMatrix (esMetric f (Dfun f m N) (Afun f m) (Hfun m N) w) y *ᵥ v) 3 =
-(f (y 1) * v 0 / eFun w p a (y 1) * (y 2 * deriv a (y 1))) ∧
(metricMatrix (esMetric f (Dfun f m N) (Afun f m) (Hfun m N) w) y *ᵥ v) 4 =
-(f (y 1) * v 0 / eFun w p a (y 1) * ((1 - y 2) * deriv a (y 1))) := by sorry