Ellipticity margins along the segment joining the comparison and height jets
ProvedOAI.SmoothLocal.Perturbation.exists_actual_reference_segment_at_radiusNotation. is the model square; a metric is a smooth positive matrix field ; is a scalar height; is its covariant Hessian; is the Gaussian curvature; ; is the Hessian quotient; is the model curvature; the patch box and the central box are the squares and ; the sheared coordinates are , with sheared height ; and are the class width and speed of (4.2); is the test metric (4.12) built from ; a bounded admissible height of bound is an admissible height with (4.1).
With , as above, where also has bound and on , and , there are and such that for and all sufficiently large : for every patch perturbation , flow data and bounded admissible height of bound with the usual bounds and within of the test metric, for the Taylor approximation of the sheared height for , at every in the strip of half-width and every , the jet on the segment between and satisfies
where and are the class speed and width. It justifies the mean-value linearization in (4.16).
Formalization Note. This is the upstream Lean declaration OAI.SmoothLocal.Perturbation.exists_actual_reference_segment_at_radius in lean/OAI/Geometry/IsometricImmersion/Coordinates/ActualReferenceSegment.lean, stated verbatim; the Lean statement is authoritative for the precise hypotheses. It is an intermediate result of OpenAI's formalization.
import Mathlib import Definitions.Def_IsometricImmersion import Definitions.Def_SmoothLocalIsometricSupport namespace OAI noncomputable section open Set Filter Function open scoped ContDiff Topology Matrix Matrix.Norms.Elementwise namespace SmoothLocal.Perturbation open SmoothLocal.Geometry SmoothLocal.Pulse SmoothLocal.HighEquation SmoothLocal.Flow open SmoothLocal.ODE SmoothLocal.Weighted SmoothLocal.Hyperbolic SmoothLocal.Taylor
theorem exists_actual_reference_segment_at_radius
{gStar : MetricField} {V : Set Coord}
(hgStar : SmoothPositiveOn gStar V) (hV : IsOpen V) (hSV : modelSquare ⊆ V)
{G d kappa q0 r : ℝ} (M : ℕ) (hG : 0 ≤ G) (hd : 0 < d)
(hgStarB : ∀ i j k, k ≤ 2 → ∀ p ∈ modelSquare,
‖iteratedFDeriv ℝ k (fun q => gStar q i j) p‖ ≤ G)
(hdStar : ∀ p ∈ modelSquare, d ≤ (gStar p).det)
(hkappa : 0 < kappa) (hM : 0 < M) (hq0 : |q0| ≤ 1/20)
(hr : 0 < r) (hrhalf : r < 1/2) (hLr : boundedClassWidth kappa M*r ≤ 1/20)
(hrsmall : heightQuotientJetBound G (M : ℝ) d (1/(M : ℝ))*
(r+107*(boundedClassWidth kappa M*r)/100) ≤ 9/(100*boundedClassWidth kappa M))
(N : ℕ) (hN : 2 < N) :
∃ C A : ℝ, 0 ≤ C ∧ 1 ≤ A ∧
∀ delta : ℝ, 0 < delta → delta ≤ 1/2 →
∀ᶠ tau : ℕ in atTop,
∀ (g0 : MetricField) (eta : metricPatchSet g0 kappa) (U W : Set Coord)
(z : Coord → ℝ) (Y : ℝ → ℝ → ℝ),
SmoothPositiveOn (perturbedMetric g0 eta.val) U → IsOpen U →
CapInductionHeight (perturbedMetric g0 eta.val) U (M : ℝ) (1/(M : ℝ)) (1/(M : ℝ)) z →
CapInductionFlow (perturbedMetric g0 eta.val) U G (M : ℝ) d (1/(M : ℝ)) (1/(M : ℝ)) kappa z Y W →
BoundedAdmissibleHeight (perturbedMetric g0 eta.val) M z →
(∀ i j k, k ≤ 4 → ∀ p ∈ modelSquare,
‖iteratedFDeriv ℝ k (fun q => perturbedMetric g0 eta.val q i j) p‖ ≤ G) →
(∀ p ∈ modelSquare, d ≤ |(perturbedMetric g0 eta.val p).det|) →
|hessianQuotient (perturbedMetric g0 eta.val) z 0-q0| ≤ 1/(100*boundedClassWidth kappa M) →
(∀ i j : Fin 2, ∀ k ≤ tau, ∀ p ∈ modelSquare,
‖iteratedFDeriv ℝ k (fun q => perturbedMetric g0 eta.val q i j-
testMetric gStar q0 (boundedClassWidth kappa M*r/16) N delta (tau : ℝ) q i j) p‖ ≤
metricApproximationAccuracy tau) →
let zs := heightInShearCoordinates z q0
let gs := metricInShearCoordinates gStar q0
let P := taylorApproximation gs (-delta/(tau : ℝ))
(heightCauchyValue zs (-delta/(tau : ℝ)))
(heightCauchyVelocity zs (-delta/(tau : ℝ))) N
ContDiffOn ℝ ∞ P (spatialStrip (Ioo (-(boundedClassWidth kappa M*r)) (boundedClassWidth kappa M*r))) ∧
CoordinateBound P (pulseStrip (boundedClassWidth kappa M*r/2) delta (tau : ℝ)) 3 C ∧
(∀ p ∈ pulseStrip (boundedClassWidth kappa M*r/2) delta (tau : ℝ),
∀ sigma ∈ Icc (0 : ℝ) 1,
(boundedClassSpeed kappa M)^2/(4*(M : ℝ)) ≤
|stateQDenominator gs (qHeightJetSegment P zs sigma p)| ∧
|stateQDenominator gs (qHeightJetSegment P zs sigma p)| ≤ A ∧
(1/(M : ℝ))/2 ≤ stateEnergy gs (qHeightJetSegment P zs sigma p) ∧
((((boundedClassSpeed kappa M)^2/(2*(M : ℝ)))*(1/(M : ℝ)))/2)/A^2 ≤
qFirstCoefficient gs 5 (qHeightJetSegment P zs sigma p) ∧
(((kappa/2)/2)*((1/(M : ℝ))/2))/A^2 ≤
(qFirstCoefficient gs 4 (qHeightJetSegment P zs sigma p)/2)^2+
qFirstCoefficient gs 5 (qHeightJetSegment P zs sigma p)) := by
sorry
end SmoothLocal.Perturbation
end
end OAI