A thin pulse excludes bounded admissible heights near the test metric
ProvedOAI.SmoothLocal.Perturbation.exists_original_pulse_exclusionNotation. 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 with of model curvature, and fix , . There is with such that for every there is such that for all sufficiently large : for every patch perturbation and every bounded admissible height with bound for satisfying , it is not the case that
Hence no metric in the class lies this close to a test metric.
Formalization Note. This is the upstream Lean declaration OAI.SmoothLocal.Perturbation.exists_original_pulse_exclusion in lean/OAI/Geometry/IsometricImmersion/Pulses/OriginalPulseExclusion.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 Matrix Matrix.Norms.Elementwise namespace SmoothLocal.Perturbation open SmoothLocal.Geometry SmoothLocal.Pulse SmoothLocal.HighEquation SmoothLocal.Flow open SmoothLocal.ODE SmoothLocal.Weighted SmoothLocal.Hyperbolic SmoothLocal.Taylor SmoothLocal.Model
theorem exists_original_pulse_exclusion
{g0 gStar : MetricField} {V : Set Coord}
(hg0 : SmoothPositiveOn g0 V) (hgStar : SmoothPositiveOn gStar V)
(hV : IsOpen V) (hSV : modelSquare ⊆ V)
{kappa q0 : ℝ} (M : ℕ) (hkappa : 0 < kappa) (hM : 0 < M)
(hq0 : |q0| ≤ 1/20)
(hbackground : ∀ p ∈ V, gaussianCurvature g0 p=modelCurvature kappa p) :
∃ r : ℝ, 0 < r ∧ r < 1/2 ∧ boundedClassWidth kappa M*r ≤ 1/20 ∧
∀ N : ℕ, 10 < N → ∃ delta : ℝ, 0 < delta ∧ delta ≤ 1/2 ∧
∀ᶠ tau : ℕ in atTop,
∀ (eta : metricPatchSet g0 kappa) (z : Coord → ℝ),
BoundedAdmissibleHeight (perturbedMetric g0 eta.val) M z →
|hessianQuotient (perturbedMetric g0 eta.val) z 0-q0| ≤
1/(100*boundedClassWidth kappa M) →
¬ (∀ i j : Fin 2, ∀ k ≤ tau, ∀ p ∈ modelSquare,
‖iteratedFDeriv ℝ k (fun q => perturbedMetric g0 eta.val q i j-
testMetric gStar q0 (boundedClassWidth kappa M*r/16) N delta (tau : ℝ) q i j) p‖ ≤
metricApproximationAccuracy tau) := by
sorry
end SmoothLocal.Perturbation
end
end OAI