Physical-coordinate cap gradient estimate from bounds
ProvedOAI.SmoothLocal.Flow.exists_C8_one_flow_physical_cap_estimatesNotation. 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 definite on an open set , let be smooth on , and suppose that on the derivatives through order of are bounded by , those of by , , , , , and satisfies the Darboux equation . Suppose also that has the model curvature on , that is supported in the patch box, and that on the central box.
Then there are an open set with , on which is smooth with a bound depending only on , and a smooth flow chart of with positive transverse derivative, such that for every order and all , ,
where , is the enlarged rectangle up to the artificial edge , is the high remainder of the differentiated equation, and depends only on the listed bounds and the rectangle. This is the lower-cap gain of one derivative, stated in the original coordinates.
Formalization Note. This is the upstream Lean declaration OAI.SmoothLocal.Flow.exists_C8_one_flow_physical_cap_estimates in lean/OAI/Geometry/IsometricImmersion/Caps/AllOrderPhysicalCap.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 MeasureTheory open scoped ContDiff Topology Interval namespace SmoothLocal.Flow open SmoothLocal.Geometry SmoothLocal.ODE SmoothLocal.Weighted SmoothLocal.Model SmoothLocal.HighEquation
theorem exists_C8_one_flow_physical_cap_estimates
{g0 eta : MetricField} {z : Coord → ℝ} {U : Set Coord} {G Z d c e0 kappa : ℝ}
(hg : SmoothPositiveOn (g0+eta) U) (hU : IsOpen U) (hSU : modelSquare ⊆ U)
(hz : ContDiffOn ℝ ∞ z U) (hG : 0 ≤ G) (hZ : 0 ≤ Z) (hd : 0 < d) (hc : 0 < c) (he0 : 0 < e0)
(hgB : ∀ i j : Fin 2, ∀ k ≤ 8, ∀ p ∈ modelSquare,
‖iteratedFDeriv ℝ k (fun q => (g0+eta) q i j) p‖ ≤ G)
(hzB : ∀ k ≤ 8, ∀ p ∈ modelSquare, ‖iteratedFDeriv ℝ k z p‖ ≤ Z)
(hdet : ∀ p ∈ modelSquare, d ≤ |((g0+eta) p).det|)
(hyy : ∀ p ∈ modelSquare, c ≤ |covHessian (g0+eta) z p 1 1|)
(hEfloor : ∀ p ∈ modelSquare, e0 ≤ heightEnergy (g0+eta) z p)
(hsmall : ∀ p ∈ modelSquare, |hessianQuotient (g0+eta) z p| ≤ (1:ℝ)/100)
(hD : ∀ p ∈ modelSquare,
(covHessian (g0+eta) z p).det = gaussianCurvature (g0+eta) p*heightEnergy (g0+eta) z p)
(hk : 0 < kappa)
(hbackground : ∀ p ∈ U, gaussianCurvature g0 p = modelCurvature kappa p)
(hsupport : tsupport eta ⊆ patchBox)
(hcentral : ∀ p ∈ centralBox, gaussianCurvature (g0+eta) p < -kappa/2) :
∃ (V : Set Coord) (Y : ℝ → ℝ → ℝ),
IsOpen V ∧ modelSquare ⊆ V ∧ V ⊆ U ∧
ContDiffOn ℝ ∞ (hessianQuotient (g0+eta) z) V ∧
CoordinateBound (hessianQuotient (g0+eta) z) modelSquare 3 (heightQuotientJetBound G Z d c) ∧
ContDiffOn ℝ ∞ (capChart Y) capChartDomain ∧
ContinuousOn (uncurry Y) (Icc (-2:ℝ) 2 ×ˢ Icc (-2:ℝ) 2) ∧
ContDiffOn ℝ ∞ (fun p : ℝ × ℝ => Y p.2 p.1) (pairRectangle 2 (-2) 2) ∧
(∀ s ∈ Ioo (-2:ℝ) 2, ∀ t ∈ Ioo (-2:ℝ) 2, 0 < deriv (fun r => Y r t) s) ∧
(∀ s ∈ Icc (-2:ℝ) 2, Y s 0 = s) ∧
(∀ s ∈ Icc (-2:ℝ) 2, ∀ t ∈ Icc (-2:ℝ) 2,
HasDerivWithinAt (Y s) (-hessianQuotient (g0+eta) z (coordinatePoint t (Y s t)))
(Icc (-2:ℝ) 2) t) ∧
(∀ s ∈ Icc (-2:ℝ) 2, ∀ t ∈ Icc (-2:ℝ) 2, Y s t ∈ Icc (-3:ℝ) 3) ∧
(∀ s ∈ Icc (-2:ℝ) 2, ∀ t ∈ Icc (-2:ℝ) 2, |Y s t-s| ≤ (1:ℝ)/50) ∧
(∀ p ∈ capChartDomain, |capFlowHeight Y p-p 1| ≤ (1:ℝ)/50) ∧
(∀ tl tr sb st : ℝ, closedRectangle tl tr sb st ⊆ capChartDomain →
IsCompact (capChart Y '' closedRectangle tl tr sb st) ∧
MeasurableSet (capChart Y '' closedRectangle tl tr sb st) ∧
volume (capChart Y '' closedRectangle tl tr sb st) < ⊤ ∧
capChart Y '' closedRectangle tl tr sb st ⊆ modelOpenSquare) ∧
∀ m : ℕ,
(∀ p ∈ capChartDomain,
multiplierOperator (heightChartA (g0+eta) z Y) (heightChartB (g0+eta) z Y (m+3))
(heightChartC (g0+eta) z Y (m+3)) (capPullback Y (verticalJet z (m+3))) p =
capPullback Y (actualHighRemainder (g0+eta) z m) p) ∧
∀ L R bottom top b : ℝ,
-2 < L → R < 2 → -2 < bottom → L ≤ R → bottom ≤ top → top < b → b ≤ 0 →
0 < heightPhysicalCapConstant G Z d c e0 kappa (m+3) L R bottom top b ∧
(∫ p in capChart Y '' closedRectangle L R bottom top,
(coordPartial 0 (verticalJet z (m+3)) p)^2+(verticalJet z (m+4) p)^2) ≤
heightPhysicalCapConstant G Z d c e0 kappa (m+3) L R bottom top b*
((∫ p in capChart Y '' closedRectangle (capOuterLeft L) (capOuterRight R) (capOuterBottom bottom) b,
(actualHighRemainder (g0+eta) z m p)^2)+
(∫ p in capChart Y '' closedRectangle (capOuterLeft L) (capOuterRight R) (capOuterBottom bottom) b,
(verticalJet z (m+3) p)^2)) := by
sorry
end SmoothLocal.Flow
end
end OAI