Documentation

LeanPool.NavierStokesAndEuler.Euler.TransverseForwardCoefficientGevrey

Actual coefficient bounds for the transverse forward equation #

The Gram inverse is genuinely constructed and differentiated. Its one fixed factorial shift is absorbed into a coefficient radius enlargement. The source generator and projected forcing coefficients then have shift-zero bounds by actual composition, with explicit polynomial amplitudes.

Genuine parameter regularity of the transverse forward inverse #

The source coefficient is formed from the actual Gram inverse and frame coefficients. These constructions and the forced forward solve are smooth in the uniform time norm, without assuming parameter regularity of the homogeneous evolution supplied by (H3).

theorem EulerTransverseForwardRegularity.frameLeftInversePath_contDiff {P : Type u_1} {V : Type u_2} {E : Type u_3} [NormedAddCommGroup P] [NormedSpace P] [NormedAddCommGroup V] [InnerProductSpace V] [CompleteSpace V] [NormedAddCommGroup E] [InnerProductSpace E] [CompleteSpace E] (T : ) (Q : PC((Set.Icc 0 T), V →L[] E)) (c : ) (hc : 0 < c) (hQ : ∀ (x : P) (t : (Set.Icc 0 T)) (v : V), c * v ^ 2 ((Q x) t) v ^ 2) {n : WithTop ℕ∞} (hQr : ContDiff n Q) :

The actual canonical frame left inverse varies smoothly in parameters.

theorem EulerTransverseForwardRegularity.generator_contDiff {P : Type u_1} {V : Type u_2} {E : Type u_3} [NormedAddCommGroup P] [NormedSpace P] [NormedAddCommGroup V] [InnerProductSpace V] [CompleteSpace V] [NormedAddCommGroup E] [InnerProductSpace E] [CompleteSpace E] (T : ) (Q Q₁ : PC((Set.Icc 0 T), V →L[] E)) (c : ) (hc : 0 < c) (hQ : ∀ (x : P) (t : (Set.Icc 0 T)) (v : V), c * v ^ 2 ((Q x) t) v ^ 2) {n : WithTop ℕ∞} (hQr : ContDiff n Q) (hQ₁r : ContDiff n Q₁) :
ContDiff n fun (x : P) => EulerTransverseForwardInverse.generator T (Q x) (Q₁ x) c hc

The literal source generator is smoothly parameterized.

theorem EulerTransverseForwardRegularity.forcing_contDiff {P : Type u_1} {V : Type u_2} {E : Type u_3} [NormedAddCommGroup P] [NormedSpace P] [NormedAddCommGroup V] [InnerProductSpace V] [CompleteSpace V] [NormedAddCommGroup E] [InnerProductSpace E] [CompleteSpace E] (T : ) (Q : PC((Set.Icc 0 T), V →L[] E)) (c : ) (hc : 0 < c) (hQ : ∀ (x : P) (t : (Set.Icc 0 T)) (v : V), c * v ^ 2 ((Q x) t) v ^ 2) (f : PC((Set.Icc 0 T), E)) {n : WithTop ℕ∞} (hQr : ContDiff n Q) (hf : ContDiff n f) :
ContDiff n fun (x : P) => (EulerTransverseForwardInverse.forcingOperator T (Q x) c hc ) (f x)

Applying the actual projected forcing map preserves smooth parameter dependence.

theorem EulerTransverseForwardRegularity.coordinates_contDiff {P : Type u_1} {V : Type u_2} {E : Type u_3} [NormedAddCommGroup P] [NormedSpace P] [NormedAddCommGroup V] [InnerProductSpace V] [CompleteSpace V] [NormedAddCommGroup E] [InnerProductSpace E] [CompleteSpace E] (T : ) (hT : 0 T) (Q Q₁ : PC((Set.Icc 0 T), V →L[] E)) (c : ) (hc : 0 < c) (hQ : ∀ (x : P) (t : (Set.Icc 0 T)) (v : V), c * v ^ 2 ((Q x) t) v ^ 2) (U : (x : P) → EulerLinearDuhamel.Evolution T hT (EulerTransverseForwardInverse.generator T (Q x) (Q₁ x) c hc )) (f : PC((Set.Icc 0 T), E)) (a₀ : PV) {n : WithTop ℕ∞} (hQr : ContDiff n Q) (hQ₁r : ContDiff n Q₁) (hf : ContDiff n f) (ha₀ : ContDiff n a₀) :
ContDiff n fun (x : P) => EulerTransverseForwardInverse.coordinates T hT (Q x) (Q₁ x) c hc (U x) (f x) (a₀ x)

