Documentation

LeanPool.NavierStokesAndEuler.Euler.TransverseFixedSobolev

Same-radius fixed-Sobolev estimates for the actual transverse history #

The finite base order stays inside each external word. Only coefficient tensor bounds are converted to word sums; forcing and solution use the same external radius and base order. The recurrence is applied to the actual coercive inverse, with its proved polynomial norm bound.

Uniform factorial estimates for the constructed transverse inverse #

Every constant is an explicit polynomial in the interval length, frame bounds, potential bound, and reciprocal frame lower bound. The same radius works at every derivative order and input shift. The recurrence is derived from the actual inverse equation, not assumed for an abstract jet.

Factorial coefficient estimates for the actual transverse form #

The coefficient constants below are polynomial in the frame bounds and the interval length. They control genuine Fréchet derivatives of the concrete fixed-space operator and forcing, without a packaged jet or recurrence input.

The polynomial coefficient cost of taking a physical derivative.

Equations
Instances For

    The polynomial coefficient cost of the transported variational form.

    Equations
    Instances For

      The polynomial cost of the actual weak forcing term.

      Equations
      Instances For
        theorem EulerTransverseCoefficientGevrey.fixedFrameDerivative_bound {P : Type u_1} {U : Type u_2} {E : Type u_3} [NormedAddCommGroup P] [NormedSpace P] [NormedAddCommGroup U] [InnerProductSpace U] [NormedAddCommGroup E] [InnerProductSpace E] (T : ) (hT : 0 T) (Q Q₁ : PC((Set.Icc 0 T), U →L[] E)) (hQ : ContDiff (↑) Q) (hQ₁ : ContDiff (↑) Q₁) (R C₀ C₁ : ) (hR : 0 R) (hC₀ : 0 C₀) (hC₁ : 0 C₁) (hbQ : ∀ (n : ) (x : P), iteratedFDeriv n Q x C₀ * EulerGevrey.majorant R 0 n) (hbQ₁ : ∀ (n : ) (x : P), iteratedFDeriv n Q₁ x C₁ * EulerGevrey.majorant R 0 n) (n : ) (x : P) :

        Every actual derivative of the fixed kinetic map has the same factorial bound.

        theorem EulerTransverseCoefficientGevrey.fixedFramePrimitive_bound {P : Type u_1} {U : Type u_2} {E : Type u_3} [NormedAddCommGroup P] [NormedSpace P] [NormedAddCommGroup U] [InnerProductSpace U] [NormedAddCommGroup E] [InnerProductSpace E] (T : ) (hT : 0 T) (Q Q₁ : PC((Set.Icc 0 T), U →L[] E)) (hQ : ContDiff (↑) Q) (hQ₁ : ContDiff (↑) Q₁) (R C₀ C₁ : ) (hR : 0 R) (hC₀ : 0 C₀) (hC₁ : 0 C₁) (hbQ : ∀ (n : ) (x : P), iteratedFDeriv n Q x C₀ * EulerGevrey.majorant R 0 n) (hbQ₁ : ∀ (n : ) (x : P), iteratedFDeriv n Q₁ x C₁ * EulerGevrey.majorant R 0 n) (n : ) (x : P) :

        Terminal integration adds only the interval-length factor.

        theorem EulerTransverseCoefficientGevrey.dirichletOperator_bound {P : Type u_1} {E : Type u_3} [NormedAddCommGroup P] [NormedSpace P] [NormedAddCommGroup E] [InnerProductSpace E] [CompleteSpace E] (T : ) (hT : 0 T) (H : PC((Set.Icc 0 T), E →L[] E)) (hH : ContDiff (↑) H) (R CH : ) (hR : 0 R) (hCH : 0 CH) (hbH : ∀ (n : ) (x : P), iteratedFDeriv n H x CH * EulerGevrey.majorant R 0 n) (n : ) (x : P) :

        The physical Dirichlet form has the coefficient-only factorial bound.

        theorem EulerTransverseCoefficientGevrey.fixedFrameOperator_bound {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 : ) (hT : 0 T) (Q Q₁ : PC((Set.Icc 0 T), U →L[] E)) (H : PC((Set.Icc 0 T), E →L[] E)) (hQ : ContDiff (↑) Q) (hQ₁ : ContDiff (↑) Q₁) (hH : ContDiff (↑) H) (R C₀ C₁ CH : ) (hR : 0 R) (hC₀ : 0 C₀) (hC₁ : 0 C₁) (hCH : 0 CH) (hbQ : ∀ (n : ) (x : P), iteratedFDeriv n Q x C₀ * EulerGevrey.majorant R 0 n) (hbQ₁ : ∀ (n : ) (x : P), iteratedFDeriv n Q₁ x C₁ * EulerGevrey.majorant R 0 n) (hbH : ∀ (n : ) (x : P), iteratedFDeriv n H x CH * EulerGevrey.majorant R 0 n) (n : ) (x : P) :
        iteratedFDeriv n (fun (y : P) => EulerTransverseFixedSpaceInverse.fixedFrameOperator T hT (Q y) (Q₁ y) (H y)) x formCost T C₀ C₁ CH * EulerGevrey.majorant R 0 n

        Factorial control of the concrete fixed-space operator follows from the prescribed paths.

        theorem EulerTransverseCoefficientGevrey.fixedForcing_bound {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 : ) (hT : 0 T) (Q Q₁ : PC((Set.Icc 0 T), U →L[] E)) (hQ : ContDiff (↑) Q) (hQ₁ : ContDiff (↑) Q₁) (R C₀ C₁ : ) (hR : 0 R) (hC₀ : 0 C₀) (hC₁ : 0 C₁) (hbQ : ∀ (n : ) (x : P), iteratedFDeriv n Q x C₀ * EulerGevrey.majorant R 0 n) (hbQ₁ : ∀ (n : ) (x : P), iteratedFDeriv n Q₁ x C₁ * EulerGevrey.majorant R 0 n) (f : P(EulerTimeLp.TimeLp T E)) (hf : ContDiff (↑) f) (d : ) (hbf : ∀ (n : ) (x : P), iteratedFDeriv n f x EulerGevrey.majorant R d n) (n : ) (x : P) :

        The genuine weak right side has the input shift with a fixed polynomial cost.

        noncomputable def EulerTransverseGevreyInverse.transportCeiling (T C₀ C₁ c : ) :

        Uniform polynomial bound for the inverse frame transport.

        Equations
        Instances For
          noncomputable def EulerTransverseGevreyInverse.inverseCost (T C₀ C₁ c : ) :

          Uniform polynomial bound for the inverse of the transported form.

          Equations
          Instances For
            noncomputable def EulerTransverseGevreyInverse.solveCost (T C₀ C₁ CH c : ) :

            One polynomial top constant handles both coefficient and forcing amplitudes.

            Equations
            • One or more equations did not get rendered due to their size.
            Instances For
              theorem EulerTransverseGevreyInverse.fixedCoercivity_inv_le {U : Type u_2} {E : Type u_3} [NormedAddCommGroup U] [InnerProductSpace U] [NormedAddCommGroup E] [InnerProductSpace E] (T : ) (hT : 0 T) (Q Q₁ : C((Set.Icc 0 T), U →L[] E)) (c : ) (hc : 0 < c) (C₀ C₁ : ) (hQ : Q C₀) (hQ₁ : Q₁ C₁) :

              The explicit fixed-space coercivity gives the promised polynomial inverse bound.

              theorem EulerTransverseGevreyInverse.solveCost_one_le (T C₀ C₁ CH c : ) (hT : 0 T) (hC₀ : 0 C₀) (hC₁ : 0 C₁) (hCH : 0 CH) :
              1 solveCost T C₀ C₁ CH c

              The top constant is at least one for all nonnegative coefficient bounds.

              theorem EulerTransverseGevreyInverse.fixedFrameSolution_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 : ) (hT : 0 T) (Q Q₁ : PC((Set.Icc 0 T), U →L[] E)) (H : PC((Set.Icc 0 T), E →L[] E)) (c : ) (hc : 0 < c) (hLower : ∀ (x : P) (t : (Set.Icc 0 T)) (v : U), c * v ^ 2 ((Q x) t) v ^ 2) (hd : ∀ (x : P) (t : (Set.Icc 0 T)), HasDerivWithinAt (EulerVolterraConvolution.extendPath T hT (Q x)) ((Q₁ x) t) (Set.Icc 0 T) t) (K : ) (hK : 0 K) (hPotential : ∀ (x : P) (t : (Set.Icc 0 T)) (v : E), inner (((H x) t) v) v K * v ^ 2) (hsmall : K * (T ^ 2 / 2) 1 / 2) (hQ : ContDiff (↑) Q) (hQ₁ : ContDiff (↑) Q₁) (hH : ContDiff (↑) H) (Rc C₀ C₁ CH : ) (hRc : 0 Rc) (hC₀ : 0 C₀) (hC₁ : 0 C₁) (hCH : 0 CH) (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) (hbH : ∀ (n : ) (x : P), iteratedFDeriv n H x CH * EulerGevrey.majorant Rc 0 n) (R : ) (hR : 2 * solveCost T C₀ C₁ CH c * (Rc + 1) R) (f : P(EulerTimeLp.TimeLp T E)) (hf : ContDiff (↑) f) (d : ) (hbf : ∀ (n : ) (x : P), iteratedFDeriv n f x EulerGevrey.majorant R d n) (n : ) (x : P) :
              iteratedFDeriv n (fun (y : P) => (EulerTransverseFixedSpaceInverse.fixedFrameSolver T hT (Q y) (Q₁ y) (H y) c hc K hK hsmall) (f y)) x EulerGevrey.majorant R (d + 1) n

              The actual zero-endpoint coordinate solve has a single-shift factorial bound with a radius uniform in the derivative order and input shift.

              theorem EulerTransverseGevreyInverse.transverseCoordinates_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 : ) (hT : 0 T) (Q Q₁ : PC((Set.Icc 0 T), U →L[] E)) (H : PC((Set.Icc 0 T), E →L[] E)) (c : ) (hc : 0 < c) (hLower : ∀ (x : P) (t : (Set.Icc 0 T)) (v : U), c * v ^ 2 ((Q x) t) v ^ 2) (hd : ∀ (x : P) (t : (Set.Icc 0 T)), HasDerivWithinAt (EulerVolterraConvolution.extendPath T hT (Q x)) ((Q₁ x) t) (Set.Icc 0 T) t) (K : ) (hK : 0 K) (hPotential : ∀ (x : P) (t : (Set.Icc 0 T)) (v : E), inner (((H x) t) v) v K * v ^ 2) (hsmall : K * (T ^ 2 / 2) 1 / 2) (hQ : ContDiff (↑) Q) (hQ₁ : ContDiff (↑) Q₁) (hH : ContDiff (↑) H) (Rc C₀ C₁ CH : ) (hRc : 0 Rc) (hC₀ : 0 C₀) (hC₁ : 0 C₁) (hCH : 0 CH) (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) (hbH : ∀ (n : ) (x : P), iteratedFDeriv n H x CH * EulerGevrey.majorant Rc 0 n) (m : P(Set.Icc 0 T)E) (hTangent : ∀ (y : P) (t : (Set.Icc 0 T)) (v : U), inner (m y t) (((Q y) t) v) = 0) (hRange : ∀ (y : P) (t : (Set.Icc 0 T)) (η : E), inner (m y t) η = 0∃ (v : U), ((Q y) t) v = η) (R : ) (hR : 2 * solveCost T C₀ C₁ CH c * (Rc + 1) R) (f : P(EulerTimeLp.TimeLp T E)) (hf : ContDiff (↑) f) (d : ) (hbf : ∀ (n : ) (x : P), iteratedFDeriv n f x EulerGevrey.majorant R d n) (n : ) (x : P) :
              iteratedFDeriv n (fun (y : P) => EulerTransverseCoordinateRegularity.coordinateDerivative T hT (Q y) (Q₁ y) c hc ((EulerTransverseVariationalInverse.transverseSolver T hT (m y) (H y) K hK hsmall) (f y))) x EulerGevrey.majorant R (d + 1) n

              The factorial estimate applies to the recovered coordinate derivative of the original physical transverse solver.

              theorem EulerTransverseGevreyInverse.transverseVelocity_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 : ) (hT : 0 T) (Q Q₁ : PC((Set.Icc 0 T), U →L[] E)) (H : PC((Set.Icc 0 T), E →L[] E)) (c : ) (hc : 0 < c) (hLower : ∀ (x : P) (t : (Set.Icc 0 T)) (v : U), c * v ^ 2 ((Q x) t) v ^ 2) (hd : ∀ (x : P) (t : (Set.Icc 0 T)), HasDerivWithinAt (EulerVolterraConvolution.extendPath T hT (Q x)) ((Q₁ x) t) (Set.Icc 0 T) t) (K : ) (hK : 0 K) (hPotential : ∀ (x : P) (t : (Set.Icc 0 T)) (v : E), inner (((H x) t) v) v K * v ^ 2) (hsmall : K * (T ^ 2 / 2) 1 / 2) (hQ : ContDiff (↑) Q) (hQ₁ : ContDiff (↑) Q₁) (hH : ContDiff (↑) H) (Rc C₀ C₁ CH : ) (hRc : 0 Rc) (hC₀ : 0 C₀) (hC₁ : 0 C₁) (hCH : 0 CH) (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) (hbH : ∀ (n : ) (x : P), iteratedFDeriv n H x CH * EulerGevrey.majorant Rc 0 n) (m : P(Set.Icc 0 T)E) (hTangent : ∀ (y : P) (t : (Set.Icc 0 T)) (v : U), inner (m y t) (((Q y) t) v) = 0) (hRange : ∀ (y : P) (t : (Set.Icc 0 T)) (η : E), inner (m y t) η = 0∃ (v : U), ((Q y) t) v = η) (R : ) (hR : 2 * solveCost T C₀ C₁ CH c * (Rc + 1) R) (f : P(EulerTimeLp.TimeLp T E)) (hf : ContDiff (↑) f) (d : ) (hbf : ∀ (n : ) (x : P), iteratedFDeriv n f x EulerGevrey.majorant R d n) (n : ) (x : P) :
              iteratedFDeriv n (fun (y : P) => (EulerTimeLp.timeMultiplier T hT (Q y)) (EulerTransverseCoordinateRegularity.coordinateDerivative T hT (Q y) (Q₁ y) c hc ((EulerTransverseVariationalInverse.transverseSolver T hT (m y) (H y) K hK hsmall) (f y)))) x 3 * C₀ * EulerGevrey.majorant R (d + 1) n

              The actual physical transverse velocity has the same factorial shift, with only the fixed coefficient multiplication constant.

              def EulerTransverseFixedSobolev.forcingBlockAmplitude (ι : Type u_1) [Fintype ι] (q : ) (T Rc C₀ C₁ Cf : ) :

              Forcing block amplitude, given by 3*sobolevCoefficientAmplitude ι q Rc (T*derivativeCost T C₀ C₁)*Cf.

              Equations
              • One or more equations did not get rendered due to their size.
              Instances For
                noncomputable def EulerTransverseFixedSobolev.blockCost (ι : Type u_1) [Fintype ι] (q : ) (T Rc C₀ C₁ CH c Cf : ) :

                Block cost, given by inverseBlockCost ι q (inverseCost T C₀ C₁ c) Rc (formCost T C₀ C₁ CH) (forcingBlockAmplitude ι q T Rc C₀ C₁ Cf).

                Equations
                • One or more equations did not get rendered due to their size.
                Instances For
                  theorem EulerTransverseFixedSobolev.forcingBlockAmplitude_nonneg (ι : Type u_1) [Fintype ι] (q : ) (T Rc C₀ C₁ Cf : ) (hT : 0 T) (hRc : 0 Rc) (hC₀ : 0 C₀) (hC₁ : 0 C₁) (hCf : 0 Cf) :
                  0 forcingBlockAmplitude ι q T Rc C₀ C₁ Cf
                  theorem EulerTransverseFixedSobolev.blockCost_one_le (ι : Type u_1) [Fintype ι] (q : ) (T Rc C₀ C₁ CH c Cf : ) (hT : 0 T) (hRc : 0 Rc) (hC₀ : 0 C₀) (hC₁ : 0 C₁) (hCH : 0 CH) (hCf : 0 Cf) :
                  1 blockCost ι q T Rc C₀ C₁ CH c Cf
                  theorem EulerTransverseFixedSobolev.forcingOperator_bound {X : Type u_1} {U : Type u_2} {E : Type u_3} [NormedAddCommGroup X] [NormedSpace X] [NormedAddCommGroup U] [InnerProductSpace U] [CompleteSpace U] [NormedAddCommGroup E] [InnerProductSpace E] [CompleteSpace E] (T : ) (hT : 0 T) (Q Q₁ : XC((Set.Icc 0 T), U →L[] E)) (hQ : ContDiff (↑) Q) (hQ₁ : ContDiff (↑) Q₁) (Rc C₀ C₁ : ) (hRc : 0 Rc) (hC₀ : 0 C₀) (hC₁ : 0 C₁) (hbQ : ∀ (n : ) (x : X), iteratedFDeriv n Q x C₀ * EulerGevrey.majorant Rc 0 n) (hbQ₁ : ∀ (n : ) (x : X), iteratedFDeriv n Q₁ x C₁ * EulerGevrey.majorant Rc 0 n) (n : ) (x : X) :

                  The actual weak forcing pullback has coefficient-only tensor bounds.

                  theorem EulerTransverseFixedSobolev.solver_block_gevrey {X : Type u_1} {U : Type u_2} {E : Type u_3} {ι : Type u_4} [NormedAddCommGroup X] [NormedSpace X] [NormedAddCommGroup U] [InnerProductSpace U] [CompleteSpace U] [NormedAddCommGroup E] [InnerProductSpace E] [CompleteSpace E] [Fintype ι] (directions : ιX) (hdir : ∀ (i : ι), directions i 1) (q : ) (T : ) (hT : 0 T) (Q Q₁ : XC((Set.Icc 0 T), U →L[] E)) (H : XC((Set.Icc 0 T), E →L[] E)) (c : ) (hc : 0 < c) (hLower : ∀ (x : X) (t : (Set.Icc 0 T)) (v : U), c * v ^ 2 ((Q x) t) v ^ 2) (hd : ∀ (x : X) (t : (Set.Icc 0 T)), HasDerivWithinAt (EulerVolterraConvolution.extendPath T hT (Q x)) ((Q₁ x) t) (Set.Icc 0 T) t) (K : ) (hK : 0 K) (hPotential : ∀ (x : X) (t : (Set.Icc 0 T)) (v : E), inner (((H x) t) v) v K * v ^ 2) (hsmall : K * (T ^ 2 / 2) 1 / 2) (hQ : ContDiff (↑) Q) (hQ₁ : ContDiff (↑) Q₁) (hH : ContDiff (↑) H) (Rc C₀ C₁ CH Cf R : ) (hRc : 0 Rc) (hC₀ : 0 C₀) (hC₁ : 0 C₁) (hCH : 0 CH) (hCf : 0 Cf) (hbQ : ∀ (n : ) (x : X), iteratedFDeriv n Q x C₀ * EulerGevrey.majorant Rc 0 n) (hbQ₁ : ∀ (n : ) (x : X), iteratedFDeriv n Q₁ x C₁ * EulerGevrey.majorant Rc 0 n) (hbH : ∀ (n : ) (x : X), iteratedFDeriv n H x CH * EulerGevrey.majorant Rc 0 n) (hR : 2 * blockCost ι q T Rc C₀ C₁ CH c Cf * (EulerParameterWordGevrey.sobolevCoefficientRadius ι Rc + 1) R) (f : X(EulerTimeLp.TimeLp T E)) (hf : ContDiff (↑) f) (d : ) (hfb : ∀ (n : ) (x : X), EulerParameterWordGevrey.block directions q f n x Cf * EulerGevrey.majorant R d n) (n : ) (x : X) :
                  EulerParameterWordGevrey.block directions q (fun (y : X) => (EulerTransverseFixedSpaceInverse.fixedFrameSolver T hT (Q y) (Q₁ y) (H y) c hc K hK hsmall) (f y)) n x EulerGevrey.majorant R (d + 1) n

                  The genuine zero-trace coordinate solver gains one factorial shift at the identical external radius and fixed base Sobolev order.

                  theorem EulerTransverseFixedSobolev.velocityLp_block_gevrey {X : Type u_1} {U : Type u_2} {E : Type u_3} {ι : Type u_4} [NormedAddCommGroup X] [NormedSpace X] [NormedAddCommGroup U] [InnerProductSpace U] [CompleteSpace U] [NormedAddCommGroup E] [InnerProductSpace E] [CompleteSpace E] [Fintype ι] (directions : ιX) (hdir : ∀ (i : ι), directions i 1) (q : ) (T : ) (hT : 0 T) (Q Q₁ : XC((Set.Icc 0 T), U →L[] E)) (H : XC((Set.Icc 0 T), E →L[] E)) (c : ) (hc : 0 < c) (hLower : ∀ (x : X) (t : (Set.Icc 0 T)) (v : U), c * v ^ 2 ((Q x) t) v ^ 2) (hd : ∀ (x : X) (t : (Set.Icc 0 T)), HasDerivWithinAt (EulerVolterraConvolution.extendPath T hT (Q x)) ((Q₁ x) t) (Set.Icc 0 T) t) (K : ) (hK : 0 K) (hPotential : ∀ (x : X) (t : (Set.Icc 0 T)) (v : E), inner (((H x) t) v) v K * v ^ 2) (hsmall : K * (T ^ 2 / 2) 1 / 2) (hQ : ContDiff (↑) Q) (hQ₁ : ContDiff (↑) Q₁) (hH : ContDiff (↑) H) (Rc C₀ C₁ CH Cf R : ) (hRc : 0 Rc) (hC₀ : 0 C₀) (hC₁ : 0 C₁) (hCH : 0 CH) (hCf : 0 Cf) (hbQ : ∀ (n : ) (x : X), iteratedFDeriv n Q x C₀ * EulerGevrey.majorant Rc 0 n) (hbQ₁ : ∀ (n : ) (x : X), iteratedFDeriv n Q₁ x C₁ * EulerGevrey.majorant Rc 0 n) (hbH : ∀ (n : ) (x : X), iteratedFDeriv n H x CH * EulerGevrey.majorant Rc 0 n) (hR : 2 * blockCost ι q T Rc C₀ C₁ CH c Cf * (EulerParameterWordGevrey.sobolevCoefficientRadius ι Rc + 1) R) (f : X(EulerTimeLp.TimeLp T E)) (hf : ContDiff (↑) f) (d : ) (hfb : ∀ (n : ) (x : X), EulerParameterWordGevrey.block directions q f n x Cf * EulerGevrey.majorant R d n) (n : ) (x : X) :
                  EulerParameterWordGevrey.block directions q (fun (y : X) => (EulerTransverseFixedEvolution.velocityLp T hT (Q y) (Q₁ y) (H y) c hc K hK hsmall) (f y)) n x EulerGevrey.majorant R (d + 1) n

                  Forgetting the zero-trace subtype is a contraction, so the actual coordinate L² velocity has the identical word estimate.