Compactness Main #
Supporting estimates for the Navier–Stokes development.
theorem
CKN.Leray.lem_compactness
{U : Set Foundation.Parabolic.Vec3}
{I : Set ℝ}
(hU : IsOpen U)
(hI : IsOpen I)
(hIconn : I.OrdConnected)
(u : ℕ → Foundation.Parabolic.Vec3 × ℝ → Foundation.Parabolic.Vec3)
(Du : ℕ → Foundation.Parabolic.Vec3 × ℝ → Fin 3 → Foundation.Parabolic.Vec3)
(huMeas : ∀ (n : ℕ), Measurable (u n))
(hDuMeas : ∀ (n : ℕ), Measurable (Du n))
(hweakGrad :
∀ (n : ℕ),
∀ᵐ (t : ℝ) ∂MeasureTheory.volume.restrict I, ∀ (i : Fin 3), HasWeakGradientOn U (fun (x : Vec 3) => u n (x, t) i) fun (x : Vec 3) => Du n (x, t) i)
(hbound :
∀ (C : Set Foundation.Parabolic.Vec3),
IsCompact C →
C ⊆ U →
∀ (a b : ℝ),
Set.Icc a b ⊆ I →
∃ M < ⊤,
∀ (n : ℕ),
∀ t ∈ Set.Icc a b,
∫⁻ (x : Foundation.Parabolic.Vec3) in C, ENNReal.ofReal (Foundation.Parabolic.vec3EuclideanNorm (u n (x, t))) ^ 2 ≤ M)
(hgradBound :
∀ (C : Set Foundation.Parabolic.Vec3),
IsCompact C →
C ⊆ U →
∀ (a b : ℝ),
Set.Icc a b ⊆ I →
∃ G < ⊤,
∀ (n : ℕ),
∫⁻ (t : ℝ) in Set.Icc a b, ∫⁻ (x : Foundation.Parabolic.Vec3) in C, ENNReal.ofReal (spatialGradientSq (u n) (Du n) (x, t)) ≤ G)
(hmod :
∀ (C : Set Foundation.Parabolic.Vec3),
IsCompact C →
C ⊆ U →
∀ (a b : ℝ),
Set.Icc a b ⊆ I →
∀ (w : Foundation.Parabolic.Vec3 → Foundation.Parabolic.L2Vec3),
ContDiff ℝ (↑⊤) w →
HasCompactSupport w →
tsupport w ⊆ C →
∃ (A : ℝ) (B : ℝ) (θ : ℝ),
0 ≤ A ∧ 0 ≤ B ∧ 0 < θ ∧ ∀ (n : ℕ) (s t : ℝ),
s ∈ Set.Icc a b →
t ∈ Set.Icc a b →
|(∫ (x : Foundation.Parabolic.Vec3), ∑ i : Fin 3, u n (x, t) i * (w x).ofLp i) - ∫ (x : Foundation.Parabolic.Vec3), ∑ i : Fin 3, u n (x, s) i * (w x).ofLp i| ≤ A * dist t s + B * dist t s ^ θ)
:
∃ (σ : ℕ → ℕ),
StrictMono σ ∧ ∃ (v : Foundation.Parabolic.Vec3 × ℝ → Foundation.Parabolic.Vec3),
Measurable v ∧ ∃ (g : Foundation.Parabolic.Vec3 × ℝ → CompactnessGradientFiber),
Measurable g ∧ (∀ (t : ↑I) (C : Set Foundation.Parabolic.Vec3),
IsCompact C →
C ⊆ U →
∃ (hs :
∀ (k : ℕ),
MeasureTheory.MemLp (fun (x : Foundation.Parabolic.Vec3) => WithLp.toLp 2 (u (σ k) (x, ↑t))) 2
(MeasureTheory.volume.restrict C))
(hl :
MeasureTheory.MemLp (fun (x : Foundation.Parabolic.Vec3) => WithLp.toLp 2 (v (x, ↑t))) 2
(MeasureTheory.volume.restrict C)),
∀ (w : ↥(MeasureTheory.Lp Foundation.Parabolic.L2Vec3 2 (MeasureTheory.volume.restrict C))),
Filter.Tendsto
(fun (k : ℕ) =>
inner ℝ
(MeasureTheory.MemLp.toLp
(fun (x : Foundation.Parabolic.Vec3) => WithLp.toLp 2 (u (σ k) (x, ↑t))) ⋯)
w)
Filter.atTop
(nhds
(inner ℝ
(MeasureTheory.MemLp.toLp
(fun (x : Foundation.Parabolic.Vec3) => WithLp.toLp 2 (v (x, ↑t))) hl)
w))) ∧ (∀ (Q : Set (Foundation.Parabolic.Vec3 × ℝ)),
IsCompact Q →
Q ⊆ U ×ˢ I →
Filter.Tendsto
(fun (k : ℕ) =>
MeasureTheory.eLpNorm
((fun (z : Foundation.Parabolic.Vec3 × ℝ) => WithLp.toLp 2 (u (σ k) z)) - fun (z : Foundation.Parabolic.Vec3 × ℝ) => WithLp.toLp 2 (v z))
2 (MeasureTheory.volume.restrict Q))
Filter.atTop (nhds 0)) ∧ (∀ (Q : Set (Foundation.Parabolic.Vec3 × ℝ)),
IsCompact Q →
Q ⊆ U ×ˢ I →
∃ (hs :
∀ (k : ℕ),
MeasureTheory.MemLp
(fun (z : Foundation.Parabolic.Vec3 × ℝ) => toCompactnessGradientFiber (Du (σ k) z)) 2
(MeasureTheory.volume.restrict Q))
(hl : MeasureTheory.MemLp g 2 (MeasureTheory.volume.restrict Q)),
∀ (w : ↥(MeasureTheory.Lp CompactnessGradientFiber 2 (MeasureTheory.volume.restrict Q))),
Filter.Tendsto
(fun (k : ℕ) =>
inner ℝ
(MeasureTheory.MemLp.toLp
(fun (z : Foundation.Parabolic.Vec3 × ℝ) => toCompactnessGradientFiber (Du (σ k) z))
⋯)
w)
Filter.atTop (nhds (inner ℝ (MeasureTheory.MemLp.toLp g hl) w))) ∧ (∀ᵐ (t : ℝ) ∂MeasureTheory.volume.restrict I, ∀ (i : Fin 3),
HasWeakGradientOn U (fun (x : Vec 3) => v (x, t) i) fun (x : Vec 3) (m : Fin 3) =>
((g (x, t)).ofLp i).ofLp m) ∧ (∀ (C : Set Foundation.Parabolic.Vec3),
IsCompact C →
C ⊆ U →
∀ (w : ↥(MeasureTheory.Lp Foundation.Parabolic.L2Vec3 2 (MeasureTheory.volume.restrict C))),
Continuous fun (t : ↑I) =>
∫ (x : Foundation.Parabolic.Vec3) in C, ∑ i : Fin 3, v (x, ↑t) i * (↑↑w x).ofLp i) ∧ (∀ (C : Set Foundation.Parabolic.Vec3),
IsCompact C →
C ⊆ U →
∀ (a b : ℝ),
Set.Icc a b ⊆ I →
∀ M < ⊤,
(∀ (n : ℕ),
∀ t ∈ Set.Icc a b,
∫⁻ (x : Foundation.Parabolic.Vec3) in C, ENNReal.ofReal (Foundation.Parabolic.vec3EuclideanNorm (u n (x, t))) ^ 2 ≤ M) →
∀ t ∈ Set.Icc a b,
∫⁻ (x : Foundation.Parabolic.Vec3) in C, ENNReal.ofReal (Foundation.Parabolic.vec3EuclideanNorm (v (x, t))) ^ 2 ≤ M) ∧ ∀ (C : Set Foundation.Parabolic.Vec3),
IsCompact C →
C ⊆ U →
∀ (a b : ℝ),
Set.Icc a b ⊆ I →
∀ G < ⊤,
(∀ (n : ℕ),
∫⁻ (t : ℝ) in Set.Icc a b, ∫⁻ (x : Foundation.Parabolic.Vec3) in C, ENNReal.ofReal (spatialGradientSq (u n) (Du n) (x, t)) ≤ G) →
∫⁻ (t : ℝ) in Set.Icc a b, ∫⁻ (x : Foundation.Parabolic.Vec3) in C, ENNReal.ofReal
(spatialGradientSq (fun (x : Foundation.Parabolic.ParabolicPoint) => 0)
(fun (z : Foundation.Parabolic.ParabolicPoint) (i m : Fin 3) =>
((g z).ofLp i).ofLp m)
(x, t)) ≤ G
Local energy, gradient, and time-pairing bounds yield a subsequence
with every-time weak slices, local strong L² convergence, and a jointly
measurable weak spatial gradient. This is lem:compactness.