Directed gradient estimate on caps in flow coordinates, with constants from the original data
ProvedOAI.SmoothLocal.Flow.exists_uniform_original_data_actual_high_cap_estimateNotation. 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 smooth, with bound for , bound for , , , , and on ; suppose has model curvature with , is supported in the patch box, and on the central box. Then for each there are positive constants depending only on these bounds and on , and a smooth flow with and , such that in the chart solves
and for all , ,
with an explicit right side given by integrals of and on an enlarged rectangle.
Formalization Note. This is the upstream Lean declaration OAI.SmoothLocal.Flow.exists_uniform_original_data_actual_high_cap_estimate in lean/OAI/Geometry/IsometricImmersion/Caps/UniformOriginalDataCapEstimate.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 namespace SmoothLocal.Flow open SmoothLocal.Geometry SmoothLocal.ODE SmoothLocal.Weighted SmoothLocal.Model SmoothLocal.HighEquation
theorem exists_uniform_original_data_actual_high_cap_estimate
{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, CoordinateBound (fun p => (g0+eta) p i j) modelSquare 4 G)
(hzB : CoordinateBound z modelSquare 5 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) (m : ℕ) :
let epsilon := heightDirectedEpsilon G Z d c e0 kappa (m+3)
let lambda := heightDirectedLambda G Z d c e0 kappa (m+3)
let c1 := heightDirectedSlope G Z d c e0 kappa (m+3)
let c2 := heightDirectedCoercivity G Z d c e0 kappa (m+3)
∃ Y : ℝ → ℝ → ℝ,
0 < epsilon ∧ epsilon ≤ 1 ∧ 0 < lambda ∧ 0 < c1 ∧ 0 < c2 ∧
ContDiffOn ℝ ∞ (capChart Y) capChartDomain ∧
(∀ 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) ∧
(∀ p ∈ capChartDomain, |capFlowHeight Y p-p 1| ≤ (1 : ℝ)/50) ∧
(∀ 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 →
rectangleIntegral L R bottom top
(fun p => (coordPartial 0 (capPullback Y (verticalJet z (m+3))) p)^2+
(coordPartial 1 (capPullback Y (verticalJet z (m+3))) p)^2) ≤
heightUniformCapEstimateRHS G Z d c e0 kappa (m+3) L R bottom top b
(capPullback Y (verticalJet z (m+3))) (capPullback Y (actualHighRemainder (g0+eta) z m)) := by
sorry
end SmoothLocal.Flow
end
end OAI