Moving-interval energy estimate for the comparison difference
ProvedOAI.SmoothLocal.HighEquation.exists_actual_comparison_energyNotation. 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 set containing a compact set , and fix . There is such that for every metric and all smooth on an open with , bounds , on that box, a Darboux solution for with , and, along the segment between the two jets, the denominator of at least in size and the coefficient at least ; if and have the same Cauchy data at and for the speed , then with ,
where is the energy of on the shrinking interval with initial half-width , is the metric comparison source, and depends only on .
Formalization Note. This is the upstream Lean declaration OAI.SmoothLocal.HighEquation.exists_actual_comparison_energy in lean/OAI/Geometry/IsometricImmersion/Comparison/ActualComparisonEnergy.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 MeasureTheory open scoped ContDiff Topology namespace SmoothLocal.HighEquation open SmoothLocal.Geometry SmoothLocal.Weighted SmoothLocal.ODE open SmoothLocal.Hyperbolic SmoothLocal.Taylor
theorem exists_actual_comparison_energy
{gRef : MetricField} {U S : Set Coord}
(hgRef : SmoothPositiveOn gRef U) (hU : IsOpen U)
(hS : IsCompact S) (hSU : S ⊆ U)
(R Z0 Z : ℝ) (hR : 0 ≤ R) {c s0 : ℝ} (hc : 0 < c) (hs0 : 0 < s0) :
∃ C : ℝ, 1 ≤ C ∧ ∀ (g : MetricField) (P z : Coord → ℝ) (V : Set Coord)
(boxRadius width a b : ℝ),
IsOpen V → V ⊆ U → SmoothPositiveOn g V →
ContDiffOn ℝ ∞ P V → ContDiffOn ℝ ∞ z V →
0 < width → width < boxRadius → a ≤ b →
closedRectangle (-boxRadius) boxRadius a b ⊆ V →
closedRectangle (-boxRadius) boxRadius a b ⊆ S →
(∀ p ∈ closedRectangle (-boxRadius) boxRadius a b, ‖p‖ ≤ R) →
CoordinateBound P (closedRectangle (-boxRadius) boxRadius a b) 3 Z0 →
CoordinateBound z (closedRectangle (-boxRadius) boxRadius a b) 3 Z →
(∀ p ∈ closedRectangle (-boxRadius) boxRadius a b,
(covHessian g z p).det = gaussianCurvature g p*heightEnergy g z p) →
(∀ p ∈ closedRectangle (-boxRadius) boxRadius a b, covHessian g z p 0 0 ≠ 0) →
(∀ p ∈ closedRectangle (-boxRadius) boxRadius a b, ∀ sigma ∈ Icc (0 : ℝ) 1,
c ≤ |stateQDenominator gRef (qHeightJetSegment P z sigma p)| ∧
s0 ≤ qFirstCoefficient gRef 5 (qHeightJetSegment P z sigma p)) →
(∀ x ∈ Ioo (-boxRadius) boxRadius, P (boxPoint x a)=z (boxPoint x a)) →
(∀ x ∈ Ioo (-boxRadius) boxRadius,
coordPartial 1 P (boxPoint x a)=coordPartial 1 z (boxPoint x a)) →
2*comparisonEnergySpeed C*(b-a)<2*width →
Real.sqrt (movingEnergy (-width) width a (comparisonEnergySpeed C)
(comparisonCoefficient gRef P z 5) (comparisonDifference P z) b) ≤
Real.exp (comparisonEnergyRate C Z0 Z s0*(b-a))*
∫ t in a..b, movingSourceNorm (-width) width a (comparisonEnergySpeed C)
(metricComparisonSource g gRef P z) t := by
sorry
end SmoothLocal.HighEquation
end
end OAI