The actually constructed coordinates are smooth in external parameters.

theorem EulerTransverseForwardRegularity.velocity_contDiff {P : Type u_1} {V : Type u_2} {E : Type u_3} [NormedAddCommGroup P] [NormedSpace P] [NormedAddCommGroup V] [InnerProductSpace V] [CompleteSpace V] [NormedAddCommGroup E] [InnerProductSpace E] [CompleteSpace E] (T : ) (hT : 0 T) (Q Q₁ : PC((Set.Icc 0 T), V →L[] E)) (c : ) (hc : 0 < c) (hQ : ∀ (x : P) (t : (Set.Icc 0 T)) (v : V), c * v ^ 2 ((Q x) t) v ^ 2) (U : (x : P) → EulerLinearDuhamel.Evolution T hT (EulerTransverseForwardInverse.generator T (Q x) (Q₁ x) c hc )) (f : PC((Set.Icc 0 T), E)) (a₀ : PV) {n : WithTop ℕ∞} (hQr : ContDiff n Q) (hQ₁r : ContDiff n Q₁) (hf : ContDiff n f) (ha₀ : ContDiff n a₀) :
ContDiff n fun (x : P) => EulerTransverseForwardInverse.velocity T hT (Q x) (Q₁ x) c hc (U x) (f x) (a₀ x)

The actual physical velocity inherits uniform-time parameter smoothness.

theorem EulerTransverseForwardRegularity.coordinateDerivative_contDiff {P : Type u_1} {V : Type u_2} {E : Type u_3} [NormedAddCommGroup P] [NormedSpace P] [NormedAddCommGroup V] [InnerProductSpace V] [CompleteSpace V] [NormedAddCommGroup E] [InnerProductSpace E] [CompleteSpace E] (T : ) (hT : 0 T) (Q Q₁ : PC((Set.Icc 0 T), V →L[] E)) (c : ) (hc : 0 < c) (hQ : ∀ (x : P) (t : (Set.Icc 0 T)) (v : V), c * v ^ 2 ((Q x) t) v ^ 2) (U : (x : P) → EulerLinearDuhamel.Evolution T hT (EulerTransverseForwardInverse.generator T (Q x) (Q₁ x) c hc )) (f : PC((Set.Icc 0 T), E)) (a₀ : PV) {n : WithTop ℕ∞} (hQr : ContDiff n Q) (hQ₁r : ContDiff n Q₁) (hf : ContDiff n f) (ha₀ : ContDiff n a₀) :
ContDiff n fun (x : P) => EulerTransverseForwardInverse.coordinateDerivative T hT (Q x) (Q₁ x) c hc (U x) (f x) (a₀ x)

The actual coordinate derivative is smooth in external parameters too.

theorem EulerTransverseForwardRegularity.velocityDerivative_contDiff {P : Type u_1} {V : Type u_2} {E : Type u_3} [NormedAddCommGroup P] [NormedSpace P] [NormedAddCommGroup V] [InnerProductSpace V] [CompleteSpace V] [NormedAddCommGroup E] [InnerProductSpace E] [CompleteSpace E] (T : ) (hT : 0 T) (Q Q₁ : PC((Set.Icc 0 T), V →L[] E)) (c : ) (hc : 0 < c) (hQ : ∀ (x : P) (t : (Set.Icc 0 T)) (v : V), c * v ^ 2 ((Q x) t) v ^ 2) (U : (x : P) → EulerLinearDuhamel.Evolution T hT (EulerTransverseForwardInverse.generator T (Q x) (Q₁ x) c hc )) (f : PC((Set.Icc 0 T), E)) (a₀ : PV) {n : WithTop ℕ∞} (hQr : ContDiff n Q) (hQ₁r : ContDiff n Q₁) (hf : ContDiff n f) (ha₀ : ContDiff n a₀) :
ContDiff n fun (x : P) => EulerTransverseForwardInverse.velocityDerivative T hT (Q x) (Q₁ x) c hc (U x) (f x) (a₀ x)

