Documentation

LeanPool.NavierStokesAndEuler.Euler.ContinuousAccelerationGevrey

Uniform-time regularity of actual acceleration #

The continuous acceleration is the already constructed Gram inverse applied to its literal forcing. Smoothness and factorial estimates therefore apply to the actual continuous path, including its endpoint values.

theorem EulerContinuousAccelerationGevrey.acceleration_eq_solve {P : Type u_1} {U : Type u_2} {E : Type u_3} [NormedAddCommGroup U] [InnerProductSpace U] [CompleteSpace U] [NormedAddCommGroup E] [InnerProductSpace E] [CompleteSpace E] (T : ) (Q Q₁ : PC((Set.Icc 0 T), U →L[] E)) (c : ) (hc : 0 < c) (hLower : ∀ (x : P) (t : (Set.Icc 0 T)) (v : U), c * v ^ 2 ((Q x) t) v ^ 2) (v : PC((Set.Icc 0 T), U)) (f : PC((Set.Icc 0 T), E)) :
(fun (x : P) => EulerContinuousGramAcceleration.accelerationPath T (Q x) (Q₁ x) c hc (v x) (f x)) = fun (x : P) => (EulerContinuousGramPath.solve T (Q x) c hc ) (EulerContinuousAccelerationForcing.forcing Q Q₁ f v x)

The continuous acceleration is the genuine continuous Gram solve.

theorem EulerContinuousAccelerationGevrey.acceleration_contDiff {P : Type u_1} {U : Type u_2} {E : Type u_3} [NormedAddCommGroup P] [NormedSpace P] [NormedAddCommGroup U] [InnerProductSpace U] [CompleteSpace U] [NormedAddCommGroup E] [InnerProductSpace E] [CompleteSpace E] (T : ) (Q Q₁ : PC((Set.Icc 0 T), U →L[] E)) (c : ) (hc : 0 < c) (hLower : ∀ (x : P) (t : (Set.Icc 0 T)) (v : U), c * v ^ 2 ((Q x) t) v ^ 2) (v : PC((Set.Icc 0 T), U)) (f : PC((Set.Icc 0 T), E)) {n : WithTop ℕ∞} (hQ : ContDiff n Q) (hQ₁ : ContDiff n Q₁) (hv : ContDiff n v) (hf : ContDiff n f) :
ContDiff n fun (x : P) => EulerContinuousGramAcceleration.accelerationPath T (Q x) (Q₁ x) c hc (v x) (f x)

Actual uniform-time acceleration depends smoothly on the actual coefficients and data.

theorem EulerContinuousAccelerationGevrey.acceleration_gevrey {P : Type u_1} {U : Type u_2} {E : Type u_3} [NormedAddCommGroup P] [NormedSpace P] [NormedAddCommGroup U] [InnerProductSpace U] [CompleteSpace U] [NormedAddCommGroup E] [InnerProductSpace E] [CompleteSpace E] (T : ) (Q Q₁ : PC((Set.Icc 0 T), U →L[] E)) (c : ) (hc : 0 < c) (hLower : ∀ (x : P) (t : (Set.Icc 0 T)) (v : U), c * v ^ 2 ((Q x) t) v ^ 2) (v : PC((Set.Icc 0 T), U)) (f : PC((Set.Icc 0 T), E)) (hQ : ContDiff (↑) Q) (hQ₁ : ContDiff (↑) Q₁) (hv : ContDiff (↑) v) (hf : ContDiff (↑) f) (Rc R C₀ C₁ Cf Cv : ) (hRc : 0 Rc) (hR : 0 R) (hRcR : Rc R) (hC₀ : 0 C₀) (hC₁ : 0 C₁) (hCf : 0 Cf) (hCv : 0 Cv) (hstrong : 2 * EulerTimeLpGramGevrey.gramCost c C₀ (3 * C₀ * (Cf + 6 * C₁ * Cv)) * (Rc + 1) R) (hQb : ∀ (n : ) (x : P), iteratedFDeriv n Q x C₀ * EulerGevrey.majorant Rc 0 n) (hQ₁b : ∀ (n : ) (x : P), iteratedFDeriv n Q₁ x C₁ * EulerGevrey.majorant Rc 0 n) (d : ) (hfb : ∀ (n : ) (x : P), iteratedFDeriv n f x Cf * EulerGevrey.majorant R d n) (hvb : ∀ (n : ) (x : P), iteratedFDeriv n v x Cv * EulerGevrey.majorant R d n) (n : ) (x : P) :
iteratedFDeriv n (fun (y : P) => EulerContinuousGramAcceleration.accelerationPath T (Q y) (Q₁ y) c hc (v y) (f y)) x EulerGevrey.majorant R (d + 1) n

The actual continuous acceleration has one factorial shift relative to its velocity and forcing data, with a polynomial radius condition.