Lower bound for the oscillatory moment of the -forcing
ProvedOAI.SmoothLocal.Pulse.exists_actual_Q_moment_lower_with_remainderNotation. 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).
Fix bounds , , and . There are and such that for each there is such that for , all metrics smooth and positive on an open (the test metric also), real, smooth on , and small : if the pointwise -pulse bounds hold on the strip, on the strip, and , , there for , then
where is the sheared -forcing, and is an explicit budget linear in the small parameters.
Formalization Note. This is the upstream Lean declaration OAI.SmoothLocal.Pulse.exists_actual_Q_moment_lower_with_remainder in lean/OAI/Geometry/IsometricImmersion/Estimates/ActualQMomentLower.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 Matrix Matrix.Norms.Elementwise namespace SmoothLocal.Pulse open SmoothLocal.Geometry SmoothLocal.HighEquation
theorem exists_actual_Q_moment_lower_with_remainder
(B Bcompare BQ D A Dref Cref : ℝ) {d dcompare c e : ℝ}
(hd : 0 < d) (hdcompare : 0 < dcompare) (hc : 0 < c) (he : 0 < e)
(hD : 0 ≤ D) (hA : 0 ≤ A) {a : ℝ} (ha : 0 < a) (N : ℕ) (hN : 1 < N) :
∃ c3 H Cfirst Ctest Ccompare : ℝ,
0 < c3 ∧ 0 ≤ H ∧ 0 ≤ Cfirst ∧ 0 ≤ Ctest ∧ 0 ≤ Ccompare ∧
∀ delta : ℝ, 0 < delta → ∃ T : ℝ, 1 ≤ T ∧
∀ tau : ℝ, T ≤ tau → ∀ (gStar gTau : MetricField) (q0 : ℝ) (U : Set Coord),
SmoothPositiveOn gStar U →
SmoothPositiveOn (testMetric gStar q0 a N delta tau) U →
SmoothPositiveOn gTau U → IsOpen U →
∀ z : Coord → ℝ, ContDiffOn ℝ ∞ z U →
∀ epsilon epsilonQ : ℝ, 0 ≤ epsilon → 0 ≤ epsilonQ →
epsilon ≤ 1 → (4*max Bcompare 0+2)*epsilon ≤ dcompare/2 →
epsilonQ ≤ 1 → (4*max BQ 0+2)*epsilonQ ≤ d/2 → H*epsilonQ ≤ c/2 →
(∀ p ∈ pulseStrip a delta tau,
QPulsePointBounds gStar gTau z U q0 a delta tau N
B Bcompare BQ D A d dcompare c epsilon epsilonQ p) →
(∀ p ∈ pulseStrip a delta tau,
covHessian (metricInShearCoordinates gTau q0) (heightInShearCoordinates z q0) p 0 0 ≠ 0) →
(∀ p ∈ pulseStrip a delta tau,
e ≤ heightEnergy (metricInShearCoordinates gStar q0) (heightInShearCoordinates z q0) p) →
(∀ p ∈ pulseStrip a delta tau, (metricInShearCoordinates gStar q0 p).det ≤ Dref) →
(∀ p ∈ pulseStrip a delta tau,
|covHessian (metricInShearCoordinates gStar q0) (heightInShearCoordinates z q0) p 0 0| ≤ Cref) →
c3*delta*tau/tau^N-
qForcingRemainderBudget A Cfirst Ctest Ccompare a ha N delta tau epsilon epsilonQ*
(2*delta/tau)*(∫ x : ℝ, axisBump a x) ≤
|pulseWeightedMoment a delta tau (actualShearedQForcing gStar gTau z q0)| := by
sorry
end SmoothLocal.Pulse
end
end OAI