The actual physical time derivative is smooth in the same uniform-time parameter norm.

theorem EulerTransverseForwardCoefficientGevrey.inverseRadius_bounds (c C Rc R : ) (hc : 0 < c) (hRc : 0 Rc) (hR : 2 * EulerTimeLpGramGevrey.gramCost c C 1 * (Rc + 1) R) :
0 R Rc 4 * R
@[instance_reducible]

Cache the standard NormedSpace ℝ (V →L[ℝ] V) instance to shorten typeclass synthesis.

Equations
Instances For
    @[instance_reducible]

    Cache the standard NormedAddCommGroup C(Icc (0 : ℝ) T,V →L[ℝ] V) instance to shorten typeclass synthesis.

    Equations
    Instances For
      @[instance_reducible]

      Cache the standard NormedSpace ℝ C(Icc (0 : ℝ) T,V →L[ℝ] V) instance to shorten typeclass synthesis.

      Equations
      Instances For
        @[instance_reducible]

        Cache the standard NormedAddCommGroup C(Icc (0 : ℝ) T,V →L[ℝ] E) instance to shorten typeclass synthesis.

        Equations
        Instances For
          @[instance_reducible]

          Cache the standard NormedSpace ℝ C(Icc (0 : ℝ) T,V →L[ℝ] E) instance to shorten typeclass synthesis.

          Equations
          Instances For
            @[instance_reducible]

            Cache the standard NormedAddCommGroup C(Icc (0 : ℝ) T,E →L[ℝ] V) instance to shorten typeclass synthesis.

            Equations
            Instances For
              @[instance_reducible]

              Cache the standard NormedSpace ℝ C(Icc (0 : ℝ) T,E →L[ℝ] V) instance to shorten typeclass synthesis.

              Equations
              Instances For
                theorem EulerTransverseForwardCoefficientGevrey.inversePath_coefficient_bound {P : Type u_1} {V : Type u_2} {E : Type u_3} [NormedAddCommGroup P] [NormedSpace P] [NormedAddCommGroup V] [InnerProductSpace V] [CompleteSpace V] [NormedAddCommGroup E] [InnerProductSpace E] [CompleteSpace E] (T : ) (Q : PC((Set.Icc 0 T), V →L[] E)) (c : ) (hc : 0 < c) (hQ : ∀ (x : P) (t : (Set.Icc 0 T)) (v : V), c * v ^ 2 ((Q x) t) v ^ 2) (hQr : ContDiff (↑) Q) (Rc C₀ Ri : ) (hRc : 0 Rc) (hC₀ : 0 C₀) (hRi : 2 * EulerTimeLpGramGevrey.gramCost c C₀ 1 * (Rc + 1) Ri) (hbQ : ∀ (n : ) (x : P), iteratedFDeriv n Q x C₀ * EulerGevrey.majorant Rc 0 n) (n : ) (x : P) :
                iteratedFDeriv n (fun (y : P) => EulerTransverseGramPath.gramInversePath T (Q y) c hc ) x Ri * EulerGevrey.majorant (4 * Ri) 0 n

                The genuine inverse becomes a shift-zero coefficient at radius 4 Ri.

                theorem EulerTransverseForwardCoefficientGevrey.frameLeftInversePath_bound {P : Type u_1} {V : Type u_2} {E : Type u_3} [NormedAddCommGroup P] [NormedSpace P] [NormedAddCommGroup V] [InnerProductSpace V] [CompleteSpace V] [NormedAddCommGroup E] [InnerProductSpace E] [CompleteSpace E] (T : ) (Q : PC((Set.Icc 0 T), V →L[] E)) (c : ) (hc : 0 < c) (hQ : ∀ (x : P) (t : (Set.Icc 0 T)) (v : V), c * v ^ 2 ((Q x) t) v ^ 2) (hQr : ContDiff (↑) Q) (Rc C₀ Ri : ) (hRc : 0 Rc) (hC₀ : 0 C₀) (hRi : 2 * EulerTimeLpGramGevrey.gramCost c C₀ 1 * (Rc + 1) Ri) (hbQ : ∀ (n : ) (x : P), iteratedFDeriv n Q x C₀ * EulerGevrey.majorant Rc 0 n) (n : ) (x : P) :
                iteratedFDeriv n (fun (y : P) => EulerTransverseGramPath.frameLeftInversePath T (Q y) c hc ) x 3 * Ri * C₀ * EulerGevrey.majorant (4 * Ri) 0 n

                The actual left inverse K⁻¹ Q* has a polynomial multiplier amplitude.

                theorem EulerTransverseForwardCoefficientGevrey.generator_bound {P : Type u_1} {V : Type u_2} {E : Type u_3} [NormedAddCommGroup P] [NormedSpace P] [NormedAddCommGroup V] [InnerProductSpace V] [CompleteSpace V] [NormedAddCommGroup E] [InnerProductSpace E] [CompleteSpace E] (T : ) (Q Q₁ : PC((Set.Icc 0 T), V →L[] E)) (c : ) (hc : 0 < c) (hQ : ∀ (x : P) (t : (Set.Icc 0 T)) (v : V), c * v ^ 2 ((Q x) t) v ^ 2) (hQr : ContDiff (↑) Q) (hQ₁r : ContDiff (↑) Q₁) (Rc C₀ C₁ Ri : ) (hRc : 0 Rc) (hC₀ : 0 C₀) (hC₁ : 0 C₁) (hRi : 2 * EulerTimeLpGramGevrey.gramCost c C₀ 1 * (Rc + 1) Ri) (hbQ : ∀ (n : ) (x : P), iteratedFDeriv n Q x C₀ * EulerGevrey.majorant Rc 0 n) (hbQ₁ : ∀ (n : ) (x : P), iteratedFDeriv n Q₁ x C₁ * EulerGevrey.majorant Rc 0 n) (n : ) (x : P) :
                iteratedFDeriv n (fun (y : P) => EulerTransverseForwardInverse.generator T (Q y) (Q₁ y) c hc ) x 18 * Ri * C₀ * C₁ * EulerGevrey.majorant (4 * Ri) 0 n

                The ordinary generator in (12) has actual shift-zero coefficient bounds.

                theorem EulerTransverseForwardCoefficientGevrey.projected_forcing_bound {P : Type u_1} {V : Type u_2} {E : Type u_3} [NormedAddCommGroup P] [NormedSpace P] [NormedAddCommGroup V] [InnerProductSpace V] [CompleteSpace V] [NormedAddCommGroup E] [InnerProductSpace E] [CompleteSpace E] (T : ) (Q : PC((Set.Icc 0 T), V →L[] E)) (c : ) (hc : 0 < c) (hQ : ∀ (x : P) (t : (Set.Icc 0 T)) (v : V), c * v ^ 2 ((Q x) t) v ^ 2) (hQr : ContDiff (↑) Q) (Rc C₀ Ri : ) (hRc : 0 Rc) (hC₀ : 0 C₀) (hRi : 2 * EulerTimeLpGramGevrey.gramCost c C₀ 1 * (Rc + 1) Ri) (hbQ : ∀ (n : ) (x : P), iteratedFDeriv n Q x C₀ * EulerGevrey.majorant Rc 0 n) (f : PC((Set.Icc 0 T), E)) (hf : ContDiff (↑) f) (R D : ) (hR : 4 * Ri R) (hD : 0 D) (d : ) (hbf : ∀ (n : ) (x : P), iteratedFDeriv n f x D * EulerGevrey.majorant R d n) (n : ) (x : P) :
                iteratedFDeriv n (fun (y : P) => (EulerTransverseForwardInverse.forcingOperator T (Q y) c hc ) (f y)) x 9 * Ri * C₀ * D * EulerGevrey.majorant R d n

                Multiplication by the actual projected-forcing coefficient preserves the input factorial shift, with a polynomial amplitude.