Documentation

LeanPool.NavierStokesAndEuler.Euler.PacketInitializedHessianError

The actual finite pressure Hessian is its primary normal tensor plus a uniform inverse-frequency error. No derivative or remainder estimate is assumed for a solved field.

The initialized finite pressure has its actual leading angular force and a uniformly small covector remainder.

theorem EulerPacketTerminalDatum.initializedProfiles_one_highPressure (M : EulerMeanPacketProvider.Data) {U : Type u_1} [NormedAddCommGroup U] [InnerProductSpace U] [CompleteSpace U] (D : EulerTransversePacketProvider.Data U) (τ : ) ( : 0 < τ) (hτT : τ < D.T) (B : EulerTransversePacketProvider.HistoryData (D.initial τ )) (δ : ) ( : 0 < δ) (ξ : U) (hs : tsupport EulerSpatialCutoffs.innerCutoffD.support) (α : ) :
(initializedProfiles M D τ hτT B δ ξ hs α 1).highPressure = EulerTransversePacketPrimary.scalar τ hτT B (initialData D δ (α ξ) hs)

Initialized angular pressure, defined pointwise by (pressureJet (scalar τ hτ hτT B (initialData D δ hδ (α • ξ) hs)) z).2 angleDirection.

Equations
  • One or more equations did not get rendered due to their size.
