Uniform jet bounds for the Taylor comparison function on the strip
ProvedOAI.SmoothLocal.Perturbation.exists_actual_taylor_finite_jets_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).
Let , be as above, and let be orders. There is such that for and all sufficiently large , for every patch perturbation , flow data and bounded admissible height with the usual bounds and within of the test metric, the Taylor approximation of degree determined by , built from the sheared metric with Cauchy data of the sheared height at , is smooth on the spatial strip and satisfies
Formalization Note. This is the upstream Lean declaration OAI.SmoothLocal.Perturbation.exists_actual_taylor_finite_jets_at_radius in lean/OAI/Geometry/IsometricImmersion/Taylor/ActualTaylorFiniteJets.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 namespace SmoothLocal.Perturbation open SmoothLocal.Geometry SmoothLocal.Pulse SmoothLocal.HighEquation SmoothLocal.Flow open SmoothLocal.ODE SmoothLocal.Weighted SmoothLocal.Hyperbolic SmoothLocal.Taylor
theorem exists_actual_taylor_finite_jets_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)
(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 K : ℕ) :
∃ C : ℝ, 0 ≤ C ∧ ∀ 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 a => perturbedMetric g0 eta.val a 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))) ∧
(∀ j ≤ K, ∀ p : Coord, |p 0| ≤ boundedClassWidth kappa M*r/2 →
|p 1| ≤ delta/(tau : ℝ) → ‖iteratedFDeriv ℝ j P p‖ ≤ C) ∧
CoordinateBound P (pulseStrip (boundedClassWidth kappa M*r/2) delta (tau : ℝ)) K C := by
sorry
end SmoothLocal.Perturbation
end
end OAI