Documentation

LeanPool.Superdiffusion.Algsuperdiff.Section3.Provider.Diffusivity.ApproximateRecurrence.Closure.GammaTenDepthOscillation

GammaTenDepthOscillation #

Ported from scottnarmstrong/Superdiffusion at 7f20476385d4af418f110303085ad0740c9eba46. Module imports, support namespace and local option directives adapted for Lean Pool.

e.lower.bound.oscillations at every depth below the recurrence mesh #

ABK26, e.lower.bound.oscillations, e.nablaw.oscillations, e.recurrence.params.

What this module adds #

LocalizationOscillationEndpointSixteen reads the interior-mesh endpoint of e.lower.bound.oscillations at the one mesh scale nmesh = recurrenceMesoScale a cgamma m h of e.recurrence.params. The Besov tower of Step 2 needs it at every scale nmesh - i, i : ℕ, with a geometric gain in i; that is what Closure.GammaTenEnvelopeInputGrid.exists_besovEnvelope_of_grid_depth_oscillation consumes as its per-depth input D i.

The route is a re-instantiation, at no new analytic cost: the free-buffer display LocalizationOscillationDisplay.exists_freshShell*_gradient_oscillation_lower_bound_display is run at inner scale nmesh - i and buffer N_i = Ngap + i, so that the outer scale n + N = m - h --- the corrector's own fresh-shell scale --- does not move. Consequently

The one new piece of arithmetic, and the polynomial factor it leaves #

Only the display's first factor moves with the depth: 3^{-N} becomes 3^{-(Ngap + i)} = 3^{-Ngap} 3^{-i}, and the middle term's linear factor N becomes Ngap + i. The proved collapse LocalizationOscillationEndpointSixteen.three_term_budget_le_sixteen absorbs the linear factor through Ngap cgamma <= 96; at depth i the same step needs (Ngap + i) 3^{-(Ngap+i)}, and the sharp elementary bound is Ngap + i <= Ngap (1 + i), i.e.

  (Ngap + i) 3^{-(Ngap+i)}  <=  96 cgamma^{31} * ((1 + i) 3^{-i}) .

The conclusion therefore carries the decay factor (1 + i) 3^{-i}, not the bare 3^{-i}: the linear factor is genuinely there and is not silently dropped. It is harmless downstream --- at the fourth power the depth input is cgamma^{64} (1+i)^4 3^{-4i} <= 25 cgamma^{64} 36^{-i}, and 36^{-1} is the exact ratio gate of Closure.GammaTenEnvelopeInputGrid.sum_two_pow_mul_rpow_pow_four_geometric_le at the closure's exponent gammaTenBesovExponent = 1/2 --- but it is recorded in the statement.

What is proved #

Binders #

Verbatim those of LocalizationOscillationEndpointSixteen: hd, the model gate M.gamma <= gamma0, the induction state, the four source gates 0 < h, m - h <= m0, h <= 6 cstar gamma^{-1}, 10^10 gamma^{-1} <= K - m, the two direction bounds, the base point z0, and the corrector family with the weak formulation of e.def.w. The depth i : ℕ is universally quantified after the corrector, so one threshold serves every depth. No sample-space binder and no smallness gate beyond the produced threshold occurs.

Declared divergence: the carrier is the interior mesh #

The statements are on interiorMesoCubeGrid d K (nmesh - i) (m - h - 1), the carrier. The transfer to the full mesh performed by LocalizationOscillationFullMesh for the single scale nmesh does not survive the depth index: the remainder of LocalizationFluctuationGammaFold.gridFourthMoment_mesoCubeGrid_le_interior_add_of_eighthMoment is sqrt (d 3^g / 3^p) sqrt E with K = n + p and outer + 1 = n + g, i.e. 3^{g-p} = 3^{(outer+1) - K} = 3^{(m-h) - K}, which does not move with the mesh scale n. The boundary strip is the same fixed fraction at every depth, so no 3^{-i} is available for it. This is recorded, not closed, here.

Scope #

There is no sorry, no admit, no custom axiom and no set_option maxHeartbeats.

References #

The three-term collapse, with a depth decay factor #

