The positive-time endpoint source from S-normalized gradient jets. One spatial letter is consumed at every r ≤ Jcut, including the terminal level. Physical seed, coefficient and velocity estimates come from ATensor.
noncomputable def
AVenhance.Infra.Section5.RelativeError.relativeInitialGradientConstant
(β C₀ Cg Cl C : ℝ)
:
Uniform amplitude factor for one spatial derivative of AMNR.
Equations
- One or more equations did not get rendered due to their size.
Instances For
theorem
AVenhance.Infra.Section5.RelativeError.relative_initial_Amnr_gradient_core
{β Creg C₀ c C Cg Cl : ℝ}
(hCg : 0 ≤ Cg)
(hCl : 1 ≤ Cl)
(I : Ingredients β)
(hz : I.Czeta ≤ C₀)
(hh : I.Chat ≤ C₀)
(hc : 0 < c)
(hcC : c < C)
{Φ : ℕ → ℝ → Homogenization.Vec 2 → ℝ}
(hΦ : IsStreamSeq I Φ)
(hreg : StreamRegularityBounds Creg I Φ)
{κ : ℝ}
(hκ : 0 < κ)
{M : ℕ}
(hperm : κ ∈ permittedInterval β I.Λ M)
(hA5 :
(∀ (m : ℕ),
1 ≤ m →
m < M →
c * (AVenhance.a β I.Λ m * epsilon β I.Λ m ^ (2 + gamma β)) ≤ I.kappaAt κ m (M - m) ∧ I.kappaAt κ m (M - m) ≤ C * (AVenhance.a β I.Λ m * epsilon β I.Λ m ^ (2 + gamma β))) ∧ ∀ (m : ℕ),
2 ≤ m →
m < M →
c * epsilon β I.Λ (m - 1) ^ (4 * delta β) ≤ epsilon β I.Λ m ^ 2 / (I.kappaAt κ m (M - m) * tau β I.Λ m) ∧ epsilon β I.Λ m ^ 2 / (I.kappaAt κ m (M - m) * tau β I.Λ m) ≤ C * epsilon β I.Λ (m - 1) ^ (4 * delta β))
{m : ℕ}
(hm : 2 ≤ m)
(hmM : m ≤ M)
(hsm1 : Section4.amnrSourceRatioConstant β C * epsilon β I.Λ (m - 1) ^ (2 * delta β) ≤ 1 / 2)
(hsm2 :
Section3.lAmtOneStepConstant β C₀ * (Section4.amnrSourceRatioConstant β C * epsilon β I.Λ (m - 1) ^ (2 * delta β) + epsilon β I.Λ (m - 1) ^ delta β) ≤ 9 / 160)
{θ₀ : Homogenization.Vec 2 → ℝ}
{θprev : ℝ → Homogenization.Vec 2 → ℝ}
{T : ℕ → ℝ → Homogenization.Vec 2 → ℝ}
(hθprev :
IsClassicalSol (streamVel (Φ (m - 1))) (I.kappaSeq κ M (m - 1)) (fun (x : ℝ) (x_1 : Homogenization.Vec 2) => 0) θ₀
θprev)
(hT : I.IsTIterates hΦ m (I.kappaSeq κ M m) (I.kappaSeq κ M (m - 1)) θ₀ θprev T)
{S : ℝ}
(hS : 0 ≤ S)
(hjets :
∀ i ≤ Nstar β,
∀ (p : Fin 2) (α : List (Fin 2)),
α.length ≤ Nstar β →
MeasureTheory.eLpNorm
(Section4.amnrWord (fun (y : Section4.AmnrSpace) => streamVel (Φ (m - 1)) y.1 y.2) (List.map some α)
(Section4.amnrTGradient (T i) p))
2 ((MeasureTheory.volume.restrict (Set.uIoc 0 1)).prod (MeasureTheory.volume.restrict unitCube)) ≤ ENNReal.ofReal
(Cg * S / √(I.kappaSeq κ M (m - 1)) * (Cl * epsilon β I.Λ (m - 1) ^ (-(1 + gamma β / 2))) ^ α.length))
{r₀ : ℕ}
(hr₀ : r₀ ≤ Jcut β)
{n : ℕ}
(hn : n ∈ Finset.range (Nstar β))
:
MeasureTheory.eLpNorm (Section4.amnrSpatialGradientTensor I hΦ m (I.kappaSeq κ M m) (T (Nstar β)) n r₀) 2
(MeasureTheory.volume.restrict timeCube) ≤ ENNReal.ofReal
(relativeInitialGradientConstant β C₀ Cg Cl C * S * (epsilon β I.Λ m ^ 2 / I.kappaSeq κ M m) / √(I.kappaSeq κ M (m - 1)) * epsilon β I.Λ (m - 1) ^ (-(1 + gamma β / 2)) * (tauP β I.Λ m)⁻¹ ^ r₀)
Fixed-ingredient estimate with the terminal one-letter budget checked.
theorem
AVenhance.Infra.Section5.RelativeError.relative_initial_Amnr_gradient_of_jets
(β C₀ Cg Cl : ℝ)
(hCg : 0 ≤ Cg)
(hCl : 1 ≤ Cl)
:
∃ (CA : ℝ),
0 ≤ CA ∧ ∃ (Λ₀ : ℝ),
∀ (I : Ingredients β),
I.Czeta ≤ C₀ →
I.Cxi ≤ C₀ →
I.Chat ≤ C₀ →
Λ₀ ≤ ↑I.Λ →
∀ (Φ : ℕ → ℝ → Homogenization.Vec 2 → ℝ) (hΦ : IsStreamSeq I Φ),
∀ κ ∈ permissibleSet β I.Λ,
∀ (M : ℕ),
1 ≤ M →
κ ∈ permittedInterval β I.Λ M →
∀ (m : ℕ),
2 ≤ m →
m ≤ M →
∀ (θ₀ : Homogenization.Vec 2 → ℝ) (θprev : ℝ → Homogenization.Vec 2 → ℝ)
(T : ℕ → ℝ → Homogenization.Vec 2 → ℝ),
IsClassicalSol (streamVel (Φ (m - 1))) (I.kappaSeq κ M (m - 1))
(fun (x : ℝ) (x_1 : Homogenization.Vec 2) => 0) θ₀ θprev →
I.IsTIterates hΦ m (I.kappaSeq κ M m) (I.kappaSeq κ M (m - 1)) θ₀ θprev T →
∀ (S : ℝ),
0 ≤ S →
(∀ i ≤ Nstar β,
∀ (p : Fin 2) (α : List (Fin 2)),
α.length ≤ Nstar β →
MeasureTheory.eLpNorm
(Section4.amnrWord
(fun (y : Section4.AmnrSpace) => streamVel (Φ (m - 1)) y.1 y.2)
(List.map some α) (Section4.amnrTGradient (T i) p))
2
((MeasureTheory.volume.restrict (Set.uIoc 0 1)).prod
(MeasureTheory.volume.restrict unitCube)) ≤ ENNReal.ofReal
(Cg * S / √(I.kappaSeq κ M (m - 1)) * (Cl * epsilon β I.Λ (m - 1) ^ (-(1 + gamma β / 2))) ^ α.length)) →
∀ r₀ ≤ Jcut β,
∀ n ∈ Finset.range (Nstar β),
MeasureTheory.eLpNorm
(Section4.amnrSpatialGradientTensor I hΦ m (I.kappaSeq κ M m)
(T (Nstar β)) n r₀)
2 (MeasureTheory.volume.restrict timeCube) ≤ ENNReal.ofReal
(CA * S * (epsilon β I.Λ m ^ 2 / I.kappaSeq κ M m) / √(I.kappaSeq κ M (m - 1)) * epsilon β I.Λ (m - 1) ^ (-(1 + gamma β / 2)) * (tauP β I.Λ m)⁻¹ ^ r₀)
Uniform S-normalized AMNR gradient estimate at all correction levels.