Finite-order bounds of the height on the lower cut
ProvedOAI.SmoothLocal.Pulse.exists_actual_finite_lower_cut_bound_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 smooth and positive on an open and fix with , , and small. For each order there is such that for all and , for all sufficiently large , the following holds for every metric with bound and on , every cap-induction height and cap-induction flow for with , whenever is within in of the test metric : every coordinate derivative of order at most of at the sheared point , , is bounded by .
Formalization Note. This is the upstream Lean declaration OAI.SmoothLocal.Pulse.exists_actual_finite_lower_cut_bound_at_radius in lean/OAI/Geometry/IsometricImmersion/Estimates/FixedRadiusCutBounds.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 BigOperators namespace SmoothLocal.Pulse open SmoothLocal.Geometry SmoothLocal.Flow SmoothLocal.ODE SmoothLocal.Weighted open SmoothLocal.HighEquation SmoothLocal.Analytic
theorem exists_actual_finite_lower_cut_bound_at_radius
{gStar : MetricField} {V : Set Coord}
(hgStar : SmoothPositiveOn gStar V) (hV : IsOpen V) (hSV : modelSquare ⊆ V)
{G Z d c e0 kappa q0 L r : ℝ}
(hG : 0 ≤ G) (hZ : 0 ≤ Z) (hd : 0 < d) (hc : 0 < c)
(hL : 0 < L) (hq0 : |q0| ≤ 1/20) (hr : 0 < r) (hrhalf : r < 1/2)
(hLr : L*r ≤ 1/20)
(hrsmall : heightQuotientJetBound G Z d c*(r+107*(L*r)/100) ≤ 9/(100*L))
(n : ℕ) :
∃ C : ℝ, 0 ≤ C ∧ ∀ N : ℕ, ∀ delta : ℝ, 0 < delta →
∀ᶠ tau : ℕ in atTop,
∀ (gTau : MetricField) (U W : Set Coord) (z : Coord → ℝ) (Y : ℝ → ℝ → ℝ),
SmoothPositiveOn gTau U → IsOpen U →
(∀ i j : Fin 2, ∀ k ≤ 4, ∀ p ∈ modelSquare,
‖iteratedFDeriv ℝ k (fun q => gTau q i j) p‖ ≤ G) →
(∀ p ∈ modelSquare, d ≤ |(gTau p).det|) →
CapInductionHeight gTau U Z c e0 z →
CapInductionFlow gTau U G Z d c e0 kappa z Y W →
|hessianQuotient gTau z 0-q0| ≤ 1/(100*L) →
(∀ i j : Fin 2, ∀ k ≤ tau, ∀ p ∈ modelSquare,
‖iteratedFDeriv ℝ k (fun q => gTau q i j-
testMetric gStar q0 (L*r/16) N delta (tau : ℝ) q i j) p‖ ≤
metricApproximationAccuracy tau) →
∀ ds : List (Fin 2), ds.length ≤ n → ∀ x : ℝ, |x| ≤ L*r →
|iteratedCoordPartial ds z (inverseShearCoordinates q0 (boxPoint x (-r)))| ≤ C := by
sorry
end SmoothLocal.Pulse
end
end OAI