Documentation

LeanPool.TrilinearHilbertTransform.Auto.Sec152bTorusSizeFourierTests.ThreeCoreNorefSide

Trilinear Hilbert transform: three_core_noref_side #

theorem TrilinearHT.Auto.ActiveSetup.BasicFamilies.FamParams.SideInput.three_core_noref_side {κ' : LocalKernelClass} {c₀ : ℕ} {A : ActiveSetup κ' c₀} {bf : A.BasicFamilies} {fp : bf.FamParams} (D : fp.SideInput) {Cj CA CT CK : ℕ} {δs W : ℝ} (hV : D.S.Valid Cj CA CT CK δs W) (hCA : 1 ≤ CA) (hd2 : 2 ≤ D.S.dmax) (hD : 2 ≤ D.S.Dstar) (hB : 2 ≤ D.S.Bstar) (hQ : 1 ≤ D.S.Q0) {I : ℤ × ℤ} (hI : I ∈ A.cells) (G : bf.Grp) (hz : ∀ (j : Fin 4), (D.Ms j G).zc = (D.Ms 0 G).zc) {δ : ℝ} (hδ : 0 < δ) (hdδ : 8 * ↑(D.Ms 0 G).zc.dim * δ ≤ 1) (hδ8 : δ ≤ 1 / 8) (hδc : ∀ (j : Fin 4), (D.Ms j G).δc = δ) (hcl : ∀ (j : Fin 4), (D.Ms j G).cl = slotCoeff j) (hρ : ∀ (j : Fin 4) (k : Fin (D.Ms j G).zc.dim), (D.Ms j G).ρ k ∈ Set.Icc 0 1) (hQC : ∀ (a b : Fin (D.Ms 0 G).zc.dim), ∃ (k : ℤ), ↑D.S.Q0 * ↑((D.Ms 0 G).zc.C a b) = ↑k) {Cm : ℝ} (hCm0 : 0 ≤ Cm) (hCm : ∀ (a b : Fin (D.Ms 0 G).zc.dim), |↑((D.Ms 0 G).zc.C a b)| ≤ Cm) {δ'' : ℝ} (hδ'' : 0 < δ'') {Kt : ℕ} (hQB : ↑D.S.Q0 * 2 ^ (Kt + 1) ≤ D.S.Bstar) {J : ℕ} (hJ : 2 ≤ J) (h : ℕ) (l : Fin 4) (Fsel : (j : Fin 4) → Finset ↥((D.Ms j G).alive (ancAt A.G (D.preAt I) (A.blkStart D.S.K I.1 - 4 * ↑D.S.K)))) (n : (j : Fin 4) → ↥((D.Ms j G).alive (ancAt A.G (D.preAt I) (A.blkStart D.S.K I.1 - 4 * ↑D.S.K))) → Fin (D.Ms j G).zc.dim → ℤ) (hn : ∀ (j : Fin 4), j ≠ l → ∀ x ∈ Fsel j, ∀ (i : Fin (D.Ms j G).zc.dim), |↑(n j x i)| ≤ D.S.Dstar * D.S.Eh (h - D.SP.Δ)) (a : Fin 4 → ℝ) {xs : ℝ} (hxs : xs ∈ dyadicGridCell A.G I.1 I.2) (hform : ∀ (j : Fin 4), j ≠ l → ∀ y ∈ dyadicGridCell A.G I.1 I.2, ‖∑ x ∈ Fsel j, D.c j G (A.blkStart D.S.K I.1) (D.preAt I) ↑x * (D.Ms j G).wave (↑x) y - ↑(Real.fourierChar (↑(D.Ms j G).cl * centerPhase (D.Ms j G).zc (D.Ms j G).ρ y)) * ↑(Real.fourierChar (a j * (y - xs))) * (D.Ms j G).torusG D.S (h - D.SP.Δ) xs (Fsel j) (fun (x : ↥((D.Ms j G).alive (ancAt A.G (D.preAt I) (A.blkStart D.S.K I.1 - 4 * ↑D.S.K)))) => D.c j G (A.blkStart D.S.K I.1) (D.preAt I) ↑x) (n j) fun (i : Fin (D.Ms j G).zc.dim) => (D.Ms j G).torusξ D.S (h - D.SP.Δ) i * (y - xs)‖ ≤ (D.S.Dstar ^ 150)⁻¹ * ∑ x ∈ Fsel j, ‖D.c j G (A.blkStart D.S.K I.1) (D.preAt I) ↑x‖) (hnoref : D.threeRefSet G I xs (h - D.SP.Δ) l a = ∅) (X : ↥(ColumnL2 (bf.Lab ⊕ Fin fp.Mc))) (Aw : ℕ) (hAw : 1 ≤ Aw) :
‖(fp.Λc I) (Function.update (fun (j : Fin 4) => D.compSub j G I (Finset.map { toFun := Subtype.val, inj' := ⋯ } (Fsel j))) l X)‖ ≤ 2 * (2 * localKernelSupBound κ' * ((4 * (D.S.Dstar ^ 150)⁻¹ + (gaugeErr (D.Ms 0 G).zc.dim δ δ'' + 4 * (1 + cutTail (D.Ms 0 G).zc.dim δ Kt) ^ 3 * cutTail (D.Ms 0 G).zc.dim δ Kt + (1 + cutTail (D.Ms 0 G).zc.dim δ Kt) ^ 4 * multTail (D.Ms 0 G).zc.dim δ'' D.S.Q0 Cm Kt)) * ∏ j ∈ Finset.univ.erase l, D.coefSum G I j (Fsel j)) * ((dyadicGridLength A.G I.1)⁻¹ * ∫ (y : ℝ) in Set.Icc (dyadicGridLeft A.G I.1 I.2) (dyadicGridLeft A.G I.1 I.2 + dyadicGridLength A.G I.1), ‖augPhys X y‖) + 4 * ((dyadicGridLength A.G I.1)⁻¹ * (entryCU κ' J Aw * (D.U0 ^ J)⁻¹) * 2 ^ (Aw + 4) * (((1 + multTail (D.Ms 0 G).zc.dim δ'' D.S.Q0 Cm Kt) * (1 + cutTail (D.Ms 0 G).zc.dim δ Kt) * ∏ j ∈ Finset.univ.erase l, (1 + cutTail (D.Ms 0 G).zc.dim δ Kt) * D.coefSum G I j (Fsel j)) * √(dyadicGridLength A.G I.1 * ∫ (y : ℝ) in dyadicGridLeft A.G I.1 I.2..dyadicGridLeft A.G I.1 I.2 + dyadicGridLength A.G I.1, ‖augPhys X y‖ ^ 2))) + multNorm (D.Ms 0 G).zc.dim δ'' D.S.Q0 Cm * (cutNorm (D.Ms 0 G).zc.dim δ * ∏ j ∈ Finset.univ.erase l, cutNorm (D.Ms 0 G).zc.dim δ * D.coefSum G I j (Fsel j)) * (((dyadicGridLength A.G I.1)⁻¹ * ∫ (y : ℝ) in Set.Ico (dyadicGridLeft A.G I.1 I.2) (dyadicGridLeft A.G I.1 I.2 + dyadicGridLength A.G I.1), ‖augPhys X y‖) * (12 * (kerC κ' J * (4 / D.U0) ^ (J - 2)))))

Blueprint lines 2540 and 2562-2567 on a leaf cell of the side states (three cores, side role l, no reference: the tuple is discarded). When no reference lies in the full box (threeRefSet empty), every anchored expansion frequency T_l + (P₂ - l P₁)·ξ of the transported core inputs has r |·| > U₀ (its integer part lies in the full box, expP_fullBox), so the cell form with the side X in slot l is at most twice the torus-form and gauge errors, plus 4 r⁻¹ C_{J,A} U₀^{-J} 2^{A+4} W Π_{j ≠ l} ((1 + τ_c) Σ_{F_j} |α|) (r ∫_I |S_phys|²)^{1/2}, plus the far tails multNorm cutNorm Π_{j ≠ l} (cutNorm Σ_{F_j} |α|) r⁻¹ ∫_I |S_phys| 12 C_J (4/U₀)^{J-2} (three_core_noref_of).

theorem TrilinearHT.Auto.sum_range_inv_pow_le (A I : ℕ) :
∑ i ∈ Finset.range (I + 1), (2 ^ i)⁻¹ ^ (A + 1) ≤ 2

The dyadic window weights sum to at most two: Σ_{i ≤ I} 2^{-i(A+1)} ≤ 2.

theorem TrilinearHT.Auto.norm_prod_le_pow' {ι : Type u_1} (s : Finset ι) {D MN CN : ℝ} {S : ι → ℝ} (hS : ∀ j ∈ s, 0 ≤ S j) (hMN : MN ≤ D) (hCN0 : 0 ≤ CN) (hCN : CN ≤ D) :
MN * (CN * ∏ j ∈ s, CN * S j) ≤ D ^ (s.card + 2) * ∏ j ∈ s, S j

The absolute Fourier costs of a three-core expansion: with full Fourier norms at most D_*, multNorm (cutNorm Π_{j ∈ s} (cutNorm S_j)) ≤ D_*^{|s| + 2} Π_{j ∈ s} S_j.

theorem TrilinearHT.Auto.window_split {I : ℕ} {c ω : ℕ → ℝ} {Wf Pa P u R : ℝ} (hc : ∀ (i : ℕ), 0 ≤ c i) (hω0 : ∀ (i : ℕ), 0 ≤ ω i) (hω : ∀ (i : ℕ), ω i ≤ R) (hWf : Wf ≤ Pa + 31 * u * P) (hu : 0 ≤ u) (hP : 0 ≤ P) :
∑ i ∈ Finset.range (I + 1), c i * Wf * ω i ≤ ∑ i ∈ Finset.range (I + 1), c i * Pa * ω i + 31 * u * P * R * ∑ i ∈ Finset.range (I + 1), c i

The window split of a three-core tuple (blueprint eq:core-numerical): if the core factor W Π (a'_j + τ_c S_j) is at most P_a + 31 u P and every window energy root is at most R, the window sum is at most the principal window sum with the true torus sizes P_a, plus 31 u P R Σ_i c_i.

theorem TrilinearHT.Auto.three_coset_err_le {ι : Type u_1} (s : Finset ι) (hs : s.card = 3) {D ε H nC kJ MN CN L1 σ NB : ℝ} {J : ℕ} {S : ι → ℝ} (hJ : 3 ≤ J) (hD : 2 ≤ D) (hS : ∀ j ∈ s, 0 ≤ S j) (hMN : MN ≤ D) (hCN0 : 0 ≤ CN) (hCN : CN ≤ D) (hnC : 0 ≤ nC) (hkJ : 0 ≤ kJ) (hε : ε ≤ (D ^ 999)⁻¹) (hH : D ^ 999 ≤ H) (hL1 : 0 ≤ L1) (hL1σ : L1 ≤ σ) (hNB0 : 0 ≤ NB) (hNB : NB ≤ nC * √ε) :
MN * (CN * ∏ j ∈ s, CN * S j) * (L1 * (NB + 12 * (kJ * (4 / H) ^ (J - 2)))) ≤ ((nC + 48 * kJ) * (D ^ 100)⁻¹ * ∏ j ∈ s, S j) * σ

The coset replacement and tail errors of a three-core tuple (blueprint eq:core-numerical): with full Fourier norms at most D_*, replacement precision ε ≤ D_*^{-999} (near error N ≤ C √ε), far separation H ≥ D_*^{999}, J ≥ 3, and normalized L¹ side size at most σ, multNorm (cutNorm Π_{j ∈ s} (cutNorm S_j)) L¹ (N + 12 C_J (4/H)^{J-2}) ≤ (C + 48 C_J) D_*^{-100} Π_{j ∈ s} S_j σ for three roles.

noncomputable def TrilinearHT.Auto.threeErrC (κ : LocalKernelClass) (J A : ℕ) :

The absolute constant of the numerical errors of a three-core tuple (blueprint eq:core-numerical, with the local side size as an extra factor): torus-form and gauge errors, truncation parts of the core sizes, coset replacement and tail errors, shells above U₀, and discarded tuples.

Equations
  • One or more equations did not get rendered due to their size.
Instances For
    noncomputable def TrilinearHT.Auto.ActiveSetup.BasicFamilies.FamParams.SideInput.threePrin {κ' : LocalKernelClass} {c₀ : ℕ} {A : ActiveSetup κ' c₀} {bf : A.BasicFamilies} {fp : bf.FamParams} (D : fp.SideInput) (G : bf.Grp) (I : ℤ × ℤ) (xs : ℝ) (h' : ℕ) (l : Fin 4) (a : Fin 4 → ℝ) (Fsel : (j : Fin 4) → Finset ↥((D.Ms j G).alive (ancAt A.G (D.preAt I) (A.blkStart D.S.K I.1 - 4 * ↑D.S.K)))) (n : (j : Fin 4) → ↥((D.Ms j G).alive (ancAt A.G (D.preAt I) (A.blkStart D.S.K I.1 - 4 * ↑D.S.K))) → Fin (D.Ms j G).zc.dim → ℤ) (X : ↥(ColumnL2 (bf.Lab ⊕ Fin fp.Mc))) (J Aw Iw : ℕ) :

    The principal quantity of a three-core tuple with side role l (blueprint eq:side-windows): 2 Σ_{Λ = 2^i ≤ 2^{I_w}} r⁻¹ C_{J,A} μ ν^{-J} 2^{A+4} Λ^{-(A+1)} (Π_{j ≠ l} a'_j) b_Λ with the true torus sizes a'_j and the offset-averaged window energies b_Λ of the side X in the mask-independent windows threeWin(Λ).

    Equations
    • One or more equations did not get rendered due to their size.
    Instances For
      theorem TrilinearHT.Auto.ActiveSetup.BasicFamilies.FamParams.SideInput.window_root_le {κ' : LocalKernelClass} {c₀ : ℕ} {A : ActiveSetup κ' c₀} {bf : A.BasicFamilies} {fp : bf.FamParams} (z : ChartTag) (l : Fin 4) (X : ↥(ColumnL2 (bf.Lab ⊕ Fin fp.Mc))) (I : ℤ × ℤ) (K : Finset ℤ) :
      √(∫ (ρ' : Fin z.dim → ℝ), sideWinE z l (augPhys X) (dyadicGridLeft A.G I.1 I.2) (dyadicGridLength A.G I.1) K ρ' ∂offsetMeasure z.dim) ≤ √(dyadicGridLength A.G I.1 * ∫ (y : ℝ) in dyadicGridLeft A.G I.1 I.2..dyadicGridLeft A.G I.1 I.2 + dyadicGridLength A.G I.1, ‖augPhys X y‖ ^ 2)

      The window energies of a side on a cell are at most r ∫_I |S_phys|² (Bessel for each offset, averaged over the offsets).