theorem Algsuperdiff.Section3.Provider.Diffusivity.ApproximateRecurrence.Closure.three_term_budget_le_sixteen_decay {C W Csig sqd Nr G P S Eb gamma Ctot Kn delta : ℝ} (hC : 0 ≤ C) (hW : 0 ≤ W) (hCsig : 0 ≤ Csig) (hsqd : 0 ≤ sqd) (hNr0 : 0 ≤ Nr) (hG0 : 0 ≤ G) (hEb0 : 0 ≤ Eb) (hdelta0 : 0 ≤ delta) (hgamma0 : 0 < gamma) (hGle : G ≤ gamma ^ 31 * delta) (hNrG : Nr * G ≤ Kn * (gamma ^ 31 * delta)) (hSP : S * P ≤ Csig) (hEb : Eb ≤ 1) (hCtot : C * W + Kn * (C * sqd * Csig) + C * Csig ≤ Ctot) (hfinal : Ctot * gamma ^ 15 ≤ 1) :
C * (G * W) + C * (Nr * (S * sqd * Eb)) * (G * P) + C * S * (G * P) ≤ gamma ^ 16 * delta

The two depth arithmetic facts #

theorem Algsuperdiff.Section3.Provider.Diffusivity.ApproximateRecurrence.Closure.depth_geometric_le {gamma : ℝ} (hgamma0 : 0 < gamma) (hgamma1 : gamma ≤ 1) (Ngap i : ℕ) (hGle : 3 ^ (-↑Ngap) ≤ gamma ^ 32) :
3 ^ (-↑(Ngap + i)) ≤ gamma ^ 31 * ((1 + ↑i) * 3 ^ (-↑i))
theorem Algsuperdiff.Section3.Provider.Diffusivity.ApproximateRecurrence.Closure.depth_linear_geometric_le {gamma : ℝ} (hgamma0 : 0 < gamma) (Ngap i : ℕ) (hN : 1 ≤ Ngap) (hGle : 3 ^ (-↑Ngap) ≤ gamma ^ 32) (hNrle : ↑Ngap * gamma ≤ 96) :
↑(Ngap + i) * 3 ^ (-↑(Ngap + i)) ≤ 96 * (gamma ^ 31 * ((1 + ↑i) * 3 ^ (-↑i)))
theorem Algsuperdiff.Section3.Provider.Diffusivity.ApproximateRecurrence.Closure.exists_gamma0_meshOscillationDepth_of_estimates (d : ℕ) (Cdisp Chead gcell genv : ℝ) (hCdisp0 : 0 ≤ Cdisp) (hgcell0 : 0 < gcell) (hgenv0 : 0 < genv) :
∃ (gamma0 : ℝ), 0 < gamma0 ∧ gamma0 ≤ 1 / 4 ∧ ∀ (M : ABKModel d), M.gamma ≤ gamma0 → ∀ (m0 : ℤ) (Eind : { E : ℝ // 1 ≤ E }), Frozen.Section3.inductionState M m0 Eind → ∀ (m K : ℤ) (h : ℕ), 0 < h → m - ↑h ≤ m0 → ↑h ≤ 6 * Disorder.cstar M * M.gamma⁻¹ → 10 ^ 10 * M.gamma⁻¹ ≤ ↑K - ↑m → ∀ (direction z₀ : HCPolySupport.Vec d) (grad : Cutoff.ShellSeq d → HCPolySupport.Vec d → HCPolySupport.Vec d), HCPolySupport.Book.Ch02.vecNorm direction ≤ 1 → (M.gamma ≤ gcell → ∀ (ell : ℤ) (R : HCPolySupport.TriadicCube d), HCPolySupport.Book.Ch03.openCubeAtScale (HCPolySupport.triadicCubeShift R) ell ⊆ HCPolySupport.openCubeSet (HCPolySupport.originCube d K) → MeasureTheory.Integrable (fun (omega : Cutoff.ShellSeq d) => meshEnergyCell ell (grad omega) R ^ 4) ↑M.P) → (M.gamma ≤ genv → ∀ (n : ℤ) (N : ℕ), n ≤ K - 1 → n + ↑N ≤ K - 1 → (gridFourthMoment (↑M.P) (interiorMesoCubeGrid d K n (n + ↑N - 1)) fun (R : HCPolySupport.TriadicCube d) (omega : ℤ → Frozen.Assumptions.ShellField d) => meshEnergyCell (n + ↑N) (grad omega) R) ≤ 3 ^ d * freshShellFourthEnergyConst Chead (M.gamma ^ 100)) → (∀ (n : ℤ) (N : ℕ), d + 3 ≤ N → n + ↑N < m → n + ↑N = m - ↑h → ∀ (W : ℝ), 0 ≤ W → (gridFourthMoment (↑M.P) (interiorMesoCubeGrid d K n (n + ↑N - 1)) fun (R : HCPolySupport.TriadicCube d) (omega : ℤ → Frozen.Assumptions.ShellField d) => meshEnergyCell (n + ↑N) (grad omega) R) ≤ W ^ 4 → (∀ R ∈ interiorMesoCubeGrid d K n (n + ↑N - 1), MeasureTheory.Integrable (fun (omega : Cutoff.ShellSeq d) => meshEnergyCell (n + ↑N) (grad omega) R ^ 4) ↑M.P) → (gridFourthMomentRoot (↑M.P) (interiorMesoCubeGrid d K n (n + ↑N - 1)) fun (R : HCPolySupport.TriadicCube d) (omega : ℤ → Frozen.Assumptions.ShellField d) => meshOscillationCell n (grad omega) R) + (↑(Annealed.sigmaBar M (m - ↑h)))⁻¹ * (3 ^ ↑n * (∫ (omega : Cutoff.ShellSeq d), shellDerivNormSum (n + ↑N) m z₀ omega ^ 4 ∂↑M.P) ^ 4⁻¹) ≤ Cdisp * (3 ^ (-↑N) * W) + Cdisp * (↑N * ((↑(Annealed.sigmaBar M (m - ↑h)))⁻¹ * √↑d * HCPolySupport.Book.Ch02.vecNorm direction)) * (3 ^ (-↑N) * 3 ^ (M.gamma * (↑n + ↑N))) + Cdisp * (↑(Annealed.sigmaBar M (m - ↑h)))⁻¹ * (3 ^ (-↑N) * 3 ^ (M.gamma * (↑n + ↑N)))) → ∀ (i : ℕ), (gridFourthMomentRoot (↑M.P) (interiorMesoCubeGrid d K (recurrenceMesoScale recurrenceGapMultiplier M.gamma m ↑h - ↑i) (m - ↑h - 1)) fun (R : HCPolySupport.TriadicCube d) (omega : ℤ → Frozen.Assumptions.ShellField d) => meshOscillationCell (recurrenceMesoScale recurrenceGapMultiplier M.gamma m ↑h - ↑i) (grad omega) R) + (↑(Annealed.sigmaBar M (m - ↑h)))⁻¹ * (3 ^ ↑(recurrenceMesoScale recurrenceGapMultiplier M.gamma m ↑h - ↑i) * (∫ (omega : Cutoff.ShellSeq d), shellDerivNormSum (m - ↑h) m z₀ omega ^ 4 ∂↑M.P) ^ 4⁻¹) ≤ M.gamma ^ 16 * ((1 + ↑i) * 3 ^ (-↑i))

A uniform depth budget for any gradient satisfying the cell and envelope estimates. The boundary condition enters only through the three supplied lower-level estimates.

theorem Algsuperdiff.Section3.Provider.Diffusivity.ApproximateRecurrence.Closure.exists_gamma0_freshShellDirichlet_meshOscillationDepth_le_gamma_pow_sixteen (d : ℕ) (hd : 2 ≤ d) :
∃ (gamma0 : ℝ), 0 < gamma0 ∧ gamma0 ≤ 1 / 4 ∧ ∀ (M : ABKModel d), M.gamma ≤ gamma0 → ∀ (m0 : ℤ) (Eind : { E : ℝ // 1 ≤ E }), Frozen.Section3.inductionState M m0 Eind → ∀ (m K : ℤ) (h : ℕ), 0 < h → m - ↑h ≤ m0 → ↑h ≤ 6 * Disorder.cstar M * M.gamma⁻¹ → 10 ^ 10 * M.gamma⁻¹ ≤ ↑K - ↑m → ∀ (e e' : HCPolySupport.Vec d), HCPolySupport.Book.Ch02.vecNorm e ≤ 1 → HCPolySupport.Book.Ch02.vecNorm e' ≤ 1 → ∀ (z₀ : HCPolySupport.Vec d) (wD : Cutoff.ShellSeq d → HCPolySupport.H10Function (HCPolySupport.openCubeSet (HCPolySupport.originCube d K))), (∀ (omega : Cutoff.ShellSeq d), HCPolySupport.IsZeroTraceDirichletRhsWeakSolution (fun (x : HCPolySupport.Vec d) => 1) (HCPolySupport.openCubeSet (HCPolySupport.originCube d K)) (wD omega) fun (x : HCPolySupport.Vec d) => -Corrector.streamForcing (↑(Annealed.sigmaBar M (m - ↑h)))⁻¹ omega (m - ↑h) m e x) → ∀ (i : ℕ), (gridFourthMomentRoot (↑M.P) (interiorMesoCubeGrid d K (recurrenceMesoScale recurrenceGapMultiplier M.gamma m ↑h - ↑i) (m - ↑h - 1)) fun (R : HCPolySupport.TriadicCube d) (omega : ℤ → Frozen.Assumptions.ShellField d) => meshOscillationCell (recurrenceMesoScale recurrenceGapMultiplier M.gamma m ↑h - ↑i) (wD omega).grad R) + (↑(Annealed.sigmaBar M (m - ↑h)))⁻¹ * (3 ^ ↑(recurrenceMesoScale recurrenceGapMultiplier M.gamma m ↑h - ↑i) * (∫ (omega : Cutoff.ShellSeq d), shellDerivNormSum (m - ↑h) m z₀ omega ^ 4 ∂↑M.P) ^ 4⁻¹) ≤ M.gamma ^ 16 * ((1 + ↑i) * 3 ^ (-↑i))

The shared depth budget for the Dirichlet corrector.

theorem Algsuperdiff.Section3.Provider.Diffusivity.ApproximateRecurrence.Closure.exists_gamma0_freshShellNeumann_meshOscillationDepth_le_gamma_pow_sixteen (d : ℕ) (hd : 2 ≤ d) :
∃ (gamma0 : ℝ), 0 < gamma0 ∧ gamma0 ≤ 1 / 4 ∧ ∀ (M : ABKModel d), M.gamma ≤ gamma0 → ∀ (m0 : ℤ) (Eind : { E : ℝ // 1 ≤ E }), Frozen.Section3.inductionState M m0 Eind → ∀ (m K : ℤ) (h : ℕ), 0 < h → m - ↑h ≤ m0 → ↑h ≤ 6 * Disorder.cstar M * M.gamma⁻¹ → 10 ^ 10 * M.gamma⁻¹ ≤ ↑K - ↑m → ∀ (e e' : HCPolySupport.Vec d), HCPolySupport.Book.Ch02.vecNorm e ≤ 1 → HCPolySupport.Book.Ch02.vecNorm e' ≤ 1 → ∀ (z₀ : HCPolySupport.Vec d) (wN : Cutoff.ShellSeq d → HCPolySupport.H1MeanZeroFunction (HCPolySupport.openCubeSet (HCPolySupport.originCube d K))), (∀ (omega : Cutoff.ShellSeq d), HCPolySupport.IsMeanZeroNeumannRhsWeakSolution (fun (x : HCPolySupport.Vec d) => 1) (HCPolySupport.openCubeSet (HCPolySupport.originCube d K)) (wN omega) fun (x : HCPolySupport.Vec d) => -Corrector.streamForcing (↑(Annealed.sigmaBar M (m - ↑h)))⁻¹ omega (m - ↑h) m e' x) → ∀ (i : ℕ), (gridFourthMomentRoot (↑M.P) (interiorMesoCubeGrid d K (recurrenceMesoScale recurrenceGapMultiplier M.gamma m ↑h - ↑i) (m - ↑h - 1)) fun (R : HCPolySupport.TriadicCube d) (omega : ℤ → Frozen.Assumptions.ShellField d) => meshOscillationCell (recurrenceMesoScale recurrenceGapMultiplier M.gamma m ↑h - ↑i) (wN omega).toH1Function.grad R) + (↑(Annealed.sigmaBar M (m - ↑h)))⁻¹ * (3 ^ ↑(recurrenceMesoScale recurrenceGapMultiplier M.gamma m ↑h - ↑i) * (∫ (omega : Cutoff.ShellSeq d), shellDerivNormSum (m - ↑h) m z₀ omega ^ 4 ∂↑M.P) ^ 4⁻¹) ≤ M.gamma ^ 16 * ((1 + ↑i) * 3 ^ (-↑i))

The shared depth budget for the Neumann corrector.