Properties of the recursive Taylor comparison polynomial
ProvedOAI.SmoothLocal.Taylor.taylorApproximation_propertiesNotation. 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 , let be open, let be smooth on and real with for , and suppose the entry of of the linear Cauchy polynomial is nonzero at each . Then for each , the recursively defined Taylor approximation is smooth on the strip , has the same six-variable jet as the linear polynomial on the cut , and its -residual satisfies
Formalization Note. This is the upstream Lean declaration OAI.SmoothLocal.Taylor.taylorApproximation_properties in lean/OAI/Geometry/IsometricImmersion/Taylor/FiniteTaylorComparison.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 Matrix BigOperators namespace SmoothLocal.Taylor open SmoothLocal.Geometry SmoothLocal.HighEquation
theorem taylorApproximation_properties {g : MetricField} {U : Set Coord}
{u0 u1 : ℝ → ℝ} {I : Set ℝ} (hg : SmoothPositiveOn g U) (hU : IsOpen U)
(hI : IsOpen I) (h0 : ContDiffOn ℝ ∞ u0 I) (h1 : ContDiffOn ℝ ∞ u1 I)
(a : ℝ) (hcut : ∀ x ∈ I, (![x, a] : Coord) ∈ U)
(hxx : ∀ x ∈ I, covHessian g (linearCauchy a u0 u1) ![x, a] 0 0 ≠ 0) :
∀ N,
ContDiffOn ℝ ∞ (taylorApproximation g a u0 u1 N) (spatialStrip I) ∧
(∀ x ∈ I, qSolutionJet (taylorApproximation g a u0 u1 N) ![x, a] =
qSolutionJet (linearCauchy a u0 u1) ![x, a]) ∧
(∀ x ∈ I, ∀ k < N,
iteratedDeriv k (fun t => qResidual g (taylorApproximation g a u0 u1 N) ![x, t]) a = 0) := by
sorry
end SmoothLocal.Taylor
end
end OAI