Instances For

    Initialized covector remainder, given by covectorRemainder (N := N) (a := initializedProfiles M D τ hτ hτT B δ hδ ξ hs α) D.m₀ κ.

    Equations
    Instances For
      theorem EulerPacketTerminalDatum.initializedPressure_gradient_decomposition (M : EulerMeanPacketProvider.Data) {U : Type u_1} [NormedAddCommGroup U] [InnerProductSpace U] [CompleteSpace U] (D : EulerTransversePacketProvider.Data U) (hTime : M.T = D.T) (τ : ) ( : 0 < τ) (hτT : τ < D.T) (B : EulerTransversePacketProvider.HistoryData (D.initial τ )) (δ : ) ( : 0 < δ) (ξ : U) (hs : tsupport EulerSpatialCutoffs.innerCutoffD.support) (α : ) (N : ) (k : ) (hk : k 0) (t : (Set.Icc 0 D.T)) (Y : EulerSmoothLimit.SpaceEulerSmoothLimit.Space) (x : EulerSmoothLimit.Space) (hY : HasFDerivAt Y ((D.FInv.field t) (Y x)) x) :
      gradient (fun (y : EulerSmoothLimit.Space) => initializedPressure M D τ hτT B δ ξ hs α N k⁻¹ (t, Y y, k * inner D.m₀ (Y y))) x = EulerPacketGraphHessian.fastForce (fun (z : EulerLiftedGradientSpace.LiftTangent) => initializedAngularPressure D τ hτT B δ ξ hs α (t, z)) k D.m₀ Y (fun (y : EulerSmoothLimit.Space) => (D.FInv.field t) (Y y)) x + (ContinuousLinearMap.adjoint ((D.FInv.field t) (Y x))) (initializedCovectorRemainder M D τ hτT B δ ξ hs α N k⁻¹ (t, Y x, k * inner D.m₀ (Y x)))
      noncomputable def EulerPacketTerminalDatum.initializedPressureBudget (M : EulerMeanPacketProvider.Data) {U : Type u_1} [NormedAddCommGroup U] [InnerProductSpace U] [CompleteSpace U] (D : EulerTransversePacketProvider.Data U) (hTime : M.T = D.T) (τ : ) ( : 0 < τ) (hτT : τ < D.T) (B : EulerTransversePacketProvider.HistoryData (D.initial τ )) (δ : ) ( : 0 < δ) (ξ : U) (hs : tsupport EulerSpatialCutoffs.innerCutoffD.support) (α : ) (L : EulerTransversePacketJoin.Budget D τ hτT B (Fin 4) 6) (H : EulerTransversePacketPrimary.Budget L) (NB : EulerTransversePacketJoin.NormalBudget D 6 L.R) (W : L.GradeGuards NB) (LM : EulerMeanPacketProvider.Budget M 6 L.R) (WM : LM.GradeGuards) (BC : EulerPacketCylinderField.CoefficientBudget (EulerPacketCylinderField.joinedSourceCoefficientData period M D τ hτT B hTime)) (hRc : EulerParameterWordGevrey.sobolevCoefficientRadius (Fin 4) BC.Rc L.R) (hcost : BC.termCost L.R) (hδ1 : δ 1) ( : 0 < α) (hR : wordRadius (Fin 4) δ L.R) (WP : H.GradeGuards NB (wordCost (Fin 4) 6 δ * ξ)) (S : EulerPacketTimeProfile.Scales (Set.Icc 0 M.T)) (hgrowth : EulerPacketCylinderField.timeProfileChange S.growth hTime = α L.fullProfile) (p : ) :
      EulerPacketCylinderField.PressureBudget period M.T D.m₀ (initializedProfiles M D τ hτT B δ ξ hs α p) S L.R p

      Initialized pressure budget, constructed using Classical.choice.

      Equations
      Instances For

        Initialized angular pressure field as an element of Field period D.T (fun z => initializedAngularPressure D τ hτ hτT B δ hδ ξ hs α z • D.m₀).

        Equations
        • One or more equations did not get rendered due to their size.
        Instances For
          theorem EulerPacketTerminalDatum.initializedAngularPressure_bound (M : EulerMeanPacketProvider.Data) {U : Type u_1} [NormedAddCommGroup U] [InnerProductSpace U] [CompleteSpace U] (D : EulerTransversePacketProvider.Data U) (hTime : M.T = D.T) (τ : ) ( : 0 < τ) (hτT : τ < D.T) (B : EulerTransversePacketProvider.HistoryData (D.initial τ )) (δ : ) ( : 0 < δ) (ξ : U) (hs : tsupport EulerSpatialCutoffs.innerCutoffD.support) (α : ) (L : EulerTransversePacketJoin.Budget D τ hτT B (Fin 4) 6) (H : EulerTransversePacketPrimary.Budget L) (NB : EulerTransversePacketJoin.NormalBudget D 6 L.R) (W : L.GradeGuards NB) (LM : EulerMeanPacketProvider.Budget M 6 L.R) (WM : LM.GradeGuards) (BC : EulerPacketCylinderField.CoefficientBudget (EulerPacketCylinderField.joinedSourceCoefficientData period M D τ hτT B hTime)) (hRc : EulerParameterWordGevrey.sobolevCoefficientRadius (Fin 4) BC.Rc L.R) (hcost : BC.termCost L.R) (hδ1 : δ 1) ( : 0 < α) (hR : wordRadius (Fin 4) δ L.R) (WP : H.GradeGuards NB (wordCost (Fin 4) 6 δ * ξ)) (S : EulerPacketTimeProfile.Scales (Set.Icc 0 M.T)) (hgrowth : EulerPacketCylinderField.timeProfileChange S.growth hTime = α L.fullProfile) :
          (initializedAngularPressureField M D hTime τ hτT B δ ξ hs α L H NB W LM WM BC hRc hcost hδ1 hR WP S hgrowth).WordBound 6 (4 * L.R) (EulerPacketCylinderField.fixedVelocityGradeCost L.R S.H0 1) 0
          noncomputable def EulerPacketTerminalDatum.initializedCovectorRemainderField (M : EulerMeanPacketProvider.Data) {U : Type u_1} [NormedAddCommGroup U] [InnerProductSpace U] [CompleteSpace U] (D : EulerTransversePacketProvider.Data U) (hTime : M.T = D.T) (τ : ) ( : 0 < τ) (hτT : τ < D.T) (B : EulerTransversePacketProvider.HistoryData (D.initial τ )) (δ : ) ( : 0 < δ) (ξ : U) (hs : tsupport EulerSpatialCutoffs.innerCutoffD.support) (α : ) (L : EulerTransversePacketJoin.Budget D τ hτT B (Fin 4) 6) (H : EulerTransversePacketPrimary.Budget L) (NB : EulerTransversePacketJoin.NormalBudget D 6 L.R) (W : L.GradeGuards NB) (LM : EulerMeanPacketProvider.Budget M 6 L.R) (WM : LM.GradeGuards) (BC : EulerPacketCylinderField.CoefficientBudget (EulerPacketCylinderField.joinedSourceCoefficientData period M D τ hτT B hTime)) (hRc : EulerParameterWordGevrey.sobolevCoefficientRadius (Fin 4) BC.Rc L.R) (hcost : BC.termCost L.R) (hδ1 : δ 1) ( : 0 < α) (hR : wordRadius (Fin 4) δ L.R) (WP : H.GradeGuards NB (wordCost (Fin 4) 6 δ * ξ)) (S : EulerPacketTimeProfile.Scales (Set.Icc 0 M.T)) (hgrowth : EulerPacketCylinderField.timeProfileChange S.growth hTime = α L.fullProfile) (N : ) (hN : 1 N) (κ : ) :
          EulerPacketCylinderField.Field period D.T (initializedCovectorRemainder M D τ hτT B δ ξ hs α N κ)

          Initialized covector remainder field as an element of Field period D.T (initializedCovectorRemainder M D τ hτ hτT B δ hδ ξ hs α N κ).

          Equations
          • One or more equations did not get rendered due to their size.
          Instances For
            theorem EulerPacketTerminalDatum.initializedCovectorRemainder_bound (M : EulerMeanPacketProvider.Data) {U : Type u_1} [NormedAddCommGroup U] [InnerProductSpace U] [CompleteSpace U] (D : EulerTransversePacketProvider.Data U) (hTime : M.T = D.T) (τ : ) ( : 0 < τ) (hτT : τ < D.T) (B : EulerTransversePacketProvider.HistoryData (D.initial τ )) (δ : ) ( : 0 < δ) (ξ : U) (hs : tsupport EulerSpatialCutoffs.innerCutoffD.support) (α : ) (L : EulerTransversePacketJoin.Budget D τ hτT B (Fin 4) 6) (H : EulerTransversePacketPrimary.Budget L) (NB : EulerTransversePacketJoin.NormalBudget D 6 L.R) (W : L.GradeGuards NB) (LM : EulerMeanPacketProvider.Budget M 6 L.R) (WM : LM.GradeGuards) (BC : EulerPacketCylinderField.CoefficientBudget (EulerPacketCylinderField.joinedSourceCoefficientData period M D τ hτT B hTime)) (hRc : EulerParameterWordGevrey.sobolevCoefficientRadius (Fin 4) BC.Rc L.R) (hcost : BC.termCost L.R) (hδ1 : δ 1) ( : 0 < α) (hR : wordRadius (Fin 4) δ L.R) (WP : H.GradeGuards NB (wordCost (Fin 4) 6 δ * ξ)) (S : EulerPacketTimeProfile.Scales (Set.Icc 0 M.T)) (hgrowth : EulerPacketCylinderField.timeProfileChange S.growth hTime = α L.fullProfile) (N : ) (hN : 1 N) (k : ) (hk : 4 k) (hbase : EulerPacketCoarseMajorant.tailBase L.R S.H0 BC.termCost N k ^ (1 / 100)) :
            (initializedCovectorRemainderField M D hTime τ hτT B δ ξ hs α L H NB W LM WM BC hRc hcost hδ1 hR WP S hgrowth N hN k⁻¹).WordBound 6 (4 * L.R) ((EulerPacketCylinderField.fixedVelocityGradeCost L.R S.H0 2 + 2) / k ^ 2) 0

            The leading pressure tensor of the actual joined primary. Both angular derivatives below are derivatives of its constructed scalar pressure.

            Coefficient, given by -(2*a*⟪D.normal.field t x, D.M.field t x (canonicalVelocity τ hτ hτT B ξ hs t x)⟫_ℝ)/‖D.normal.field t x‖^2.

            Equations
            • One or more equations did not get rendered due to their size.
            Instances For
              theorem EulerPacketPrimaryPressure.scalar_hasDerivAt {U : Type u_1} [NormedAddCommGroup U] [InnerProductSpace U] [CompleteSpace U] {D : EulerTransversePacketProvider.Data U} (τ : ) ( : 0 < τ) (hτT : τ < D.T) (B : EulerTransversePacketProvider.HistoryData (D.initial τ )) (δ : ) ( : 0 < δ) (ξ : U) (hs : tsupport EulerSpatialCutoffs.innerCutoffD.support) (a : ) (t : (Set.Icc 0 D.T)) (x : EulerSmoothLimit.Space) (θ : ) :
              HasDerivAt (fun (s : ) => EulerTransversePacketPrimary.scalar τ hτT B (EulerPacketTerminalDatum.initialData D δ (a ξ) hs) (t, x, s)) (coefficient τ hτT B ξ hs a t x * EulerPeriodicProfile.profile δ θ) θ
              theorem EulerPacketPrimaryPressure.scalar_deriv {U : Type u_1} [NormedAddCommGroup U] [InnerProductSpace U] [CompleteSpace U] {D : EulerTransversePacketProvider.Data U} (τ : ) ( : 0 < τ) (hτT : τ < D.T) (B : EulerTransversePacketProvider.HistoryData (D.initial τ )) (δ : ) ( : 0 < δ) (ξ : U) (hs : tsupport EulerSpatialCutoffs.innerCutoffD.support) (a : ) (t : (Set.Icc 0 D.T)) (x : EulerSmoothLimit.Space) (θ : ) :
              deriv (fun (s : ) => EulerTransversePacketPrimary.scalar τ hτT B (EulerPacketTerminalDatum.initialData D δ (a ξ) hs) (t, x, s)) θ = coefficient τ hτT B ξ hs a t x * EulerPeriodicProfile.profile δ θ
              theorem EulerPacketPrimaryPressure.scalar_deriv_hasDerivAt {U : Type u_1} [NormedAddCommGroup U] [InnerProductSpace U] [CompleteSpace U] {D : EulerTransversePacketProvider.Data U} (τ : ) ( : 0 < τ) (hτT : τ < D.T) (B : EulerTransversePacketProvider.HistoryData (D.initial τ )) (δ : ) ( : 0 < δ) (ξ : U) (hs : tsupport EulerSpatialCutoffs.innerCutoffD.support) (a : ) (t : (Set.Icc 0 D.T)) (x : EulerSmoothLimit.Space) (θ : ) :
              HasDerivAt (deriv fun (s : ) => EulerTransversePacketPrimary.scalar τ hτT B (EulerPacketTerminalDatum.initialData D δ (a ξ) hs) (t, x, s)) (coefficient τ hτT B ξ hs a t x * deriv (EulerPeriodicProfile.profile δ) θ) θ
              theorem EulerPacketPrimaryPressure.scalar_second_deriv {U : Type u_1} [NormedAddCommGroup U] [InnerProductSpace U] [CompleteSpace U] {D : EulerTransversePacketProvider.Data U} (τ : ) ( : 0 < τ) (hτT : τ < D.T) (B : EulerTransversePacketProvider.HistoryData (D.initial τ )) (δ : ) ( : 0 < δ) (ξ : U) (hs : tsupport EulerSpatialCutoffs.innerCutoffD.support) (a : ) (t : (Set.Icc 0 D.T)) (x : EulerSmoothLimit.Space) (θ : ) :
              deriv (deriv fun (s : ) => EulerTransversePacketPrimary.scalar τ hτT B (EulerPacketTerminalDatum.initialData D δ (a ξ) hs) (t, x, s)) θ = coefficient τ hτT B ξ hs a t x * deriv (EulerPeriodicProfile.profile δ) θ
              theorem EulerPacketPrimaryPressure.scalar_second_deriv_zero {U : Type u_1} [NormedAddCommGroup U] [InnerProductSpace U] [CompleteSpace U] {D : EulerTransversePacketProvider.Data U} (τ : ) ( : 0 < τ) (hτT : τ < D.T) (B : EulerTransversePacketProvider.HistoryData (D.initial τ )) (δ : ) ( : 0 < δ) (ξ : U) (hs : tsupport EulerSpatialCutoffs.innerCutoffD.support) (a : ) (t : (Set.Icc 0 D.T)) (x : EulerSmoothLimit.Space) :
              deriv (deriv fun (s : ) => EulerTransversePacketPrimary.scalar τ hτT B (EulerPacketTerminalDatum.initialData D δ (a ξ) hs) (t, x, s)) 0 = coefficient τ hτT B ξ hs a t x / δ

              Physical pressure, given by k⁻¹^2 * scalar τ hτ hτT B (initialData D δ hδ (a • ξ) hs) (t,(Y x,k*⟪D.m₀,Y x⟫_ℝ)).

              Equations
              • One or more equations did not get rendered due to their size.
              Instances For

                Hessian remainder, given by lowerHessian (fun z => scalar τ hτ hτT B (initialData D δ hδ (a • ξ) hs) (t,z)) k D.m₀ Y (fun y => D.FInv.field t (Y y)) x.

                Equations
                • One or more equations did not get rendered due to their size.
                Instances For
                  theorem EulerPacketPrimaryPressure.physicalPressure_hessian {U : Type u_1} [NormedAddCommGroup U] [InnerProductSpace U] [CompleteSpace U] {D : EulerTransversePacketProvider.Data U} (τ : ) ( : 0 < τ) (hτT : τ < D.T) (B : EulerTransversePacketProvider.HistoryData (D.initial τ )) (δ : ) ( : 0 < δ) (ξ : U) (hs : tsupport EulerSpatialCutoffs.innerCutoffD.support) (a k : ) (hk : k 0) (t : (Set.Icc 0 D.T)) (Y : EulerSmoothLimit.SpaceEulerSmoothLimit.Space) (hY : ∀ (x : EulerSmoothLimit.Space), HasFDerivAt Y ((D.FInv.field t) (Y x)) x) (x : EulerSmoothLimit.Space) :
                  fderiv (gradient (physicalPressure τ hτT B δ ξ hs a k t Y)) x = (coefficient τ hτT B ξ hs a t (Y x) * deriv (EulerPeriodicProfile.profile δ) (k * inner D.m₀ (Y x))) ((InnerProductSpace.rankOne ) ((D.normal.field t) (Y x))) ((D.normal.field t) (Y x)) + hessianRemainder τ hτT B δ ξ hs a k t Y x

                  The leading term is the literal normal tensor in source (20); the remainder contains only terms with at least one factor of k⁻¹.

                  theorem EulerPacketPrimaryPressure.physicalPressure_hessian_of_inverse {U : Type u_1} [NormedAddCommGroup U] [InnerProductSpace U] [CompleteSpace U] {D : EulerTransversePacketProvider.Data U} (τ : ) ( : 0 < τ) (hτT : τ < D.T) (B : EulerTransversePacketProvider.HistoryData (D.initial τ )) (δ : ) ( : 0 < δ) (ξ : U) (hs : tsupport EulerSpatialCutoffs.innerCutoffD.support) (a k : ) (hk : k 0) (X Y : (Set.Icc 0 D.T)EulerSmoothLimit.SpaceEulerSmoothLimit.Space) (hX : ∀ (t : (Set.Icc 0 D.T)) (x : EulerSmoothLimit.Space), HasFDerivAt (X t) ((D.F.field t) x) x) (hXY : ∀ (t : (Set.Icc 0 D.T)) (x : EulerSmoothLimit.Space), X t (Y t x) = x) (hY : Continuous (Function.uncurry Y)) (t : (Set.Icc 0 D.T)) (x : EulerSmoothLimit.Space) :
                  fderiv (gradient (physicalPressure τ hτT B δ ξ hs a k t (Y t))) x = (coefficient τ hτT B ξ hs a t (Y t x) * deriv (EulerPeriodicProfile.profile δ) (k * inner D.m₀ (Y t x))) ((InnerProductSpace.rankOne ) ((D.normal.field t) (Y t x))) ((D.normal.field t) (Y t x)) + hessianRemainder τ hτT B δ ξ hs a k t (Y t) x

                  Initialized pressure hessian cost, constructed using fastHessianCost.

                  Equations
                  • One or more equations did not get rendered due to their size.
                  Instances For
                    theorem EulerPacketTerminalDatum.initializedAngularPressure_smooth {U : Type u_1} [NormedAddCommGroup U] [InnerProductSpace U] [CompleteSpace U] (D : EulerTransversePacketProvider.Data U) (τ : ) ( : 0 < τ) (hτT : τ < D.T) (B : EulerTransversePacketProvider.HistoryData (D.initial τ )) (δ : ) ( : 0 < δ) (ξ : U) (hs : tsupport EulerSpatialCutoffs.innerCutoffD.support) (α t : ) :
                    ContDiff fun (z : EulerSmoothLimit.Space × ) => initializedAngularPressure D τ hτT B δ ξ hs α (t, z)
                    theorem EulerPacketTerminalDatum.initializedPressure_hessian_bound {U : Type u_1} [NormedAddCommGroup U] [InnerProductSpace U] [CompleteSpace U] (M : EulerMeanPacketProvider.Data) (D : EulerTransversePacketProvider.Data U) (hTime : M.T = D.T) (τ : ) ( : 0 < τ) (hτT : τ < D.T) (B : EulerTransversePacketProvider.HistoryData (D.initial τ )) (δ : ) ( : 0 < δ) (ξ : U) (hs : tsupport EulerSpatialCutoffs.innerCutoffD.support) (α : ) (L : EulerTransversePacketJoin.Budget D τ hτT B (Fin 4) 6) (H : EulerTransversePacketPrimary.Budget L) (NB : EulerTransversePacketJoin.NormalBudget D 6 L.R) (W : L.GradeGuards NB) (LM : EulerMeanPacketProvider.Budget M 6 L.R) (WM : LM.GradeGuards) (BC : EulerPacketCylinderField.CoefficientBudget (EulerPacketCylinderField.joinedSourceCoefficientData period M D τ hτT B hTime)) (hRc : EulerParameterWordGevrey.sobolevCoefficientRadius (Fin 4) BC.Rc L.R) (hcost : BC.termCost L.R) (hδ1 : δ 1) ( : 0 < α) (hR : wordRadius (Fin 4) δ L.R) (WP : H.GradeGuards NB (wordCost (Fin 4) 6 δ * ξ)) (S : EulerPacketTimeProfile.Scales (Set.Icc 0 M.T)) (hgrowth : EulerPacketCylinderField.timeProfileChange S.growth hTime = α L.fullProfile) (N : ) (hN : 1 N) (k : ) (hk : 4 k) (hbase : EulerPacketCoarseMajorant.tailBase L.R S.H0 BC.termCost N k ^ (1 / 100)) (X Y : (Set.Icc 0 D.T)EulerSmoothLimit.SpaceEulerSmoothLimit.Space) (hX : ∀ (t : (Set.Icc 0 D.T)) (x : EulerSmoothLimit.Space), HasFDerivAt (X t) ((D.F.field t) x) x) (hXY : ∀ (t : (Set.Icc 0 D.T)) (x : EulerSmoothLimit.Space), X t (Y t x) = x) (hY : Continuous (Function.uncurry Y)) (hdet : ∀ (t : (Set.Icc 0 D.T)) (x : EulerSmoothLimit.Space), Matrix.det (EulerPacketPiola.operatorMatrix ((D.F.field t) x)) = 1) (t : (Set.Icc 0 D.T)) (x : EulerSmoothLimit.Space) :
                    fderiv (gradient fun (y : EulerSmoothLimit.Space) => initializedPressure M D τ hτT B δ ξ hs α N k⁻¹ (t, Y t y, k * inner D.m₀ (Y t y))) x - (EulerPacketPrimaryPressure.coefficient τ hτT B ξ hs α t (Y t x) * deriv (EulerPeriodicProfile.profile δ) (k * inner D.m₀ (Y t x))) ((InnerProductSpace.rankOne ) ((D.normal.field t) (Y t x))) ((D.normal.field t) (Y t x)) initializedPressureHessianCost NB L.R S.H0 L.Rc L.C₀ / k