import OAI.NumberTheory.DirichletL.Mellin.SixthPowerAverage
From the sextic mean square to the 11 / 12 Möbius bound
This module is the direct sixth-power amplifier used after the analytic mean-square argument. The mean-square estimate is an explicit hypothesis.
For alpha = (1 + theta) / 6, average the rows A (b ^ 6) over
Norm b \asymp X ^ alpha. Cauchy--Schwarz costs the square root of the
number of rows, while the zero Fourier mode contributes a factor
X ^ alpha. Thus
(2 + theta - alpha) / 2 = (11 + 5 * theta) / 12.
namespace ElevenTwelfthsnoncomputable sectionopen scoped BigOperators Classical SchwartzMap ContDiff Topologyopen Filter Asymptotics MeasureTheoryopen OAIopen OAI.ActualEisensteinCubicopen OAI.ConcretePrimeRowBridge hiding Oopen OAI.EisensteinSchwartzPoisson hiding Oopen OAI.ConcreteTraceCRT OAI.ShortDraftHeckeBridgeopen OAI.QuadraticInitialBound hiding Oopen OAI.InitialMeanSquareopen OAI.SixthPowerAverage
A symbolic-theta form of the sixth-power averaging argument.
The hypothesis hmean is the sole deep analytic input. It says that every
finite collection of nonzero sextic rows of norm at most X ^ (1 + theta)
has second moment O(X ^ (2 + theta + 2 * epsilon)). The conclusion is the
smooth weighted Eisenstein--Möbius bound with exponent
(11 + 5 * theta) / 12 + epsilon.
theorem outside_totient_moebius_bound_of_mean_square
{q : ℕ} (chi : DirichletCharacter ℂ q)
(S : Finset (Ideal OAI.ActualEisensteinCubic.O))
(hbad : OAI.CanonicalQuadraticSieve.fixedBadPrimes ⊆ S)
(W : ℝ → ℂ) (a b : ℝ) (_ha : 0 < a)
(hsupport : Function.support W ⊆ Set.Icc a b)
(hW : ContDiff ℝ ∞ W)
(theta epsilon Cmean : ℝ)
(htheta : 0 ≤ theta) (hepsilon : 0 < epsilon)
(hCmean : 0 < Cmean)
(hmean : ∀ (D : ℕ) (X : ℝ), 1 ≤ X → b * X ≤ D →
∀ T : Finset OAI.ActualEisensteinCubic.O,
(∀ h ∈ T,
(Ideal.absNorm (Ideal.span {h}) : ℝ) ≤ X ^ (1 + theta : ℝ)) →
(∀ h ∈ T, h ≠ 0) →
(∑ h ∈ T,
‖idealRowSum (outsideIdealsUpTo S D)
(outsideIdealsUpTo_ne_bot S D) (outside_good S D hbad)
chi (fun n ↦ W (n / X)) h‖ ^ 2) ≤
Cmean * X ^ ((2 + theta : ℝ) + 2 * epsilon)) :
∃ C : ℝ, 0 < C ∧
∀ (D : ℕ) (X : ℝ), 1 ≤ X → b * X ≤ D →
‖∑ n ∈ outsideIdealsUpTo S D,
baseChangeWeight chi n * W ((Ideal.absNorm n : ℝ) / X) *
totientDensity n‖ ≤
C * X ^ (((11 + 5 * theta) / 12 : ℝ) + epsilon) := q:ℕchi:DirichletCharacter ℂ qS:Finset (Ideal ActualEisensteinCubic.O)hbad:CanonicalQuadraticSieve.fixedBadPrimes ⊆ SW:ℝ → ℂa:ℝb:ℝ_ha:0 < ahsupport:Function.support W ⊆ Set.Icc a bhW:ContDiff ℝ ∞ Wtheta:ℝepsilon:ℝCmean:ℝhtheta:0 ≤ thetahepsilon:0 < epsilonhCmean:0 < Cmeanhmean:∀ (D : ℕ) (X : ℝ),
1 ≤ X →
b * X ≤ ↑D →
∀ (T : Finset ActualEisensteinCubic.O),
(∀ h ∈ T, ↑(Ideal.absNorm (Ideal.span {h})) ≤ X ^ (1 + theta)) →
(∀ h ∈ T, h ≠ 0) →
∑ h ∈ T, ‖idealRowSum (outsideIdealsUpTo S D) ⋯ ⋯ chi (fun n => W (↑n / X)) h‖ ^ 2 ≤
Cmean * X ^ (2 + theta + 2 * epsilon)⊢ ∃ C,
0 < C ∧
∀ (D : ℕ) (X : ℝ),
1 ≤ X →
b * X ≤ ↑D →
‖∑ n ∈ outsideIdealsUpTo S D, baseChangeWeight chi n * W (↑(Ideal.absNorm n) / X) * totientDensity n‖ ≤
C * X ^ ((11 + 5 * theta) / 12 + epsilon)
q:ℕchi:DirichletCharacter ℂ qS:Finset (Ideal ActualEisensteinCubic.O)hbad:CanonicalQuadraticSieve.fixedBadPrimes ⊆ SW:ℝ → ℂa:ℝb:ℝ_ha:0 < ahsupport:Function.support W ⊆ Set.Icc a bhW:ContDiff ℝ ∞ Wtheta:ℝepsilon:ℝCmean:ℝhtheta:0 ≤ thetahepsilon:0 < epsilonhCmean:0 < Cmeanhmean:∀ (D : ℕ) (X : ℝ),
1 ≤ X →
b * X ≤ ↑D →
∀ (T : Finset ActualEisensteinCubic.O),
(∀ h ∈ T, ↑(Ideal.absNorm (Ideal.span {h})) ≤ X ^ (1 + theta)) →
(∀ h ∈ T, h ≠ 0) →
∑ h ∈ T, ‖idealRowSum (outsideIdealsUpTo S D) ⋯ ⋯ chi (fun n => W (↑n / X)) h‖ ^ 2 ≤
Cmean * X ^ (2 + theta + 2 * epsilon)V:𝓢(ℝ, ℂ)hV:∀ (x : ℝ), ‖V x‖ ≤ 1hVs:Function.support ⇑V ⊆ Set.Icc (1 / 2) 1hV0:V 0 = 0hVhat:paperRadialFourier (⇑V) 0 ≠ 0⊢ ∃ C,
0 < C ∧
∀ (D : ℕ) (X : ℝ),
1 ≤ X →
b * X ≤ ↑D →
‖∑ n ∈ outsideIdealsUpTo S D, baseChangeWeight chi n * W (↑(Ideal.absNorm n) / X) * totientDensity n‖ ≤
C * X ^ ((11 + 5 * theta) / 12 + epsilon)
q:ℕchi:DirichletCharacter ℂ qS:Finset (Ideal ActualEisensteinCubic.O)hbad:CanonicalQuadraticSieve.fixedBadPrimes ⊆ SW:ℝ → ℂa:ℝb:ℝ_ha:0 < ahsupport:Function.support W ⊆ Set.Icc a bhW:ContDiff ℝ ∞ Wtheta:ℝepsilon:ℝCmean:ℝhtheta:0 ≤ thetahepsilon:0 < epsilonhCmean:0 < Cmeanhmean:∀ (D : ℕ) (X : ℝ),
1 ≤ X →
b * X ≤ ↑D →
∀ (T : Finset ActualEisensteinCubic.O),
(∀ h ∈ T, ↑(Ideal.absNorm (Ideal.span {h})) ≤ X ^ (1 + theta)) →
(∀ h ∈ T, h ≠ 0) →
∑ h ∈ T, ‖idealRowSum (outsideIdealsUpTo S D) ⋯ ⋯ chi (fun n => W (↑n / X)) h‖ ^ 2 ≤
Cmean * X ^ (2 + theta + 2 * epsilon)V:𝓢(ℝ, ℂ)hV:∀ (x : ℝ), ‖V x‖ ≤ 1hVs:Function.support ⇑V ⊆ Set.Icc (1 / 2) 1hV0:V 0 = 0hVhat:paperRadialFourier (⇑V) 0 ≠ 0Cerror:ℝhCerror:0 < Cerrorherror:∀ {q : ℕ} (F : Finset (Ideal ActualEisensteinCubic.O)),
(∀ I ∈ F, I ≠ ⊥) →
∀ (χ : DirichletCharacter ℂ q) (W : ℕ → ℂ) (V : 𝓢(ℝ, ℂ)) (Y lengthScale G : ℝ),
0 < Y →
1 ≤ lengthScale →
0 ≤ G →
(∀ (n : ℕ), ‖W n‖ ≤ G) →
(∀ I ∈ F, W (Ideal.absNorm I) ≠ 0 → ↑(Ideal.absNorm I) ≤ lengthScale) →
‖∑ I ∈ F,
baseChangeWeight χ I * W (Ideal.absNorm I) *
maskedPrincipalRemainder (fun i => ↑i) (idealSupport F I) (⇑V) Y‖ ≤
Cerror * G * pvControl V * lengthScale ^ (1 + epsilon)⊢ ∃ C,
0 < C ∧
∀ (D : ℕ) (X : ℝ),
1 ≤ X →
b * X ≤ ↑D →
‖∑ n ∈ outsideIdealsUpTo S D, baseChangeWeight chi n * W (↑(Ideal.absNorm n) / X) * totientDensity n‖ ≤
C * X ^ ((11 + 5 * theta) / 12 + epsilon)
q:ℕchi:DirichletCharacter ℂ qS:Finset (Ideal ActualEisensteinCubic.O)hbad:CanonicalQuadraticSieve.fixedBadPrimes ⊆ SW:ℝ → ℂa:ℝb:ℝ_ha:0 < ahsupport:Function.support W ⊆ Set.Icc a bhW:ContDiff ℝ ∞ Wtheta:ℝepsilon:ℝCmean:ℝhtheta:0 ≤ thetahepsilon:0 < epsilonhCmean:0 < Cmeanhmean:∀ (D : ℕ) (X : ℝ),
1 ≤ X →
b * X ≤ ↑D →
∀ (T : Finset ActualEisensteinCubic.O),
(∀ h ∈ T, ↑(Ideal.absNorm (Ideal.span {h})) ≤ X ^ (1 + theta)) →
(∀ h ∈ T, h ≠ 0) →
∑ h ∈ T, ‖idealRowSum (outsideIdealsUpTo S D) ⋯ ⋯ chi (fun n => W (↑n / X)) h‖ ^ 2 ≤
Cmean * X ^ (2 + theta + 2 * epsilon)V:𝓢(ℝ, ℂ)hV:∀ (x : ℝ), ‖V x‖ ≤ 1hVs:Function.support ⇑V ⊆ Set.Icc (1 / 2) 1hV0:V 0 = 0hVhat:paperRadialFourier (⇑V) 0 ≠ 0Cerror:ℝhCerror:0 < Cerrorherror:∀ {q : ℕ} (F : Finset (Ideal ActualEisensteinCubic.O)),
(∀ I ∈ F, I ≠ ⊥) →
∀ (χ : DirichletCharacter ℂ q) (W : ℕ → ℂ) (V : 𝓢(ℝ, ℂ)) (Y lengthScale G : ℝ),
0 < Y →
1 ≤ lengthScale →
0 ≤ G →
(∀ (n : ℕ), ‖W n‖ ≤ G) →
(∀ I ∈ F, W (Ideal.absNorm I) ≠ 0 → ↑(Ideal.absNorm I) ≤ lengthScale) →
‖∑ I ∈ F,
baseChangeWeight χ I * W (Ideal.absNorm I) *
maskedPrincipalRemainder (fun i => ↑i) (idealSupport F I) (⇑V) Y‖ ≤
Cerror * G * pvControl V * lengthScale ^ (1 + epsilon)hWcompact:HasCompactSupport W⊢ ∃ C,
0 < C ∧
∀ (D : ℕ) (X : ℝ),
1 ≤ X →
b * X ≤ ↑D →
‖∑ n ∈ outsideIdealsUpTo S D, baseChangeWeight chi n * W (↑(Ideal.absNorm n) / X) * totientDensity n‖ ≤
C * X ^ ((11 + 5 * theta) / 12 + epsilon)
q:ℕchi:DirichletCharacter ℂ qS:Finset (Ideal ActualEisensteinCubic.O)hbad:CanonicalQuadraticSieve.fixedBadPrimes ⊆ SW:ℝ → ℂa:ℝb:ℝ_ha:0 < ahsupport:Function.support W ⊆ Set.Icc a bhW:ContDiff ℝ ∞ Wtheta:ℝepsilon:ℝCmean:ℝhtheta:0 ≤ thetahepsilon:0 < epsilonhCmean:0 < Cmeanhmean:∀ (D : ℕ) (X : ℝ),
1 ≤ X →
b * X ≤ ↑D →
∀ (T : Finset ActualEisensteinCubic.O),
(∀ h ∈ T, ↑(Ideal.absNorm (Ideal.span {h})) ≤ X ^ (1 + theta)) →
(∀ h ∈ T, h ≠ 0) →
∑ h ∈ T, ‖idealRowSum (outsideIdealsUpTo S D) ⋯ ⋯ chi (fun n => W (↑n / X)) h‖ ^ 2 ≤
Cmean * X ^ (2 + theta + 2 * epsilon)V:𝓢(ℝ, ℂ)hV:∀ (x : ℝ), ‖V x‖ ≤ 1hVs:Function.support ⇑V ⊆ Set.Icc (1 / 2) 1hV0:V 0 = 0hVhat:paperRadialFourier (⇑V) 0 ≠ 0Cerror:ℝhCerror:0 < Cerrorherror:∀ {q : ℕ} (F : Finset (Ideal ActualEisensteinCubic.O)),
(∀ I ∈ F, I ≠ ⊥) →
∀ (χ : DirichletCharacter ℂ q) (W : ℕ → ℂ) (V : 𝓢(ℝ, ℂ)) (Y lengthScale G : ℝ),
0 < Y →
1 ≤ lengthScale →
0 ≤ G →
(∀ (n : ℕ), ‖W n‖ ≤ G) →
(∀ I ∈ F, W (Ideal.absNorm I) ≠ 0 → ↑(Ideal.absNorm I) ≤ lengthScale) →
‖∑ I ∈ F,
baseChangeWeight χ I * W (Ideal.absNorm I) *
maskedPrincipalRemainder (fun i => ↑i) (idealSupport F I) (⇑V) Y‖ ≤
Cerror * G * pvControl V * lengthScale ^ (1 + epsilon)hWcompact:HasCompactSupport WWs:𝓢(ℝ, ℂ) := hWcompact.toSchwartzMap hW⊢ ∃ C,
0 < C ∧
∀ (D : ℕ) (X : ℝ),
1 ≤ X →
b * X ≤ ↑D →
‖∑ n ∈ outsideIdealsUpTo S D, baseChangeWeight chi n * W (↑(Ideal.absNorm n) / X) * totientDensity n‖ ≤
C * X ^ ((11 + 5 * theta) / 12 + epsilon)
q:ℕchi:DirichletCharacter ℂ qS:Finset (Ideal ActualEisensteinCubic.O)hbad:CanonicalQuadraticSieve.fixedBadPrimes ⊆ SW:ℝ → ℂa:ℝb:ℝ_ha:0 < ahsupport:Function.support W ⊆ Set.Icc a bhW:ContDiff ℝ ∞ Wtheta:ℝepsilon:ℝCmean:ℝhtheta:0 ≤ thetahepsilon:0 < epsilonhCmean:0 < Cmeanhmean:∀ (D : ℕ) (X : ℝ),
1 ≤ X →
b * X ≤ ↑D →
∀ (T : Finset ActualEisensteinCubic.O),
(∀ h ∈ T, ↑(Ideal.absNorm (Ideal.span {h})) ≤ X ^ (1 + theta)) →
(∀ h ∈ T, h ≠ 0) →
∑ h ∈ T, ‖idealRowSum (outsideIdealsUpTo S D) ⋯ ⋯ chi (fun n => W (↑n / X)) h‖ ^ 2 ≤
Cmean * X ^ (2 + theta + 2 * epsilon)V:𝓢(ℝ, ℂ)hV:∀ (x : ℝ), ‖V x‖ ≤ 1hVs:Function.support ⇑V ⊆ Set.Icc (1 / 2) 1hV0:V 0 = 0hVhat:paperRadialFourier (⇑V) 0 ≠ 0Cerror:ℝhCerror:0 < Cerrorherror:∀ {q : ℕ} (F : Finset (Ideal ActualEisensteinCubic.O)),
(∀ I ∈ F, I ≠ ⊥) →
∀ (χ : DirichletCharacter ℂ q) (W : ℕ → ℂ) (V : 𝓢(ℝ, ℂ)) (Y lengthScale G : ℝ),
0 < Y →
1 ≤ lengthScale →
0 ≤ G →
(∀ (n : ℕ), ‖W n‖ ≤ G) →
(∀ I ∈ F, W (Ideal.absNorm I) ≠ 0 → ↑(Ideal.absNorm I) ≤ lengthScale) →
‖∑ I ∈ F,
baseChangeWeight χ I * W (Ideal.absNorm I) *
maskedPrincipalRemainder (fun i => ↑i) (idealSupport F I) (⇑V) Y‖ ≤
Cerror * G * pvControl V * lengthScale ^ (1 + epsilon)hWcompact:HasCompactSupport WWs:𝓢(ℝ, ℂ) := hWcompact.toSchwartzMap hWG:ℝ := (SchwartzMap.seminorm ℝ 0 0) Ws⊢ ∃ C,
0 < C ∧
∀ (D : ℕ) (X : ℝ),
1 ≤ X →
b * X ≤ ↑D →
‖∑ n ∈ outsideIdealsUpTo S D, baseChangeWeight chi n * W (↑(Ideal.absNorm n) / X) * totientDensity n‖ ≤
C * X ^ ((11 + 5 * theta) / 12 + epsilon)
q:ℕchi:DirichletCharacter ℂ qS:Finset (Ideal ActualEisensteinCubic.O)hbad:CanonicalQuadraticSieve.fixedBadPrimes ⊆ SW:ℝ → ℂa:ℝb:ℝ_ha:0 < ahsupport:Function.support W ⊆ Set.Icc a bhW:ContDiff ℝ ∞ Wtheta:ℝepsilon:ℝCmean:ℝhtheta:0 ≤ thetahepsilon:0 < epsilonhCmean:0 < Cmeanhmean:∀ (D : ℕ) (X : ℝ),
1 ≤ X →
b * X ≤ ↑D →
∀ (T : Finset ActualEisensteinCubic.O),
(∀ h ∈ T, ↑(Ideal.absNorm (Ideal.span {h})) ≤ X ^ (1 + theta)) →
(∀ h ∈ T, h ≠ 0) →
∑ h ∈ T, ‖idealRowSum (outsideIdealsUpTo S D) ⋯ ⋯ chi (fun n => W (↑n / X)) h‖ ^ 2 ≤
Cmean * X ^ (2 + theta + 2 * epsilon)V:𝓢(ℝ, ℂ)hV:∀ (x : ℝ), ‖V x‖ ≤ 1hVs:Function.support ⇑V ⊆ Set.Icc (1 / 2) 1hV0:V 0 = 0hVhat:paperRadialFourier (⇑V) 0 ≠ 0Cerror:ℝhCerror:0 < Cerrorherror:∀ {q : ℕ} (F : Finset (Ideal ActualEisensteinCubic.O)),
(∀ I ∈ F, I ≠ ⊥) →
∀ (χ : DirichletCharacter ℂ q) (W : ℕ → ℂ) (V : 𝓢(ℝ, ℂ)) (Y lengthScale G : ℝ),
0 < Y →
1 ≤ lengthScale →
0 ≤ G →
(∀ (n : ℕ), ‖W n‖ ≤ G) →
(∀ I ∈ F, W (Ideal.absNorm I) ≠ 0 → ↑(Ideal.absNorm I) ≤ lengthScale) →
‖∑ I ∈ F,
baseChangeWeight χ I * W (Ideal.absNorm I) *
maskedPrincipalRemainder (fun i => ↑i) (idealSupport F I) (⇑V) Y‖ ≤
Cerror * G * pvControl V * lengthScale ^ (1 + epsilon)hWcompact:HasCompactSupport WWs:𝓢(ℝ, ℂ) := hWcompact.toSchwartzMap hWG:ℝ := (SchwartzMap.seminorm ℝ 0 0) WssupportBound:ℝ := max 1 b⊢ ∃ C,
0 < C ∧
∀ (D : ℕ) (X : ℝ),
1 ≤ X →
b * X ≤ ↑D →
‖∑ n ∈ outsideIdealsUpTo S D, baseChangeWeight chi n * W (↑(Ideal.absNorm n) / X) * totientDensity n‖ ≤
C * X ^ ((11 + 5 * theta) / 12 + epsilon)
q:ℕchi:DirichletCharacter ℂ qS:Finset (Ideal ActualEisensteinCubic.O)hbad:CanonicalQuadraticSieve.fixedBadPrimes ⊆ SW:ℝ → ℂa:ℝb:ℝ_ha:0 < ahsupport:Function.support W ⊆ Set.Icc a bhW:ContDiff ℝ ∞ Wtheta:ℝepsilon:ℝCmean:ℝhtheta:0 ≤ thetahepsilon:0 < epsilonhCmean:0 < Cmeanhmean:∀ (D : ℕ) (X : ℝ),
1 ≤ X →
b * X ≤ ↑D →
∀ (T : Finset ActualEisensteinCubic.O),
(∀ h ∈ T, ↑(Ideal.absNorm (Ideal.span {h})) ≤ X ^ (1 + theta)) →
(∀ h ∈ T, h ≠ 0) →
∑ h ∈ T, ‖idealRowSum (outsideIdealsUpTo S D) ⋯ ⋯ chi (fun n => W (↑n / X)) h‖ ^ 2 ≤
Cmean * X ^ (2 + theta + 2 * epsilon)V:𝓢(ℝ, ℂ)hV:∀ (x : ℝ), ‖V x‖ ≤ 1hVs:Function.support ⇑V ⊆ Set.Icc (1 / 2) 1hV0:V 0 = 0hVhat:paperRadialFourier (⇑V) 0 ≠ 0Cerror:ℝhCerror:0 < Cerrorherror:∀ {q : ℕ} (F : Finset (Ideal ActualEisensteinCubic.O)),
(∀ I ∈ F, I ≠ ⊥) →
∀ (χ : DirichletCharacter ℂ q) (W : ℕ → ℂ) (V : 𝓢(ℝ, ℂ)) (Y lengthScale G : ℝ),
0 < Y →
1 ≤ lengthScale →
0 ≤ G →
(∀ (n : ℕ), ‖W n‖ ≤ G) →
(∀ I ∈ F, W (Ideal.absNorm I) ≠ 0 → ↑(Ideal.absNorm I) ≤ lengthScale) →
‖∑ I ∈ F,
baseChangeWeight χ I * W (Ideal.absNorm I) *
maskedPrincipalRemainder (fun i => ↑i) (idealSupport F I) (⇑V) Y‖ ≤
Cerror * G * pvControl V * lengthScale ^ (1 + epsilon)hWcompact:HasCompactSupport WWs:𝓢(ℝ, ℂ) := hWcompact.toSchwartzMap hWG:ℝ := (SchwartzMap.seminorm ℝ 0 0) WssupportBound:ℝ := max 1 bError:ℝ := Cerror * G * pvControl V * supportBound ^ (1 + epsilon)⊢ ∃ C,
0 < C ∧
∀ (D : ℕ) (X : ℝ),
1 ≤ X →
b * X ≤ ↑D →
‖∑ n ∈ outsideIdealsUpTo S D, baseChangeWeight chi n * W (↑(Ideal.absNorm n) / X) * totientDensity n‖ ≤
C * X ^ ((11 + 5 * theta) / 12 + epsilon)
q:ℕchi:DirichletCharacter ℂ qS:Finset (Ideal ActualEisensteinCubic.O)hbad:CanonicalQuadraticSieve.fixedBadPrimes ⊆ SW:ℝ → ℂa:ℝb:ℝ_ha:0 < ahsupport:Function.support W ⊆ Set.Icc a bhW:ContDiff ℝ ∞ Wtheta:ℝepsilon:ℝCmean:ℝhtheta:0 ≤ thetahepsilon:0 < epsilonhCmean:0 < Cmeanhmean:∀ (D : ℕ) (X : ℝ),
1 ≤ X →
b * X ≤ ↑D →
∀ (T : Finset ActualEisensteinCubic.O),
(∀ h ∈ T, ↑(Ideal.absNorm (Ideal.span {h})) ≤ X ^ (1 + theta)) →
(∀ h ∈ T, h ≠ 0) →
∑ h ∈ T, ‖idealRowSum (outsideIdealsUpTo S D) ⋯ ⋯ chi (fun n => W (↑n / X)) h‖ ^ 2 ≤
Cmean * X ^ (2 + theta + 2 * epsilon)V:𝓢(ℝ, ℂ)hV:∀ (x : ℝ), ‖V x‖ ≤ 1hVs:Function.support ⇑V ⊆ Set.Icc (1 / 2) 1hV0:V 0 = 0hVhat:paperRadialFourier (⇑V) 0 ≠ 0Cerror:ℝhCerror:0 < Cerrorherror:∀ {q : ℕ} (F : Finset (Ideal ActualEisensteinCubic.O)),
(∀ I ∈ F, I ≠ ⊥) →
∀ (χ : DirichletCharacter ℂ q) (W : ℕ → ℂ) (V : 𝓢(ℝ, ℂ)) (Y lengthScale G : ℝ),
0 < Y →
1 ≤ lengthScale →
0 ≤ G →
(∀ (n : ℕ), ‖W n‖ ≤ G) →
(∀ I ∈ F, W (Ideal.absNorm I) ≠ 0 → ↑(Ideal.absNorm I) ≤ lengthScale) →
‖∑ I ∈ F,
baseChangeWeight χ I * W (Ideal.absNorm I) *
maskedPrincipalRemainder (fun i => ↑i) (idealSupport F I) (⇑V) Y‖ ≤
Cerror * G * pvControl V * lengthScale ^ (1 + epsilon)hWcompact:HasCompactSupport WWs:𝓢(ℝ, ℂ) := hWcompact.toSchwartzMap hWG:ℝ := (SchwartzMap.seminorm ℝ 0 0) WssupportBound:ℝ := max 1 bError:ℝ := Cerror * G * pvControl V * supportBound ^ (1 + epsilon)Average:ℝ := √(768 * Cmean)⊢ ∃ C,
0 < C ∧
∀ (D : ℕ) (X : ℝ),
1 ≤ X →
b * X ≤ ↑D →
‖∑ n ∈ outsideIdealsUpTo S D, baseChangeWeight chi n * W (↑(Ideal.absNorm n) / X) * totientDensity n‖ ≤
C * X ^ ((11 + 5 * theta) / 12 + epsilon)
q:ℕchi:DirichletCharacter ℂ qS:Finset (Ideal ActualEisensteinCubic.O)hbad:CanonicalQuadraticSieve.fixedBadPrimes ⊆ SW:ℝ → ℂa:ℝb:ℝ_ha:0 < ahsupport:Function.support W ⊆ Set.Icc a bhW:ContDiff ℝ ∞ Wtheta:ℝepsilon:ℝCmean:ℝhtheta:0 ≤ thetahepsilon:0 < epsilonhCmean:0 < Cmeanhmean:∀ (D : ℕ) (X : ℝ),
1 ≤ X →
b * X ≤ ↑D →
∀ (T : Finset ActualEisensteinCubic.O),
(∀ h ∈ T, ↑(Ideal.absNorm (Ideal.span {h})) ≤ X ^ (1 + theta)) →
(∀ h ∈ T, h ≠ 0) →
∑ h ∈ T, ‖idealRowSum (outsideIdealsUpTo S D) ⋯ ⋯ chi (fun n => W (↑n / X)) h‖ ^ 2 ≤
Cmean * X ^ (2 + theta + 2 * epsilon)V:𝓢(ℝ, ℂ)hV:∀ (x : ℝ), ‖V x‖ ≤ 1hVs:Function.support ⇑V ⊆ Set.Icc (1 / 2) 1hV0:V 0 = 0hVhat:paperRadialFourier (⇑V) 0 ≠ 0Cerror:ℝhCerror:0 < Cerrorherror:∀ {q : ℕ} (F : Finset (Ideal ActualEisensteinCubic.O)),
(∀ I ∈ F, I ≠ ⊥) →
∀ (χ : DirichletCharacter ℂ q) (W : ℕ → ℂ) (V : 𝓢(ℝ, ℂ)) (Y lengthScale G : ℝ),
0 < Y →
1 ≤ lengthScale →
0 ≤ G →
(∀ (n : ℕ), ‖W n‖ ≤ G) →
(∀ I ∈ F, W (Ideal.absNorm I) ≠ 0 → ↑(Ideal.absNorm I) ≤ lengthScale) →
‖∑ I ∈ F,
baseChangeWeight χ I * W (Ideal.absNorm I) *
maskedPrincipalRemainder (fun i => ↑i) (idealSupport F I) (⇑V) Y‖ ≤
Cerror * G * pvControl V * lengthScale ^ (1 + epsilon)hWcompact:HasCompactSupport WWs:𝓢(ℝ, ℂ) := hWcompact.toSchwartzMap hWG:ℝ := (SchwartzMap.seminorm ℝ 0 0) WssupportBound:ℝ := max 1 bError:ℝ := Cerror * G * pvControl V * supportBound ^ (1 + epsilon)Average:ℝ := √(768 * Cmean)alpha:ℝ := (1 + theta) / 6⊢ ∃ C,
0 < C ∧
∀ (D : ℕ) (X : ℝ),
1 ≤ X →
b * X ≤ ↑D →
‖∑ n ∈ outsideIdealsUpTo S D, baseChangeWeight chi n * W (↑(Ideal.absNorm n) / X) * totientDensity n‖ ≤
C * X ^ ((11 + 5 * theta) / 12 + epsilon)
q:ℕchi:DirichletCharacter ℂ qS:Finset (Ideal ActualEisensteinCubic.O)hbad:CanonicalQuadraticSieve.fixedBadPrimes ⊆ SW:ℝ → ℂa:ℝb:ℝ_ha:0 < ahsupport:Function.support W ⊆ Set.Icc a bhW:ContDiff ℝ ∞ Wtheta:ℝepsilon:ℝCmean:ℝhtheta:0 ≤ thetahepsilon:0 < epsilonhCmean:0 < Cmeanhmean:∀ (D : ℕ) (X : ℝ),
1 ≤ X →
b * X ≤ ↑D →
∀ (T : Finset ActualEisensteinCubic.O),
(∀ h ∈ T, ↑(Ideal.absNorm (Ideal.span {h})) ≤ X ^ (1 + theta)) →
(∀ h ∈ T, h ≠ 0) →
∑ h ∈ T, ‖idealRowSum (outsideIdealsUpTo S D) ⋯ ⋯ chi (fun n => W (↑n / X)) h‖ ^ 2 ≤
Cmean * X ^ (2 + theta + 2 * epsilon)V:𝓢(ℝ, ℂ)hV:∀ (x : ℝ), ‖V x‖ ≤ 1hVs:Function.support ⇑V ⊆ Set.Icc (1 / 2) 1hV0:V 0 = 0hVhat:paperRadialFourier (⇑V) 0 ≠ 0Cerror:ℝhCerror:0 < Cerrorherror:∀ {q : ℕ} (F : Finset (Ideal ActualEisensteinCubic.O)),
(∀ I ∈ F, I ≠ ⊥) →
∀ (χ : DirichletCharacter ℂ q) (W : ℕ → ℂ) (V : 𝓢(ℝ, ℂ)) (Y lengthScale G : ℝ),
0 < Y →
1 ≤ lengthScale →
0 ≤ G →
(∀ (n : ℕ), ‖W n‖ ≤ G) →
(∀ I ∈ F, W (Ideal.absNorm I) ≠ 0 → ↑(Ideal.absNorm I) ≤ lengthScale) →
‖∑ I ∈ F,
baseChangeWeight χ I * W (Ideal.absNorm I) *
maskedPrincipalRemainder (fun i => ↑i) (idealSupport F I) (⇑V) Y‖ ≤
Cerror * G * pvControl V * lengthScale ^ (1 + epsilon)hWcompact:HasCompactSupport WWs:𝓢(ℝ, ℂ) := hWcompact.toSchwartzMap hWG:ℝ := (SchwartzMap.seminorm ℝ 0 0) WssupportBound:ℝ := max 1 bError:ℝ := Cerror * G * pvControl V * supportBound ^ (1 + epsilon)Average:ℝ := √(768 * Cmean)alpha:ℝ := (1 + theta) / 6targetExponent:ℝ := (11 + 5 * theta) / 12 + epsilon⊢ ∃ C,
0 < C ∧
∀ (D : ℕ) (X : ℝ),
1 ≤ X →
b * X ≤ ↑D →
‖∑ n ∈ outsideIdealsUpTo S D, baseChangeWeight chi n * W (↑(Ideal.absNorm n) / X) * totientDensity n‖ ≤
C * X ^ ((11 + 5 * theta) / 12 + epsilon)
q:ℕchi:DirichletCharacter ℂ qS:Finset (Ideal ActualEisensteinCubic.O)hbad:CanonicalQuadraticSieve.fixedBadPrimes ⊆ SW:ℝ → ℂa:ℝb:ℝ_ha:0 < ahsupport:Function.support W ⊆ Set.Icc a bhW:ContDiff ℝ ∞ Wtheta:ℝepsilon:ℝCmean:ℝhtheta:0 ≤ thetahepsilon:0 < epsilonhCmean:0 < Cmeanhmean:∀ (D : ℕ) (X : ℝ),
1 ≤ X →
b * X ≤ ↑D →
∀ (T : Finset ActualEisensteinCubic.O),
(∀ h ∈ T, ↑(Ideal.absNorm (Ideal.span {h})) ≤ X ^ (1 + theta)) →
(∀ h ∈ T, h ≠ 0) →
∑ h ∈ T, ‖idealRowSum (outsideIdealsUpTo S D) ⋯ ⋯ chi (fun n => W (↑n / X)) h‖ ^ 2 ≤
Cmean * X ^ (2 + theta + 2 * epsilon)V:𝓢(ℝ, ℂ)hV:∀ (x : ℝ), ‖V x‖ ≤ 1hVs:Function.support ⇑V ⊆ Set.Icc (1 / 2) 1hV0:V 0 = 0hVhat:paperRadialFourier (⇑V) 0 ≠ 0Cerror:ℝhCerror:0 < Cerrorherror:∀ {q : ℕ} (F : Finset (Ideal ActualEisensteinCubic.O)),
(∀ I ∈ F, I ≠ ⊥) →
∀ (χ : DirichletCharacter ℂ q) (W : ℕ → ℂ) (V : 𝓢(ℝ, ℂ)) (Y lengthScale G : ℝ),
0 < Y →
1 ≤ lengthScale →
0 ≤ G →
(∀ (n : ℕ), ‖W n‖ ≤ G) →
(∀ I ∈ F, W (Ideal.absNorm I) ≠ 0 → ↑(Ideal.absNorm I) ≤ lengthScale) →
‖∑ I ∈ F,
baseChangeWeight χ I * W (Ideal.absNorm I) *
maskedPrincipalRemainder (fun i => ↑i) (idealSupport F I) (⇑V) Y‖ ≤
Cerror * G * pvControl V * lengthScale ^ (1 + epsilon)hWcompact:HasCompactSupport WWs:𝓢(ℝ, ℂ) := hWcompact.toSchwartzMap hWG:ℝ := (SchwartzMap.seminorm ℝ 0 0) WssupportBound:ℝ := max 1 bError:ℝ := Cerror * G * pvControl V * supportBound ^ (1 + epsilon)Average:ℝ := √(768 * Cmean)alpha:ℝ := (1 + theta) / 6targetExponent:ℝ := (11 + 5 * theta) / 12 + epsilonaverageExponent:ℝ := alpha + targetExponent⊢ ∃ C,
0 < C ∧
∀ (D : ℕ) (X : ℝ),
1 ≤ X →
b * X ≤ ↑D →
‖∑ n ∈ outsideIdealsUpTo S D, baseChangeWeight chi n * W (↑(Ideal.absNorm n) / X) * totientDensity n‖ ≤
C * X ^ ((11 + 5 * theta) / 12 + epsilon)
q:ℕchi:DirichletCharacter ℂ qS:Finset (Ideal ActualEisensteinCubic.O)hbad:CanonicalQuadraticSieve.fixedBadPrimes ⊆ SW:ℝ → ℂa:ℝb:ℝ_ha:0 < ahsupport:Function.support W ⊆ Set.Icc a bhW:ContDiff ℝ ∞ Wtheta:ℝepsilon:ℝCmean:ℝhtheta:0 ≤ thetahepsilon:0 < epsilonhCmean:0 < Cmeanhmean:∀ (D : ℕ) (X : ℝ),
1 ≤ X →
b * X ≤ ↑D →
∀ (T : Finset ActualEisensteinCubic.O),
(∀ h ∈ T, ↑(Ideal.absNorm (Ideal.span {h})) ≤ X ^ (1 + theta)) →
(∀ h ∈ T, h ≠ 0) →
∑ h ∈ T, ‖idealRowSum (outsideIdealsUpTo S D) ⋯ ⋯ chi (fun n => W (↑n / X)) h‖ ^ 2 ≤
Cmean * X ^ (2 + theta + 2 * epsilon)V:𝓢(ℝ, ℂ)hV:∀ (x : ℝ), ‖V x‖ ≤ 1hVs:Function.support ⇑V ⊆ Set.Icc (1 / 2) 1hV0:V 0 = 0hVhat:paperRadialFourier (⇑V) 0 ≠ 0Cerror:ℝhCerror:0 < Cerrorherror:∀ {q : ℕ} (F : Finset (Ideal ActualEisensteinCubic.O)),
(∀ I ∈ F, I ≠ ⊥) →
∀ (χ : DirichletCharacter ℂ q) (W : ℕ → ℂ) (V : 𝓢(ℝ, ℂ)) (Y lengthScale G : ℝ),
0 < Y →
1 ≤ lengthScale →
0 ≤ G →
(∀ (n : ℕ), ‖W n‖ ≤ G) →
(∀ I ∈ F, W (Ideal.absNorm I) ≠ 0 → ↑(Ideal.absNorm I) ≤ lengthScale) →
‖∑ I ∈ F,
baseChangeWeight χ I * W (Ideal.absNorm I) *
maskedPrincipalRemainder (fun i => ↑i) (idealSupport F I) (⇑V) Y‖ ≤
Cerror * G * pvControl V * lengthScale ^ (1 + epsilon)hWcompact:HasCompactSupport WWs:𝓢(ℝ, ℂ) := hWcompact.toSchwartzMap hWG:ℝ := (SchwartzMap.seminorm ℝ 0 0) WssupportBound:ℝ := max 1 bError:ℝ := Cerror * G * pvControl V * supportBound ^ (1 + epsilon)Average:ℝ := √(768 * Cmean)alpha:ℝ := (1 + theta) / 6targetExponent:ℝ := (11 + 5 * theta) / 12 + epsilonaverageExponent:ℝ := alpha + targetExponentC:ℝ := (Average + Error) / ‖paperRadialFourier (⇑V) 0‖⊢ ∃ C,
0 < C ∧
∀ (D : ℕ) (X : ℝ),
1 ≤ X →
b * X ≤ ↑D →
‖∑ n ∈ outsideIdealsUpTo S D, baseChangeWeight chi n * W (↑(Ideal.absNorm n) / X) * totientDensity n‖ ≤
C * X ^ ((11 + 5 * theta) / 12 + epsilon)
q:ℕchi:DirichletCharacter ℂ qS:Finset (Ideal ActualEisensteinCubic.O)hbad:CanonicalQuadraticSieve.fixedBadPrimes ⊆ SW:ℝ → ℂa:ℝb:ℝ_ha:0 < ahsupport:Function.support W ⊆ Set.Icc a bhW:ContDiff ℝ ∞ Wtheta:ℝepsilon:ℝCmean:ℝhtheta:0 ≤ thetahepsilon:0 < epsilonhCmean:0 < Cmeanhmean:∀ (D : ℕ) (X : ℝ),
1 ≤ X →
b * X ≤ ↑D →
∀ (T : Finset ActualEisensteinCubic.O),
(∀ h ∈ T, ↑(Ideal.absNorm (Ideal.span {h})) ≤ X ^ (1 + theta)) →
(∀ h ∈ T, h ≠ 0) →
∑ h ∈ T, ‖idealRowSum (outsideIdealsUpTo S D) ⋯ ⋯ chi (fun n => W (↑n / X)) h‖ ^ 2 ≤
Cmean * X ^ (2 + theta + 2 * epsilon)V:𝓢(ℝ, ℂ)hV:∀ (x : ℝ), ‖V x‖ ≤ 1hVs:Function.support ⇑V ⊆ Set.Icc (1 / 2) 1hV0:V 0 = 0hVhat:paperRadialFourier (⇑V) 0 ≠ 0Cerror:ℝhCerror:0 < Cerrorherror:∀ {q : ℕ} (F : Finset (Ideal ActualEisensteinCubic.O)),
(∀ I ∈ F, I ≠ ⊥) →
∀ (χ : DirichletCharacter ℂ q) (W : ℕ → ℂ) (V : 𝓢(ℝ, ℂ)) (Y lengthScale G : ℝ),
0 < Y →
1 ≤ lengthScale →
0 ≤ G →
(∀ (n : ℕ), ‖W n‖ ≤ G) →
(∀ I ∈ F, W (Ideal.absNorm I) ≠ 0 → ↑(Ideal.absNorm I) ≤ lengthScale) →
‖∑ I ∈ F,
baseChangeWeight χ I * W (Ideal.absNorm I) *
maskedPrincipalRemainder (fun i => ↑i) (idealSupport F I) (⇑V) Y‖ ≤
Cerror * G * pvControl V * lengthScale ^ (1 + epsilon)hWcompact:HasCompactSupport WWs:𝓢(ℝ, ℂ) := hWcompact.toSchwartzMap hWG:ℝ := (SchwartzMap.seminorm ℝ 0 0) WssupportBound:ℝ := max 1 bError:ℝ := Cerror * G * pvControl V * supportBound ^ (1 + epsilon)Average:ℝ := √(768 * Cmean)alpha:ℝ := (1 + theta) / 6targetExponent:ℝ := (11 + 5 * theta) / 12 + epsilonaverageExponent:ℝ := alpha + targetExponentC:ℝ := (Average + Error) / ‖paperRadialFourier (⇑V) 0‖hG:0 ≤ G⊢ ∃ C,
0 < C ∧
∀ (D : ℕ) (X : ℝ),
1 ≤ X →
b * X ≤ ↑D →
‖∑ n ∈ outsideIdealsUpTo S D, baseChangeWeight chi n * W (↑(Ideal.absNorm n) / X) * totientDensity n‖ ≤
C * X ^ ((11 + 5 * theta) / 12 + epsilon)
q:ℕchi:DirichletCharacter ℂ qS:Finset (Ideal ActualEisensteinCubic.O)hbad:CanonicalQuadraticSieve.fixedBadPrimes ⊆ SW:ℝ → ℂa:ℝb:ℝ_ha:0 < ahsupport:Function.support W ⊆ Set.Icc a bhW:ContDiff ℝ ∞ Wtheta:ℝepsilon:ℝCmean:ℝhtheta:0 ≤ thetahepsilon:0 < epsilonhCmean:0 < Cmeanhmean:∀ (D : ℕ) (X : ℝ),
1 ≤ X →
b * X ≤ ↑D →
∀ (T : Finset ActualEisensteinCubic.O),
(∀ h ∈ T, ↑(Ideal.absNorm (Ideal.span {h})) ≤ X ^ (1 + theta)) →
(∀ h ∈ T, h ≠ 0) →
∑ h ∈ T, ‖idealRowSum (outsideIdealsUpTo S D) ⋯ ⋯ chi (fun n => W (↑n / X)) h‖ ^ 2 ≤
Cmean * X ^ (2 + theta + 2 * epsilon)V:𝓢(ℝ, ℂ)hV:∀ (x : ℝ), ‖V x‖ ≤ 1hVs:Function.support ⇑V ⊆ Set.Icc (1 / 2) 1hV0:V 0 = 0hVhat:paperRadialFourier (⇑V) 0 ≠ 0Cerror:ℝhCerror:0 < Cerrorherror:∀ {q : ℕ} (F : Finset (Ideal ActualEisensteinCubic.O)),
(∀ I ∈ F, I ≠ ⊥) →
∀ (χ : DirichletCharacter ℂ q) (W : ℕ → ℂ) (V : 𝓢(ℝ, ℂ)) (Y lengthScale G : ℝ),
0 < Y →
1 ≤ lengthScale →
0 ≤ G →
(∀ (n : ℕ), ‖W n‖ ≤ G) →
(∀ I ∈ F, W (Ideal.absNorm I) ≠ 0 → ↑(Ideal.absNorm I) ≤ lengthScale) →
‖∑ I ∈ F,
baseChangeWeight χ I * W (Ideal.absNorm I) *
maskedPrincipalRemainder (fun i => ↑i) (idealSupport F I) (⇑V) Y‖ ≤
Cerror * G * pvControl V * lengthScale ^ (1 + epsilon)hWcompact:HasCompactSupport WWs:𝓢(ℝ, ℂ) := hWcompact.toSchwartzMap hWG:ℝ := (SchwartzMap.seminorm ℝ 0 0) WssupportBound:ℝ := max 1 bError:ℝ := Cerror * G * pvControl V * supportBound ^ (1 + epsilon)Average:ℝ := √(768 * Cmean)alpha:ℝ := (1 + theta) / 6targetExponent:ℝ := (11 + 5 * theta) / 12 + epsilonaverageExponent:ℝ := alpha + targetExponentC:ℝ := (Average + Error) / ‖paperRadialFourier (⇑V) 0‖hG:0 ≤ GhSupportBound:1 ≤ supportBound⊢ ∃ C,
0 < C ∧
∀ (D : ℕ) (X : ℝ),
1 ≤ X →
b * X ≤ ↑D →
‖∑ n ∈ outsideIdealsUpTo S D, baseChangeWeight chi n * W (↑(Ideal.absNorm n) / X) * totientDensity n‖ ≤
C * X ^ ((11 + 5 * theta) / 12 + epsilon)
q:ℕchi:DirichletCharacter ℂ qS:Finset (Ideal ActualEisensteinCubic.O)hbad:CanonicalQuadraticSieve.fixedBadPrimes ⊆ SW:ℝ → ℂa:ℝb:ℝ_ha:0 < ahsupport:Function.support W ⊆ Set.Icc a bhW:ContDiff ℝ ∞ Wtheta:ℝepsilon:ℝCmean:ℝhtheta:0 ≤ thetahepsilon:0 < epsilonhCmean:0 < Cmeanhmean:∀ (D : ℕ) (X : ℝ),
1 ≤ X →
b * X ≤ ↑D →
∀ (T : Finset ActualEisensteinCubic.O),
(∀ h ∈ T, ↑(Ideal.absNorm (Ideal.span {h})) ≤ X ^ (1 + theta)) →
(∀ h ∈ T, h ≠ 0) →
∑ h ∈ T, ‖idealRowSum (outsideIdealsUpTo S D) ⋯ ⋯ chi (fun n => W (↑n / X)) h‖ ^ 2 ≤
Cmean * X ^ (2 + theta + 2 * epsilon)V:𝓢(ℝ, ℂ)hV:∀ (x : ℝ), ‖V x‖ ≤ 1hVs:Function.support ⇑V ⊆ Set.Icc (1 / 2) 1hV0:V 0 = 0hVhat:paperRadialFourier (⇑V) 0 ≠ 0Cerror:ℝhCerror:0 < Cerrorherror:∀ {q : ℕ} (F : Finset (Ideal ActualEisensteinCubic.O)),
(∀ I ∈ F, I ≠ ⊥) →
∀ (χ : DirichletCharacter ℂ q) (W : ℕ → ℂ) (V : 𝓢(ℝ, ℂ)) (Y lengthScale G : ℝ),
0 < Y →
1 ≤ lengthScale →
0 ≤ G →
(∀ (n : ℕ), ‖W n‖ ≤ G) →
(∀ I ∈ F, W (Ideal.absNorm I) ≠ 0 → ↑(Ideal.absNorm I) ≤ lengthScale) →
‖∑ I ∈ F,
baseChangeWeight χ I * W (Ideal.absNorm I) *
maskedPrincipalRemainder (fun i => ↑i) (idealSupport F I) (⇑V) Y‖ ≤
Cerror * G * pvControl V * lengthScale ^ (1 + epsilon)hWcompact:HasCompactSupport WWs:𝓢(ℝ, ℂ) := hWcompact.toSchwartzMap hWG:ℝ := (SchwartzMap.seminorm ℝ 0 0) WssupportBound:ℝ := max 1 bError:ℝ := Cerror * G * pvControl V * supportBound ^ (1 + epsilon)Average:ℝ := √(768 * Cmean)alpha:ℝ := (1 + theta) / 6targetExponent:ℝ := (11 + 5 * theta) / 12 + epsilonaverageExponent:ℝ := alpha + targetExponentC:ℝ := (Average + Error) / ‖paperRadialFourier (⇑V) 0‖hG:0 ≤ GhSupportBound:1 ≤ supportBoundhError:0 ≤ Error⊢ ∃ C,
0 < C ∧
∀ (D : ℕ) (X : ℝ),
1 ≤ X →
b * X ≤ ↑D →
‖∑ n ∈ outsideIdealsUpTo S D, baseChangeWeight chi n * W (↑(Ideal.absNorm n) / X) * totientDensity n‖ ≤
C * X ^ ((11 + 5 * theta) / 12 + epsilon)
have hAverage : 0 < Average := Real.sqrt_pos.mpr (by q:ℕchi:DirichletCharacter ℂ qS:Finset (Ideal ActualEisensteinCubic.O)hbad:CanonicalQuadraticSieve.fixedBadPrimes ⊆ SW:ℝ → ℂa:ℝb:ℝ_ha:0 < ahsupport:Function.support W ⊆ Set.Icc a bhW:ContDiff ℝ ∞ Wtheta:ℝepsilon:ℝCmean:ℝhtheta:0 ≤ thetahepsilon:0 < epsilonhCmean:0 < Cmeanhmean:∀ (D : ℕ) (X : ℝ),
1 ≤ X →
b * X ≤ ↑D →
∀ (T : Finset ActualEisensteinCubic.O),
(∀ h ∈ T, ↑(Ideal.absNorm (Ideal.span {h})) ≤ X ^ (1 + theta)) →
(∀ h ∈ T, h ≠ 0) →
∑ h ∈ T, ‖idealRowSum (outsideIdealsUpTo S D) ⋯ ⋯ chi (fun n => W (↑n / X)) h‖ ^ 2 ≤
Cmean * X ^ (2 + theta + 2 * epsilon)V:𝓢(ℝ, ℂ)hV:∀ (x : ℝ), ‖V x‖ ≤ 1hVs:Function.support ⇑V ⊆ Set.Icc (1 / 2) 1hV0:V 0 = 0hVhat:paperRadialFourier (⇑V) 0 ≠ 0Cerror:ℝhCerror:0 < Cerrorherror:∀ {q : ℕ} (F : Finset (Ideal ActualEisensteinCubic.O)),
(∀ I ∈ F, I ≠ ⊥) →
∀ (χ : DirichletCharacter ℂ q) (W : ℕ → ℂ) (V : 𝓢(ℝ, ℂ)) (Y lengthScale G : ℝ),
0 < Y →
1 ≤ lengthScale →
0 ≤ G →
(∀ (n : ℕ), ‖W n‖ ≤ G) →
(∀ I ∈ F, W (Ideal.absNorm I) ≠ 0 → ↑(Ideal.absNorm I) ≤ lengthScale) →
‖∑ I ∈ F,
baseChangeWeight χ I * W (Ideal.absNorm I) *
maskedPrincipalRemainder (fun i => ↑i) (idealSupport F I) (⇑V) Y‖ ≤
Cerror * G * pvControl V * lengthScale ^ (1 + epsilon)hWcompact:HasCompactSupport WWs:𝓢(ℝ, ℂ) := hWcompact.toSchwartzMap hWG:ℝ := (SchwartzMap.seminorm ℝ 0 0) WssupportBound:ℝ := max 1 bError:ℝ := Cerror * G * pvControl V * supportBound ^ (1 + epsilon)Average:ℝ := √(768 * Cmean)alpha:ℝ := (1 + theta) / 6targetExponent:ℝ := (11 + 5 * theta) / 12 + epsilonaverageExponent:ℝ := alpha + targetExponentC:ℝ := (Average + Error) / ‖paperRadialFourier (⇑V) 0‖hG:0 ≤ GhSupportBound:1 ≤ supportBoundhError:0 ≤ Error⊢ 0 < 768 * Cmean positivity All goals completed! 🐙) q:ℕchi:DirichletCharacter ℂ qS:Finset (Ideal ActualEisensteinCubic.O)hbad:CanonicalQuadraticSieve.fixedBadPrimes ⊆ SW:ℝ → ℂa:ℝb:ℝ_ha:0 < ahsupport:Function.support W ⊆ Set.Icc a bhW:ContDiff ℝ ∞ Wtheta:ℝepsilon:ℝCmean:ℝhtheta:0 ≤ thetahepsilon:0 < epsilonhCmean:0 < Cmeanhmean:∀ (D : ℕ) (X : ℝ),
1 ≤ X →
b * X ≤ ↑D →
∀ (T : Finset ActualEisensteinCubic.O),
(∀ h ∈ T, ↑(Ideal.absNorm (Ideal.span {h})) ≤ X ^ (1 + theta)) →
(∀ h ∈ T, h ≠ 0) →
∑ h ∈ T, ‖idealRowSum (outsideIdealsUpTo S D) ⋯ ⋯ chi (fun n => W (↑n / X)) h‖ ^ 2 ≤
Cmean * X ^ (2 + theta + 2 * epsilon)V:𝓢(ℝ, ℂ)hV:∀ (x : ℝ), ‖V x‖ ≤ 1hVs:Function.support ⇑V ⊆ Set.Icc (1 / 2) 1hV0:V 0 = 0hVhat:paperRadialFourier (⇑V) 0 ≠ 0Cerror:ℝhCerror:0 < Cerrorherror:∀ {q : ℕ} (F : Finset (Ideal ActualEisensteinCubic.O)),
(∀ I ∈ F, I ≠ ⊥) →
∀ (χ : DirichletCharacter ℂ q) (W : ℕ → ℂ) (V : 𝓢(ℝ, ℂ)) (Y lengthScale G : ℝ),
0 < Y →
1 ≤ lengthScale →
0 ≤ G →
(∀ (n : ℕ), ‖W n‖ ≤ G) →
(∀ I ∈ F, W (Ideal.absNorm I) ≠ 0 → ↑(Ideal.absNorm I) ≤ lengthScale) →
‖∑ I ∈ F,
baseChangeWeight χ I * W (Ideal.absNorm I) *
maskedPrincipalRemainder (fun i => ↑i) (idealSupport F I) (⇑V) Y‖ ≤
Cerror * G * pvControl V * lengthScale ^ (1 + epsilon)hWcompact:HasCompactSupport WWs:𝓢(ℝ, ℂ) := hWcompact.toSchwartzMap hWG:ℝ := (SchwartzMap.seminorm ℝ 0 0) WssupportBound:ℝ := max 1 bError:ℝ := Cerror * G * pvControl V * supportBound ^ (1 + epsilon)Average:ℝ := √(768 * Cmean)alpha:ℝ := (1 + theta) / 6targetExponent:ℝ := (11 + 5 * theta) / 12 + epsilonaverageExponent:ℝ := alpha + targetExponentC:ℝ := (Average + Error) / ‖paperRadialFourier (⇑V) 0‖hG:0 ≤ GhSupportBound:1 ≤ supportBoundhError:0 ≤ ErrorhAverage:0 < Average⊢ ∃ C,
0 < C ∧
∀ (D : ℕ) (X : ℝ),
1 ≤ X →
b * X ≤ ↑D →
‖∑ n ∈ outsideIdealsUpTo S D, baseChangeWeight chi n * W (↑(Ideal.absNorm n) / X) * totientDensity n‖ ≤
C * X ^ ((11 + 5 * theta) / 12 + epsilon)
have hhat : 0 < ‖paperRadialFourier V 0‖ := norm_pos_iff.mpr hVhat q:ℕchi:DirichletCharacter ℂ qS:Finset (Ideal ActualEisensteinCubic.O)hbad:CanonicalQuadraticSieve.fixedBadPrimes ⊆ SW:ℝ → ℂa:ℝb:ℝ_ha:0 < ahsupport:Function.support W ⊆ Set.Icc a bhW:ContDiff ℝ ∞ Wtheta:ℝepsilon:ℝCmean:ℝhtheta:0 ≤ thetahepsilon:0 < epsilonhCmean:0 < Cmeanhmean:∀ (D : ℕ) (X : ℝ),
1 ≤ X →
b * X ≤ ↑D →
∀ (T : Finset ActualEisensteinCubic.O),
(∀ h ∈ T, ↑(Ideal.absNorm (Ideal.span {h})) ≤ X ^ (1 + theta)) →
(∀ h ∈ T, h ≠ 0) →
∑ h ∈ T, ‖idealRowSum (outsideIdealsUpTo S D) ⋯ ⋯ chi (fun n => W (↑n / X)) h‖ ^ 2 ≤
Cmean * X ^ (2 + theta + 2 * epsilon)V:𝓢(ℝ, ℂ)hV:∀ (x : ℝ), ‖V x‖ ≤ 1hVs:Function.support ⇑V ⊆ Set.Icc (1 / 2) 1hV0:V 0 = 0hVhat:paperRadialFourier (⇑V) 0 ≠ 0Cerror:ℝhCerror:0 < Cerrorherror:∀ {q : ℕ} (F : Finset (Ideal ActualEisensteinCubic.O)),
(∀ I ∈ F, I ≠ ⊥) →
∀ (χ : DirichletCharacter ℂ q) (W : ℕ → ℂ) (V : 𝓢(ℝ, ℂ)) (Y lengthScale G : ℝ),
0 < Y →
1 ≤ lengthScale →
0 ≤ G →
(∀ (n : ℕ), ‖W n‖ ≤ G) →
(∀ I ∈ F, W (Ideal.absNorm I) ≠ 0 → ↑(Ideal.absNorm I) ≤ lengthScale) →
‖∑ I ∈ F,
baseChangeWeight χ I * W (Ideal.absNorm I) *
maskedPrincipalRemainder (fun i => ↑i) (idealSupport F I) (⇑V) Y‖ ≤
Cerror * G * pvControl V * lengthScale ^ (1 + epsilon)hWcompact:HasCompactSupport WWs:𝓢(ℝ, ℂ) := hWcompact.toSchwartzMap hWG:ℝ := (SchwartzMap.seminorm ℝ 0 0) WssupportBound:ℝ := max 1 bError:ℝ := Cerror * G * pvControl V * supportBound ^ (1 + epsilon)Average:ℝ := √(768 * Cmean)alpha:ℝ := (1 + theta) / 6targetExponent:ℝ := (11 + 5 * theta) / 12 + epsilonaverageExponent:ℝ := alpha + targetExponentC:ℝ := (Average + Error) / ‖paperRadialFourier (⇑V) 0‖hG:0 ≤ GhSupportBound:1 ≤ supportBoundhError:0 ≤ ErrorhAverage:0 < Averagehhat:0 < ‖paperRadialFourier (⇑V) 0‖⊢ ∃ C,
0 < C ∧
∀ (D : ℕ) (X : ℝ),
1 ≤ X →
b * X ≤ ↑D →
‖∑ n ∈ outsideIdealsUpTo S D, baseChangeWeight chi n * W (↑(Ideal.absNorm n) / X) * totientDensity n‖ ≤
C * X ^ ((11 + 5 * theta) / 12 + epsilon)
have halpha : 0 ≤ alpha := by
dsimp [alpha] q:ℕchi:DirichletCharacter ℂ qS:Finset (Ideal ActualEisensteinCubic.O)hbad:CanonicalQuadraticSieve.fixedBadPrimes ⊆ SW:ℝ → ℂa:ℝb:ℝ_ha:0 < ahsupport:Function.support W ⊆ Set.Icc a bhW:ContDiff ℝ ∞ Wtheta:ℝepsilon:ℝCmean:ℝhtheta:0 ≤ thetahepsilon:0 < epsilonhCmean:0 < Cmeanhmean:∀ (D : ℕ) (X : ℝ),
1 ≤ X →
b * X ≤ ↑D →
∀ (T : Finset ActualEisensteinCubic.O),
(∀ h ∈ T, ↑(Ideal.absNorm (Ideal.span {h})) ≤ X ^ (1 + theta)) →
(∀ h ∈ T, h ≠ 0) →
∑ h ∈ T, ‖idealRowSum (outsideIdealsUpTo S D) ⋯ ⋯ chi (fun n => W (↑n / X)) h‖ ^ 2 ≤
Cmean * X ^ (2 + theta + 2 * epsilon)V:𝓢(ℝ, ℂ)hV:∀ (x : ℝ), ‖V x‖ ≤ 1hVs:Function.support ⇑V ⊆ Set.Icc (1 / 2) 1hV0:V 0 = 0hVhat:paperRadialFourier (⇑V) 0 ≠ 0Cerror:ℝhCerror:0 < Cerrorherror:∀ {q : ℕ} (F : Finset (Ideal ActualEisensteinCubic.O)),
(∀ I ∈ F, I ≠ ⊥) →
∀ (χ : DirichletCharacter ℂ q) (W : ℕ → ℂ) (V : 𝓢(ℝ, ℂ)) (Y lengthScale G : ℝ),
0 < Y →
1 ≤ lengthScale →
0 ≤ G →
(∀ (n : ℕ), ‖W n‖ ≤ G) →
(∀ I ∈ F, W (Ideal.absNorm I) ≠ 0 → ↑(Ideal.absNorm I) ≤ lengthScale) →
‖∑ I ∈ F,
baseChangeWeight χ I * W (Ideal.absNorm I) *
maskedPrincipalRemainder (fun i => ↑i) (idealSupport F I) (⇑V) Y‖ ≤
Cerror * G * pvControl V * lengthScale ^ (1 + epsilon)hWcompact:HasCompactSupport WWs:𝓢(ℝ, ℂ) := hWcompact.toSchwartzMap hWG:ℝ := (SchwartzMap.seminorm ℝ 0 0) WssupportBound:ℝ := max 1 bError:ℝ := Cerror * G * pvControl V * supportBound ^ (1 + epsilon)Average:ℝ := √(768 * Cmean)alpha:ℝ := (1 + theta) / 6targetExponent:ℝ := (11 + 5 * theta) / 12 + epsilonaverageExponent:ℝ := alpha + targetExponentC:ℝ := (Average + Error) / ‖paperRadialFourier (⇑V) 0‖hG:0 ≤ GhSupportBound:1 ≤ supportBoundhError:0 ≤ ErrorhAverage:0 < Averagehhat:0 < ‖paperRadialFourier (⇑V) 0‖⊢ 0 ≤ (1 + theta) / 6
linarith q:ℕchi:DirichletCharacter ℂ qS:Finset (Ideal ActualEisensteinCubic.O)hbad:CanonicalQuadraticSieve.fixedBadPrimes ⊆ SW:ℝ → ℂa:ℝb:ℝ_ha:0 < ahsupport:Function.support W ⊆ Set.Icc a bhW:ContDiff ℝ ∞ Wtheta:ℝepsilon:ℝCmean:ℝhtheta:0 ≤ thetahepsilon:0 < epsilonhCmean:0 < Cmeanhmean:∀ (D : ℕ) (X : ℝ),
1 ≤ X →
b * X ≤ ↑D →
∀ (T : Finset ActualEisensteinCubic.O),
(∀ h ∈ T, ↑(Ideal.absNorm (Ideal.span {h})) ≤ X ^ (1 + theta)) →
(∀ h ∈ T, h ≠ 0) →
∑ h ∈ T, ‖idealRowSum (outsideIdealsUpTo S D) ⋯ ⋯ chi (fun n => W (↑n / X)) h‖ ^ 2 ≤
Cmean * X ^ (2 + theta + 2 * epsilon)V:𝓢(ℝ, ℂ)hV:∀ (x : ℝ), ‖V x‖ ≤ 1hVs:Function.support ⇑V ⊆ Set.Icc (1 / 2) 1hV0:V 0 = 0hVhat:paperRadialFourier (⇑V) 0 ≠ 0Cerror:ℝhCerror:0 < Cerrorherror:∀ {q : ℕ} (F : Finset (Ideal ActualEisensteinCubic.O)),
(∀ I ∈ F, I ≠ ⊥) →
∀ (χ : DirichletCharacter ℂ q) (W : ℕ → ℂ) (V : 𝓢(ℝ, ℂ)) (Y lengthScale G : ℝ),
0 < Y →
1 ≤ lengthScale →
0 ≤ G →
(∀ (n : ℕ), ‖W n‖ ≤ G) →
(∀ I ∈ F, W (Ideal.absNorm I) ≠ 0 → ↑(Ideal.absNorm I) ≤ lengthScale) →
‖∑ I ∈ F,
baseChangeWeight χ I * W (Ideal.absNorm I) *
maskedPrincipalRemainder (fun i => ↑i) (idealSupport F I) (⇑V) Y‖ ≤
Cerror * G * pvControl V * lengthScale ^ (1 + epsilon)hWcompact:HasCompactSupport WWs:𝓢(ℝ, ℂ) := hWcompact.toSchwartzMap hWG:ℝ := (SchwartzMap.seminorm ℝ 0 0) WssupportBound:ℝ := max 1 bError:ℝ := Cerror * G * pvControl V * supportBound ^ (1 + epsilon)Average:ℝ := √(768 * Cmean)alpha:ℝ := (1 + theta) / 6targetExponent:ℝ := (11 + 5 * theta) / 12 + epsilonaverageExponent:ℝ := alpha + targetExponentC:ℝ := (Average + Error) / ‖paperRadialFourier (⇑V) 0‖hG:0 ≤ GhSupportBound:1 ≤ supportBoundhError:0 ≤ ErrorhAverage:0 < Averagehhat:0 < ‖paperRadialFourier (⇑V) 0‖halpha:0 ≤ alpha⊢ ∃ C,
0 < C ∧
∀ (D : ℕ) (X : ℝ),
1 ≤ X →
b * X ≤ ↑D →
‖∑ n ∈ outsideIdealsUpTo S D, baseChangeWeight chi n * W (↑(Ideal.absNorm n) / X) * totientDensity n‖ ≤
C * X ^ ((11 + 5 * theta) / 12 + epsilon)
refine ⟨C, div_pos (by q:ℕchi:DirichletCharacter ℂ qS:Finset (Ideal ActualEisensteinCubic.O)hbad:CanonicalQuadraticSieve.fixedBadPrimes ⊆ SW:ℝ → ℂa:ℝb:ℝ_ha:0 < ahsupport:Function.support W ⊆ Set.Icc a bhW:ContDiff ℝ ∞ Wtheta:ℝepsilon:ℝCmean:ℝhtheta:0 ≤ thetahepsilon:0 < epsilonhCmean:0 < Cmeanhmean:∀ (D : ℕ) (X : ℝ),
1 ≤ X →
b * X ≤ ↑D →
∀ (T : Finset ActualEisensteinCubic.O),
(∀ h ∈ T, ↑(Ideal.absNorm (Ideal.span {h})) ≤ X ^ (1 + theta)) →
(∀ h ∈ T, h ≠ 0) →
∑ h ∈ T, ‖idealRowSum (outsideIdealsUpTo S D) ⋯ ⋯ chi (fun n => W (↑n / X)) h‖ ^ 2 ≤
Cmean * X ^ (2 + theta + 2 * epsilon)V:𝓢(ℝ, ℂ)hV:∀ (x : ℝ), ‖V x‖ ≤ 1hVs:Function.support ⇑V ⊆ Set.Icc (1 / 2) 1hV0:V 0 = 0hVhat:paperRadialFourier (⇑V) 0 ≠ 0Cerror:ℝhCerror:0 < Cerrorherror:∀ {q : ℕ} (F : Finset (Ideal ActualEisensteinCubic.O)),
(∀ I ∈ F, I ≠ ⊥) →
∀ (χ : DirichletCharacter ℂ q) (W : ℕ → ℂ) (V : 𝓢(ℝ, ℂ)) (Y lengthScale G : ℝ),
0 < Y →
1 ≤ lengthScale →
0 ≤ G →
(∀ (n : ℕ), ‖W n‖ ≤ G) →
(∀ I ∈ F, W (Ideal.absNorm I) ≠ 0 → ↑(Ideal.absNorm I) ≤ lengthScale) →
‖∑ I ∈ F,
baseChangeWeight χ I * W (Ideal.absNorm I) *
maskedPrincipalRemainder (fun i => ↑i) (idealSupport F I) (⇑V) Y‖ ≤
Cerror * G * pvControl V * lengthScale ^ (1 + epsilon)hWcompact:HasCompactSupport WWs:𝓢(ℝ, ℂ) := hWcompact.toSchwartzMap hWG:ℝ := (SchwartzMap.seminorm ℝ 0 0) WssupportBound:ℝ := max 1 bError:ℝ := Cerror * G * pvControl V * supportBound ^ (1 + epsilon)Average:ℝ := √(768 * Cmean)alpha:ℝ := (1 + theta) / 6targetExponent:ℝ := (11 + 5 * theta) / 12 + epsilonaverageExponent:ℝ := alpha + targetExponentC:ℝ := (Average + Error) / ‖paperRadialFourier (⇑V) 0‖hG:0 ≤ GhSupportBound:1 ≤ supportBoundhError:0 ≤ ErrorhAverage:0 < Averagehhat:0 < ‖paperRadialFourier (⇑V) 0‖halpha:0 ≤ alpha⊢ 0 < Average + Error linarith All goals completed! 🐙) hhat, ?_⟩
intro D X hX hD q:ℕchi:DirichletCharacter ℂ qS:Finset (Ideal ActualEisensteinCubic.O)hbad:CanonicalQuadraticSieve.fixedBadPrimes ⊆ SW:ℝ → ℂa:ℝb:ℝ_ha:0 < ahsupport:Function.support W ⊆ Set.Icc a bhW:ContDiff ℝ ∞ Wtheta:ℝepsilon:ℝCmean:ℝhtheta:0 ≤ thetahepsilon:0 < epsilonhCmean:0 < Cmeanhmean:∀ (D : ℕ) (X : ℝ),
1 ≤ X →
b * X ≤ ↑D →
∀ (T : Finset ActualEisensteinCubic.O),
(∀ h ∈ T, ↑(Ideal.absNorm (Ideal.span {h})) ≤ X ^ (1 + theta)) →
(∀ h ∈ T, h ≠ 0) →
∑ h ∈ T, ‖idealRowSum (outsideIdealsUpTo S D) ⋯ ⋯ chi (fun n => W (↑n / X)) h‖ ^ 2 ≤
Cmean * X ^ (2 + theta + 2 * epsilon)V:𝓢(ℝ, ℂ)hV:∀ (x : ℝ), ‖V x‖ ≤ 1hVs:Function.support ⇑V ⊆ Set.Icc (1 / 2) 1hV0:V 0 = 0hVhat:paperRadialFourier (⇑V) 0 ≠ 0Cerror:ℝhCerror:0 < Cerrorherror:∀ {q : ℕ} (F : Finset (Ideal ActualEisensteinCubic.O)),
(∀ I ∈ F, I ≠ ⊥) →
∀ (χ : DirichletCharacter ℂ q) (W : ℕ → ℂ) (V : 𝓢(ℝ, ℂ)) (Y lengthScale G : ℝ),
0 < Y →
1 ≤ lengthScale →
0 ≤ G →
(∀ (n : ℕ), ‖W n‖ ≤ G) →
(∀ I ∈ F, W (Ideal.absNorm I) ≠ 0 → ↑(Ideal.absNorm I) ≤ lengthScale) →
‖∑ I ∈ F,
baseChangeWeight χ I * W (Ideal.absNorm I) *
maskedPrincipalRemainder (fun i => ↑i) (idealSupport F I) (⇑V) Y‖ ≤
Cerror * G * pvControl V * lengthScale ^ (1 + epsilon)hWcompact:HasCompactSupport WWs:𝓢(ℝ, ℂ) := hWcompact.toSchwartzMap hWG:ℝ := (SchwartzMap.seminorm ℝ 0 0) WssupportBound:ℝ := max 1 bError:ℝ := Cerror * G * pvControl V * supportBound ^ (1 + epsilon)Average:ℝ := √(768 * Cmean)alpha:ℝ := (1 + theta) / 6targetExponent:ℝ := (11 + 5 * theta) / 12 + epsilonaverageExponent:ℝ := alpha + targetExponentC:ℝ := (Average + Error) / ‖paperRadialFourier (⇑V) 0‖hG:0 ≤ GhSupportBound:1 ≤ supportBoundhError:0 ≤ ErrorhAverage:0 < Averagehhat:0 < ‖paperRadialFourier (⇑V) 0‖halpha:0 ≤ alphaD:ℕX:ℝhX:1 ≤ XhD:b * X ≤ ↑D⊢ ‖∑ n ∈ outsideIdealsUpTo S D, baseChangeWeight chi n * W (↑(Ideal.absNorm n) / X) * totientDensity n‖ ≤
C * X ^ ((11 + 5 * theta) / 12 + epsilon)
have hXpos : 0 < X := by q:ℕchi:DirichletCharacter ℂ qS:Finset (Ideal ActualEisensteinCubic.O)hbad:CanonicalQuadraticSieve.fixedBadPrimes ⊆ SW:ℝ → ℂa:ℝb:ℝ_ha:0 < ahsupport:Function.support W ⊆ Set.Icc a bhW:ContDiff ℝ ∞ Wtheta:ℝepsilon:ℝCmean:ℝhtheta:0 ≤ thetahepsilon:0 < epsilonhCmean:0 < Cmeanhmean:∀ (D : ℕ) (X : ℝ),
1 ≤ X →
b * X ≤ ↑D →
∀ (T : Finset ActualEisensteinCubic.O),
(∀ h ∈ T, ↑(Ideal.absNorm (Ideal.span {h})) ≤ X ^ (1 + theta)) →
(∀ h ∈ T, h ≠ 0) →
∑ h ∈ T, ‖idealRowSum (outsideIdealsUpTo S D) ⋯ ⋯ chi (fun n => W (↑n / X)) h‖ ^ 2 ≤
Cmean * X ^ (2 + theta + 2 * epsilon)⊢ ∃ C,
0 < C ∧
∀ (D : ℕ) (X : ℝ),
1 ≤ X →
b * X ≤ ↑D →
‖∑ n ∈ outsideIdealsUpTo S D, baseChangeWeight chi n * W (↑(Ideal.absNorm n) / X) * totientDensity n‖ ≤
C * X ^ ((11 + 5 * theta) / 12 + epsilon) linarith q:ℕchi:DirichletCharacter ℂ qS:Finset (Ideal ActualEisensteinCubic.O)hbad:CanonicalQuadraticSieve.fixedBadPrimes ⊆ SW:ℝ → ℂa:ℝb:ℝ_ha:0 < ahsupport:Function.support W ⊆ Set.Icc a bhW:ContDiff ℝ ∞ Wtheta:ℝepsilon:ℝCmean:ℝhtheta:0 ≤ thetahepsilon:0 < epsilonhCmean:0 < Cmeanhmean:∀ (D : ℕ) (X : ℝ),
1 ≤ X →
b * X ≤ ↑D →
∀ (T : Finset ActualEisensteinCubic.O),
(∀ h ∈ T, ↑(Ideal.absNorm (Ideal.span {h})) ≤ X ^ (1 + theta)) →
(∀ h ∈ T, h ≠ 0) →
∑ h ∈ T, ‖idealRowSum (outsideIdealsUpTo S D) ⋯ ⋯ chi (fun n => W (↑n / X)) h‖ ^ 2 ≤
Cmean * X ^ (2 + theta + 2 * epsilon)V:𝓢(ℝ, ℂ)hV:∀ (x : ℝ), ‖V x‖ ≤ 1hVs:Function.support ⇑V ⊆ Set.Icc (1 / 2) 1hV0:V 0 = 0hVhat:paperRadialFourier (⇑V) 0 ≠ 0Cerror:ℝhCerror:0 < Cerrorherror:∀ {q : ℕ} (F : Finset (Ideal ActualEisensteinCubic.O)),
(∀ I ∈ F, I ≠ ⊥) →
∀ (χ : DirichletCharacter ℂ q) (W : ℕ → ℂ) (V : 𝓢(ℝ, ℂ)) (Y lengthScale G : ℝ),
0 < Y →
1 ≤ lengthScale →
0 ≤ G →
(∀ (n : ℕ), ‖W n‖ ≤ G) →
(∀ I ∈ F, W (Ideal.absNorm I) ≠ 0 → ↑(Ideal.absNorm I) ≤ lengthScale) →
‖∑ I ∈ F,
baseChangeWeight χ I * W (Ideal.absNorm I) *
maskedPrincipalRemainder (fun i => ↑i) (idealSupport F I) (⇑V) Y‖ ≤
Cerror * G * pvControl V * lengthScale ^ (1 + epsilon)hWcompact:HasCompactSupport WWs:𝓢(ℝ, ℂ) := hWcompact.toSchwartzMap hWG:ℝ := (SchwartzMap.seminorm ℝ 0 0) WssupportBound:ℝ := max 1 bError:ℝ := Cerror * G * pvControl V * supportBound ^ (1 + epsilon)Average:ℝ := √(768 * Cmean)alpha:ℝ := (1 + theta) / 6targetExponent:ℝ := (11 + 5 * theta) / 12 + epsilonaverageExponent:ℝ := alpha + targetExponentC:ℝ := (Average + Error) / ‖paperRadialFourier (⇑V) 0‖hG:0 ≤ GhSupportBound:1 ≤ supportBoundhError:0 ≤ ErrorhAverage:0 < Averagehhat:0 < ‖paperRadialFourier (⇑V) 0‖halpha:0 ≤ alphaD:ℕX:ℝhX:1 ≤ XhD:b * X ≤ ↑DhXpos:0 < X⊢ ‖∑ n ∈ outsideIdealsUpTo S D, baseChangeWeight chi n * W (↑(Ideal.absNorm n) / X) * totientDensity n‖ ≤
C * X ^ ((11 + 5 * theta) / 12 + epsilon)
let B : ℝ := X ^ alpha q:ℕchi:DirichletCharacter ℂ qS:Finset (Ideal ActualEisensteinCubic.O)hbad:CanonicalQuadraticSieve.fixedBadPrimes ⊆ SW:ℝ → ℂa:ℝb:ℝ_ha:0 < ahsupport:Function.support W ⊆ Set.Icc a bhW:ContDiff ℝ ∞ Wtheta:ℝepsilon:ℝCmean:ℝhtheta:0 ≤ thetahepsilon:0 < epsilonhCmean:0 < Cmeanhmean:∀ (D : ℕ) (X : ℝ),
1 ≤ X →
b * X ≤ ↑D →
∀ (T : Finset ActualEisensteinCubic.O),
(∀ h ∈ T, ↑(Ideal.absNorm (Ideal.span {h})) ≤ X ^ (1 + theta)) →
(∀ h ∈ T, h ≠ 0) →
∑ h ∈ T, ‖idealRowSum (outsideIdealsUpTo S D) ⋯ ⋯ chi (fun n => W (↑n / X)) h‖ ^ 2 ≤
Cmean * X ^ (2 + theta + 2 * epsilon)V:𝓢(ℝ, ℂ)hV:∀ (x : ℝ), ‖V x‖ ≤ 1hVs:Function.support ⇑V ⊆ Set.Icc (1 / 2) 1hV0:V 0 = 0hVhat:paperRadialFourier (⇑V) 0 ≠ 0Cerror:ℝhCerror:0 < Cerrorherror:∀ {q : ℕ} (F : Finset (Ideal ActualEisensteinCubic.O)),
(∀ I ∈ F, I ≠ ⊥) →
∀ (χ : DirichletCharacter ℂ q) (W : ℕ → ℂ) (V : 𝓢(ℝ, ℂ)) (Y lengthScale G : ℝ),
0 < Y →
1 ≤ lengthScale →
0 ≤ G →
(∀ (n : ℕ), ‖W n‖ ≤ G) →
(∀ I ∈ F, W (Ideal.absNorm I) ≠ 0 → ↑(Ideal.absNorm I) ≤ lengthScale) →
‖∑ I ∈ F,
baseChangeWeight χ I * W (Ideal.absNorm I) *
maskedPrincipalRemainder (fun i => ↑i) (idealSupport F I) (⇑V) Y‖ ≤
Cerror * G * pvControl V * lengthScale ^ (1 + epsilon)hWcompact:HasCompactSupport WWs:𝓢(ℝ, ℂ) := hWcompact.toSchwartzMap hWG:ℝ := (SchwartzMap.seminorm ℝ 0 0) WssupportBound:ℝ := max 1 bError:ℝ := Cerror * G * pvControl V * supportBound ^ (1 + epsilon)Average:ℝ := √(768 * Cmean)alpha:ℝ := (1 + theta) / 6targetExponent:ℝ := (11 + 5 * theta) / 12 + epsilonaverageExponent:ℝ := alpha + targetExponentC:ℝ := (Average + Error) / ‖paperRadialFourier (⇑V) 0‖hG:0 ≤ GhSupportBound:1 ≤ supportBoundhError:0 ≤ ErrorhAverage:0 < Averagehhat:0 < ‖paperRadialFourier (⇑V) 0‖halpha:0 ≤ alphaD:ℕX:ℝhX:1 ≤ XhD:b * X ≤ ↑DhXpos:0 < XB:ℝ := X ^ alpha⊢ ‖∑ n ∈ outsideIdealsUpTo S D, baseChangeWeight chi n * W (↑(Ideal.absNorm n) / X) * totientDensity n‖ ≤
C * X ^ ((11 + 5 * theta) / 12 + epsilon)
have hB : 1 ≤ B := Real.one_le_rpow hX halpha q:ℕchi:DirichletCharacter ℂ qS:Finset (Ideal ActualEisensteinCubic.O)hbad:CanonicalQuadraticSieve.fixedBadPrimes ⊆ SW:ℝ → ℂa:ℝb:ℝ_ha:0 < ahsupport:Function.support W ⊆ Set.Icc a bhW:ContDiff ℝ ∞ Wtheta:ℝepsilon:ℝCmean:ℝhtheta:0 ≤ thetahepsilon:0 < epsilonhCmean:0 < Cmeanhmean:∀ (D : ℕ) (X : ℝ),
1 ≤ X →
b * X ≤ ↑D →
∀ (T : Finset ActualEisensteinCubic.O),
(∀ h ∈ T, ↑(Ideal.absNorm (Ideal.span {h})) ≤ X ^ (1 + theta)) →
(∀ h ∈ T, h ≠ 0) →
∑ h ∈ T, ‖idealRowSum (outsideIdealsUpTo S D) ⋯ ⋯ chi (fun n => W (↑n / X)) h‖ ^ 2 ≤
Cmean * X ^ (2 + theta + 2 * epsilon)V:𝓢(ℝ, ℂ)hV:∀ (x : ℝ), ‖V x‖ ≤ 1hVs:Function.support ⇑V ⊆ Set.Icc (1 / 2) 1hV0:V 0 = 0hVhat:paperRadialFourier (⇑V) 0 ≠ 0Cerror:ℝhCerror:0 < Cerrorherror:∀ {q : ℕ} (F : Finset (Ideal ActualEisensteinCubic.O)),
(∀ I ∈ F, I ≠ ⊥) →
∀ (χ : DirichletCharacter ℂ q) (W : ℕ → ℂ) (V : 𝓢(ℝ, ℂ)) (Y lengthScale G : ℝ),
0 < Y →
1 ≤ lengthScale →
0 ≤ G →
(∀ (n : ℕ), ‖W n‖ ≤ G) →
(∀ I ∈ F, W (Ideal.absNorm I) ≠ 0 → ↑(Ideal.absNorm I) ≤ lengthScale) →
‖∑ I ∈ F,
baseChangeWeight χ I * W (Ideal.absNorm I) *
maskedPrincipalRemainder (fun i => ↑i) (idealSupport F I) (⇑V) Y‖ ≤
Cerror * G * pvControl V * lengthScale ^ (1 + epsilon)hWcompact:HasCompactSupport WWs:𝓢(ℝ, ℂ) := hWcompact.toSchwartzMap hWG:ℝ := (SchwartzMap.seminorm ℝ 0 0) WssupportBound:ℝ := max 1 bError:ℝ := Cerror * G * pvControl V * supportBound ^ (1 + epsilon)Average:ℝ := √(768 * Cmean)alpha:ℝ := (1 + theta) / 6targetExponent:ℝ := (11 + 5 * theta) / 12 + epsilonaverageExponent:ℝ := alpha + targetExponentC:ℝ := (Average + Error) / ‖paperRadialFourier (⇑V) 0‖hG:0 ≤ GhSupportBound:1 ≤ supportBoundhError:0 ≤ ErrorhAverage:0 < Averagehhat:0 < ‖paperRadialFourier (⇑V) 0‖halpha:0 ≤ alphaD:ℕX:ℝhX:1 ≤ XhD:b * X ≤ ↑DhXpos:0 < XB:ℝ := X ^ alphahB:1 ≤ B⊢ ‖∑ n ∈ outsideIdealsUpTo S D, baseChangeWeight chi n * W (↑(Ideal.absNorm n) / X) * totientDensity n‖ ≤
C * X ^ ((11 + 5 * theta) / 12 + epsilon)
have hBpos : 0 < B := by q:ℕchi:DirichletCharacter ℂ qS:Finset (Ideal ActualEisensteinCubic.O)hbad:CanonicalQuadraticSieve.fixedBadPrimes ⊆ SW:ℝ → ℂa:ℝb:ℝ_ha:0 < ahsupport:Function.support W ⊆ Set.Icc a bhW:ContDiff ℝ ∞ Wtheta:ℝepsilon:ℝCmean:ℝhtheta:0 ≤ thetahepsilon:0 < epsilonhCmean:0 < Cmeanhmean:∀ (D : ℕ) (X : ℝ),
1 ≤ X →
b * X ≤ ↑D →
∀ (T : Finset ActualEisensteinCubic.O),
(∀ h ∈ T, ↑(Ideal.absNorm (Ideal.span {h})) ≤ X ^ (1 + theta)) →
(∀ h ∈ T, h ≠ 0) →
∑ h ∈ T, ‖idealRowSum (outsideIdealsUpTo S D) ⋯ ⋯ chi (fun n => W (↑n / X)) h‖ ^ 2 ≤
Cmean * X ^ (2 + theta + 2 * epsilon)⊢ ∃ C,
0 < C ∧
∀ (D : ℕ) (X : ℝ),
1 ≤ X →
b * X ≤ ↑D →
‖∑ n ∈ outsideIdealsUpTo S D, baseChangeWeight chi n * W (↑(Ideal.absNorm n) / X) * totientDensity n‖ ≤
C * X ^ ((11 + 5 * theta) / 12 + epsilon) linarith q:ℕchi:DirichletCharacter ℂ qS:Finset (Ideal ActualEisensteinCubic.O)hbad:CanonicalQuadraticSieve.fixedBadPrimes ⊆ SW:ℝ → ℂa:ℝb:ℝ_ha:0 < ahsupport:Function.support W ⊆ Set.Icc a bhW:ContDiff ℝ ∞ Wtheta:ℝepsilon:ℝCmean:ℝhtheta:0 ≤ thetahepsilon:0 < epsilonhCmean:0 < Cmeanhmean:∀ (D : ℕ) (X : ℝ),
1 ≤ X →
b * X ≤ ↑D →
∀ (T : Finset ActualEisensteinCubic.O),
(∀ h ∈ T, ↑(Ideal.absNorm (Ideal.span {h})) ≤ X ^ (1 + theta)) →
(∀ h ∈ T, h ≠ 0) →
∑ h ∈ T, ‖idealRowSum (outsideIdealsUpTo S D) ⋯ ⋯ chi (fun n => W (↑n / X)) h‖ ^ 2 ≤
Cmean * X ^ (2 + theta + 2 * epsilon)V:𝓢(ℝ, ℂ)hV:∀ (x : ℝ), ‖V x‖ ≤ 1hVs:Function.support ⇑V ⊆ Set.Icc (1 / 2) 1hV0:V 0 = 0hVhat:paperRadialFourier (⇑V) 0 ≠ 0Cerror:ℝhCerror:0 < Cerrorherror:∀ {q : ℕ} (F : Finset (Ideal ActualEisensteinCubic.O)),
(∀ I ∈ F, I ≠ ⊥) →
∀ (χ : DirichletCharacter ℂ q) (W : ℕ → ℂ) (V : 𝓢(ℝ, ℂ)) (Y lengthScale G : ℝ),
0 < Y →
1 ≤ lengthScale →
0 ≤ G →
(∀ (n : ℕ), ‖W n‖ ≤ G) →
(∀ I ∈ F, W (Ideal.absNorm I) ≠ 0 → ↑(Ideal.absNorm I) ≤ lengthScale) →
‖∑ I ∈ F,
baseChangeWeight χ I * W (Ideal.absNorm I) *
maskedPrincipalRemainder (fun i => ↑i) (idealSupport F I) (⇑V) Y‖ ≤
Cerror * G * pvControl V * lengthScale ^ (1 + epsilon)hWcompact:HasCompactSupport WWs:𝓢(ℝ, ℂ) := hWcompact.toSchwartzMap hWG:ℝ := (SchwartzMap.seminorm ℝ 0 0) WssupportBound:ℝ := max 1 bError:ℝ := Cerror * G * pvControl V * supportBound ^ (1 + epsilon)Average:ℝ := √(768 * Cmean)alpha:ℝ := (1 + theta) / 6targetExponent:ℝ := (11 + 5 * theta) / 12 + epsilonaverageExponent:ℝ := alpha + targetExponentC:ℝ := (Average + Error) / ‖paperRadialFourier (⇑V) 0‖hG:0 ≤ GhSupportBound:1 ≤ supportBoundhError:0 ≤ ErrorhAverage:0 < Averagehhat:0 < ‖paperRadialFourier (⇑V) 0‖halpha:0 ≤ alphaD:ℕX:ℝhX:1 ≤ XhD:b * X ≤ ↑DhXpos:0 < XB:ℝ := X ^ alphahB:1 ≤ BhBpos:0 < B⊢ ‖∑ n ∈ outsideIdealsUpTo S D, baseChangeWeight chi n * W (↑(Ideal.absNorm n) / X) * totientDensity n‖ ≤
C * X ^ ((11 + 5 * theta) / 12 + epsilon)
let F := outsideIdealsUpTo S D q:ℕchi:DirichletCharacter ℂ qS:Finset (Ideal ActualEisensteinCubic.O)hbad:CanonicalQuadraticSieve.fixedBadPrimes ⊆ SW:ℝ → ℂa:ℝb:ℝ_ha:0 < ahsupport:Function.support W ⊆ Set.Icc a bhW:ContDiff ℝ ∞ Wtheta:ℝepsilon:ℝCmean:ℝhtheta:0 ≤ thetahepsilon:0 < epsilonhCmean:0 < Cmeanhmean:∀ (D : ℕ) (X : ℝ),
1 ≤ X →
b * X ≤ ↑D →
∀ (T : Finset ActualEisensteinCubic.O),
(∀ h ∈ T, ↑(Ideal.absNorm (Ideal.span {h})) ≤ X ^ (1 + theta)) →
(∀ h ∈ T, h ≠ 0) →
∑ h ∈ T, ‖idealRowSum (outsideIdealsUpTo S D) ⋯ ⋯ chi (fun n => W (↑n / X)) h‖ ^ 2 ≤
Cmean * X ^ (2 + theta + 2 * epsilon)V:𝓢(ℝ, ℂ)hV:∀ (x : ℝ), ‖V x‖ ≤ 1hVs:Function.support ⇑V ⊆ Set.Icc (1 / 2) 1hV0:V 0 = 0hVhat:paperRadialFourier (⇑V) 0 ≠ 0Cerror:ℝhCerror:0 < Cerrorherror:∀ {q : ℕ} (F : Finset (Ideal ActualEisensteinCubic.O)),
(∀ I ∈ F, I ≠ ⊥) →
∀ (χ : DirichletCharacter ℂ q) (W : ℕ → ℂ) (V : 𝓢(ℝ, ℂ)) (Y lengthScale G : ℝ),
0 < Y →
1 ≤ lengthScale →
0 ≤ G →
(∀ (n : ℕ), ‖W n‖ ≤ G) →
(∀ I ∈ F, W (Ideal.absNorm I) ≠ 0 → ↑(Ideal.absNorm I) ≤ lengthScale) →
‖∑ I ∈ F,
baseChangeWeight χ I * W (Ideal.absNorm I) *
maskedPrincipalRemainder (fun i => ↑i) (idealSupport F I) (⇑V) Y‖ ≤
Cerror * G * pvControl V * lengthScale ^ (1 + epsilon)hWcompact:HasCompactSupport WWs:𝓢(ℝ, ℂ) := hWcompact.toSchwartzMap hWG:ℝ := (SchwartzMap.seminorm ℝ 0 0) WssupportBound:ℝ := max 1 bError:ℝ := Cerror * G * pvControl V * supportBound ^ (1 + epsilon)Average:ℝ := √(768 * Cmean)alpha:ℝ := (1 + theta) / 6targetExponent:ℝ := (11 + 5 * theta) / 12 + epsilonaverageExponent:ℝ := alpha + targetExponentC:ℝ := (Average + Error) / ‖paperRadialFourier (⇑V) 0‖hG:0 ≤ GhSupportBound:1 ≤ supportBoundhError:0 ≤ ErrorhAverage:0 < Averagehhat:0 < ‖paperRadialFourier (⇑V) 0‖halpha:0 ≤ alphaD:ℕX:ℝhX:1 ≤ XhD:b * X ≤ ↑DhXpos:0 < XB:ℝ := X ^ alphahB:1 ≤ BhBpos:0 < BF:Finset (Ideal ConcretePrimeRowBridge.O) := outsideIdealsUpTo S D⊢ ‖∑ n ∈ outsideIdealsUpTo S D, baseChangeWeight chi n * W (↑(Ideal.absNorm n) / X) * totientDensity n‖ ≤
C * X ^ ((11 + 5 * theta) / 12 + epsilon)
let A : OAI.ActualEisensteinCubic.O → ℂ :=
idealRowSum F (outsideIdealsUpTo_ne_bot S D)
(outside_good S D hbad) chi (fun n ↦ W (n / X)) q:ℕchi:DirichletCharacter ℂ qS:Finset (Ideal ActualEisensteinCubic.O)hbad:CanonicalQuadraticSieve.fixedBadPrimes ⊆ SW:ℝ → ℂa:ℝb:ℝ_ha:0 < ahsupport:Function.support W ⊆ Set.Icc a bhW:ContDiff ℝ ∞ Wtheta:ℝepsilon:ℝCmean:ℝhtheta:0 ≤ thetahepsilon:0 < epsilonhCmean:0 < Cmeanhmean:∀ (D : ℕ) (X : ℝ),
1 ≤ X →
b * X ≤ ↑D →
∀ (T : Finset ActualEisensteinCubic.O),
(∀ h ∈ T, ↑(Ideal.absNorm (Ideal.span {h})) ≤ X ^ (1 + theta)) →
(∀ h ∈ T, h ≠ 0) →
∑ h ∈ T, ‖idealRowSum (outsideIdealsUpTo S D) ⋯ ⋯ chi (fun n => W (↑n / X)) h‖ ^ 2 ≤
Cmean * X ^ (2 + theta + 2 * epsilon)V:𝓢(ℝ, ℂ)hV:∀ (x : ℝ), ‖V x‖ ≤ 1hVs:Function.support ⇑V ⊆ Set.Icc (1 / 2) 1hV0:V 0 = 0hVhat:paperRadialFourier (⇑V) 0 ≠ 0Cerror:ℝhCerror:0 < Cerrorherror:∀ {q : ℕ} (F : Finset (Ideal ActualEisensteinCubic.O)),
(∀ I ∈ F, I ≠ ⊥) →
∀ (χ : DirichletCharacter ℂ q) (W : ℕ → ℂ) (V : 𝓢(ℝ, ℂ)) (Y lengthScale G : ℝ),
0 < Y →
1 ≤ lengthScale →
0 ≤ G →
(∀ (n : ℕ), ‖W n‖ ≤ G) →
(∀ I ∈ F, W (Ideal.absNorm I) ≠ 0 → ↑(Ideal.absNorm I) ≤ lengthScale) →
‖∑ I ∈ F,
baseChangeWeight χ I * W (Ideal.absNorm I) *
maskedPrincipalRemainder (fun i => ↑i) (idealSupport F I) (⇑V) Y‖ ≤
Cerror * G * pvControl V * lengthScale ^ (1 + epsilon)hWcompact:HasCompactSupport WWs:𝓢(ℝ, ℂ) := hWcompact.toSchwartzMap hWG:ℝ := (SchwartzMap.seminorm ℝ 0 0) WssupportBound:ℝ := max 1 bError:ℝ := Cerror * G * pvControl V * supportBound ^ (1 + epsilon)Average:ℝ := √(768 * Cmean)alpha:ℝ := (1 + theta) / 6targetExponent:ℝ := (11 + 5 * theta) / 12 + epsilonaverageExponent:ℝ := alpha + targetExponentC:ℝ := (Average + Error) / ‖paperRadialFourier (⇑V) 0‖hG:0 ≤ GhSupportBound:1 ≤ supportBoundhError:0 ≤ ErrorhAverage:0 < Averagehhat:0 < ‖paperRadialFourier (⇑V) 0‖halpha:0 ≤ alphaD:ℕX:ℝhX:1 ≤ XhD:b * X ≤ ↑DhXpos:0 < XB:ℝ := X ^ alphahB:1 ≤ BhBpos:0 < BF:Finset (Ideal ConcretePrimeRowBridge.O) := outsideIdealsUpTo S DA:ActualEisensteinCubic.O → ℂ := idealRowSum F ⋯ ⋯ chi fun n => W (↑n / X)⊢ ‖∑ n ∈ outsideIdealsUpTo S D, baseChangeWeight chi n * W (↑(Ideal.absNorm n) / X) * totientDensity n‖ ≤
C * X ^ ((11 + 5 * theta) / 12 + epsilon)
have hBpower : B ^ 6 = X ^ (1 + theta : ℝ) := by q:ℕchi:DirichletCharacter ℂ qS:Finset (Ideal ActualEisensteinCubic.O)hbad:CanonicalQuadraticSieve.fixedBadPrimes ⊆ SW:ℝ → ℂa:ℝb:ℝ_ha:0 < ahsupport:Function.support W ⊆ Set.Icc a bhW:ContDiff ℝ ∞ Wtheta:ℝepsilon:ℝCmean:ℝhtheta:0 ≤ thetahepsilon:0 < epsilonhCmean:0 < Cmeanhmean:∀ (D : ℕ) (X : ℝ),
1 ≤ X →
b * X ≤ ↑D →
∀ (T : Finset ActualEisensteinCubic.O),
(∀ h ∈ T, ↑(Ideal.absNorm (Ideal.span {h})) ≤ X ^ (1 + theta)) →
(∀ h ∈ T, h ≠ 0) →
∑ h ∈ T, ‖idealRowSum (outsideIdealsUpTo S D) ⋯ ⋯ chi (fun n => W (↑n / X)) h‖ ^ 2 ≤
Cmean * X ^ (2 + theta + 2 * epsilon)⊢ ∃ C,
0 < C ∧
∀ (D : ℕ) (X : ℝ),
1 ≤ X →
b * X ≤ ↑D →
‖∑ n ∈ outsideIdealsUpTo S D, baseChangeWeight chi n * W (↑(Ideal.absNorm n) / X) * totientDensity n‖ ≤
C * X ^ ((11 + 5 * theta) / 12 + epsilon)
dsimp only [B, alpha] q:ℕchi:DirichletCharacter ℂ qS:Finset (Ideal ActualEisensteinCubic.O)hbad:CanonicalQuadraticSieve.fixedBadPrimes ⊆ SW:ℝ → ℂa:ℝb:ℝ_ha:0 < ahsupport:Function.support W ⊆ Set.Icc a bhW:ContDiff ℝ ∞ Wtheta:ℝepsilon:ℝCmean:ℝhtheta:0 ≤ thetahepsilon:0 < epsilonhCmean:0 < Cmeanhmean:∀ (D : ℕ) (X : ℝ),
1 ≤ X →
b * X ≤ ↑D →
∀ (T : Finset ActualEisensteinCubic.O),
(∀ h ∈ T, ↑(Ideal.absNorm (Ideal.span {h})) ≤ X ^ (1 + theta)) →
(∀ h ∈ T, h ≠ 0) →
∑ h ∈ T, ‖idealRowSum (outsideIdealsUpTo S D) ⋯ ⋯ chi (fun n => W (↑n / X)) h‖ ^ 2 ≤
Cmean * X ^ (2 + theta + 2 * epsilon)V:𝓢(ℝ, ℂ)hV:∀ (x : ℝ), ‖V x‖ ≤ 1hVs:Function.support ⇑V ⊆ Set.Icc (1 / 2) 1hV0:V 0 = 0hVhat:paperRadialFourier (⇑V) 0 ≠ 0Cerror:ℝhCerror:0 < Cerrorherror:∀ {q : ℕ} (F : Finset (Ideal ActualEisensteinCubic.O)),
(∀ I ∈ F, I ≠ ⊥) →
∀ (χ : DirichletCharacter ℂ q) (W : ℕ → ℂ) (V : 𝓢(ℝ, ℂ)) (Y lengthScale G : ℝ),
0 < Y →
1 ≤ lengthScale →
0 ≤ G →
(∀ (n : ℕ), ‖W n‖ ≤ G) →
(∀ I ∈ F, W (Ideal.absNorm I) ≠ 0 → ↑(Ideal.absNorm I) ≤ lengthScale) →
‖∑ I ∈ F,
baseChangeWeight χ I * W (Ideal.absNorm I) *
maskedPrincipalRemainder (fun i => ↑i) (idealSupport F I) (⇑V) Y‖ ≤
Cerror * G * pvControl V * lengthScale ^ (1 + epsilon)hWcompact:HasCompactSupport WWs:𝓢(ℝ, ℂ) := hWcompact.toSchwartzMap hWG:ℝ := (SchwartzMap.seminorm ℝ 0 0) WssupportBound:ℝ := max 1 bError:ℝ := Cerror * G * pvControl V * supportBound ^ (1 + epsilon)Average:ℝ := √(768 * Cmean)alpha:ℝ := (1 + theta) / 6targetExponent:ℝ := (11 + 5 * theta) / 12 + epsilonaverageExponent:ℝ := alpha + targetExponentC:ℝ := (Average + Error) / ‖paperRadialFourier (⇑V) 0‖hG:0 ≤ GhSupportBound:1 ≤ supportBoundhError:0 ≤ ErrorhAverage:0 < Averagehhat:0 < ‖paperRadialFourier (⇑V) 0‖halpha:0 ≤ alphaD:ℕX:ℝhX:1 ≤ XhD:b * X ≤ ↑DhXpos:0 < XB:ℝ := X ^ alphahB:1 ≤ BhBpos:0 < BF:Finset (Ideal ConcretePrimeRowBridge.O) := outsideIdealsUpTo S DA:ActualEisensteinCubic.O → ℂ := idealRowSum F ⋯ ⋯ chi fun n => W (↑n / X)⊢ (X ^ ((1 + theta) / 6)) ^ 6 = X ^ (1 + theta)
rw [← Real.rpow_mul_natCast hXpos.le q:ℕchi:DirichletCharacter ℂ qS:Finset (Ideal ActualEisensteinCubic.O)hbad:CanonicalQuadraticSieve.fixedBadPrimes ⊆ SW:ℝ → ℂa:ℝb:ℝ_ha:0 < ahsupport:Function.support W ⊆ Set.Icc a bhW:ContDiff ℝ ∞ Wtheta:ℝepsilon:ℝCmean:ℝhtheta:0 ≤ thetahepsilon:0 < epsilonhCmean:0 < Cmeanhmean:∀ (D : ℕ) (X : ℝ),
1 ≤ X →
b * X ≤ ↑D →
∀ (T : Finset ActualEisensteinCubic.O),
(∀ h ∈ T, ↑(Ideal.absNorm (Ideal.span {h})) ≤ X ^ (1 + theta)) →
(∀ h ∈ T, h ≠ 0) →
∑ h ∈ T, ‖idealRowSum (outsideIdealsUpTo S D) ⋯ ⋯ chi (fun n => W (↑n / X)) h‖ ^ 2 ≤
Cmean * X ^ (2 + theta + 2 * epsilon)V:𝓢(ℝ, ℂ)hV:∀ (x : ℝ), ‖V x‖ ≤ 1hVs:Function.support ⇑V ⊆ Set.Icc (1 / 2) 1hV0:V 0 = 0hVhat:paperRadialFourier (⇑V) 0 ≠ 0Cerror:ℝhCerror:0 < Cerrorherror:∀ {q : ℕ} (F : Finset (Ideal ActualEisensteinCubic.O)),
(∀ I ∈ F, I ≠ ⊥) →
∀ (χ : DirichletCharacter ℂ q) (W : ℕ → ℂ) (V : 𝓢(ℝ, ℂ)) (Y lengthScale G : ℝ),
0 < Y →
1 ≤ lengthScale →
0 ≤ G →
(∀ (n : ℕ), ‖W n‖ ≤ G) →
(∀ I ∈ F, W (Ideal.absNorm I) ≠ 0 → ↑(Ideal.absNorm I) ≤ lengthScale) →
‖∑ I ∈ F,
baseChangeWeight χ I * W (Ideal.absNorm I) *
maskedPrincipalRemainder (fun i => ↑i) (idealSupport F I) (⇑V) Y‖ ≤
Cerror * G * pvControl V * lengthScale ^ (1 + epsilon)hWcompact:HasCompactSupport WWs:𝓢(ℝ, ℂ) := hWcompact.toSchwartzMap hWG:ℝ := (SchwartzMap.seminorm ℝ 0 0) WssupportBound:ℝ := max 1 bError:ℝ := Cerror * G * pvControl V * supportBound ^ (1 + epsilon)Average:ℝ := √(768 * Cmean)alpha:ℝ := (1 + theta) / 6targetExponent:ℝ := (11 + 5 * theta) / 12 + epsilonaverageExponent:ℝ := alpha + targetExponentC:ℝ := (Average + Error) / ‖paperRadialFourier (⇑V) 0‖hG:0 ≤ GhSupportBound:1 ≤ supportBoundhError:0 ≤ ErrorhAverage:0 < Averagehhat:0 < ‖paperRadialFourier (⇑V) 0‖halpha:0 ≤ alphaD:ℕX:ℝhX:1 ≤ XhD:b * X ≤ ↑DhXpos:0 < XB:ℝ := X ^ alphahB:1 ≤ BhBpos:0 < BF:Finset (Ideal ConcretePrimeRowBridge.O) := outsideIdealsUpTo S DA:ActualEisensteinCubic.O → ℂ := idealRowSum F ⋯ ⋯ chi fun n => W (↑n / X)⊢ X ^ ((1 + theta) / 6 * ↑6) = X ^ (1 + theta)] q:ℕchi:DirichletCharacter ℂ qS:Finset (Ideal ActualEisensteinCubic.O)hbad:CanonicalQuadraticSieve.fixedBadPrimes ⊆ SW:ℝ → ℂa:ℝb:ℝ_ha:0 < ahsupport:Function.support W ⊆ Set.Icc a bhW:ContDiff ℝ ∞ Wtheta:ℝepsilon:ℝCmean:ℝhtheta:0 ≤ thetahepsilon:0 < epsilonhCmean:0 < Cmeanhmean:∀ (D : ℕ) (X : ℝ),
1 ≤ X →
b * X ≤ ↑D →
∀ (T : Finset ActualEisensteinCubic.O),
(∀ h ∈ T, ↑(Ideal.absNorm (Ideal.span {h})) ≤ X ^ (1 + theta)) →
(∀ h ∈ T, h ≠ 0) →
∑ h ∈ T, ‖idealRowSum (outsideIdealsUpTo S D) ⋯ ⋯ chi (fun n => W (↑n / X)) h‖ ^ 2 ≤
Cmean * X ^ (2 + theta + 2 * epsilon)V:𝓢(ℝ, ℂ)hV:∀ (x : ℝ), ‖V x‖ ≤ 1hVs:Function.support ⇑V ⊆ Set.Icc (1 / 2) 1hV0:V 0 = 0hVhat:paperRadialFourier (⇑V) 0 ≠ 0Cerror:ℝhCerror:0 < Cerrorherror:∀ {q : ℕ} (F : Finset (Ideal ActualEisensteinCubic.O)),
(∀ I ∈ F, I ≠ ⊥) →
∀ (χ : DirichletCharacter ℂ q) (W : ℕ → ℂ) (V : 𝓢(ℝ, ℂ)) (Y lengthScale G : ℝ),
0 < Y →
1 ≤ lengthScale →
0 ≤ G →
(∀ (n : ℕ), ‖W n‖ ≤ G) →
(∀ I ∈ F, W (Ideal.absNorm I) ≠ 0 → ↑(Ideal.absNorm I) ≤ lengthScale) →
‖∑ I ∈ F,
baseChangeWeight χ I * W (Ideal.absNorm I) *
maskedPrincipalRemainder (fun i => ↑i) (idealSupport F I) (⇑V) Y‖ ≤
Cerror * G * pvControl V * lengthScale ^ (1 + epsilon)hWcompact:HasCompactSupport WWs:𝓢(ℝ, ℂ) := hWcompact.toSchwartzMap hWG:ℝ := (SchwartzMap.seminorm ℝ 0 0) WssupportBound:ℝ := max 1 bError:ℝ := Cerror * G * pvControl V * supportBound ^ (1 + epsilon)Average:ℝ := √(768 * Cmean)alpha:ℝ := (1 + theta) / 6targetExponent:ℝ := (11 + 5 * theta) / 12 + epsilonaverageExponent:ℝ := alpha + targetExponentC:ℝ := (Average + Error) / ‖paperRadialFourier (⇑V) 0‖hG:0 ≤ GhSupportBound:1 ≤ supportBoundhError:0 ≤ ErrorhAverage:0 < Averagehhat:0 < ‖paperRadialFourier (⇑V) 0‖halpha:0 ≤ alphaD:ℕX:ℝhX:1 ≤ XhD:b * X ≤ ↑DhXpos:0 < XB:ℝ := X ^ alphahB:1 ≤ BhBpos:0 < BF:Finset (Ideal ConcretePrimeRowBridge.O) := outsideIdealsUpTo S DA:ActualEisensteinCubic.O → ℂ := idealRowSum F ⋯ ⋯ chi fun n => W (↑n / X)⊢ X ^ ((1 + theta) / 6 * ↑6) = X ^ (1 + theta)
congr 1 e_a q:ℕchi:DirichletCharacter ℂ qS:Finset (Ideal ActualEisensteinCubic.O)hbad:CanonicalQuadraticSieve.fixedBadPrimes ⊆ SW:ℝ → ℂa:ℝb:ℝ_ha:0 < ahsupport:Function.support W ⊆ Set.Icc a bhW:ContDiff ℝ ∞ Wtheta:ℝepsilon:ℝCmean:ℝhtheta:0 ≤ thetahepsilon:0 < epsilonhCmean:0 < Cmeanhmean:∀ (D : ℕ) (X : ℝ),
1 ≤ X →
b * X ≤ ↑D →
∀ (T : Finset ActualEisensteinCubic.O),
(∀ h ∈ T, ↑(Ideal.absNorm (Ideal.span {h})) ≤ X ^ (1 + theta)) →
(∀ h ∈ T, h ≠ 0) →
∑ h ∈ T, ‖idealRowSum (outsideIdealsUpTo S D) ⋯ ⋯ chi (fun n => W (↑n / X)) h‖ ^ 2 ≤
Cmean * X ^ (2 + theta + 2 * epsilon)V:𝓢(ℝ, ℂ)hV:∀ (x : ℝ), ‖V x‖ ≤ 1hVs:Function.support ⇑V ⊆ Set.Icc (1 / 2) 1hV0:V 0 = 0hVhat:paperRadialFourier (⇑V) 0 ≠ 0Cerror:ℝhCerror:0 < Cerrorherror:∀ {q : ℕ} (F : Finset (Ideal ActualEisensteinCubic.O)),
(∀ I ∈ F, I ≠ ⊥) →
∀ (χ : DirichletCharacter ℂ q) (W : ℕ → ℂ) (V : 𝓢(ℝ, ℂ)) (Y lengthScale G : ℝ),
0 < Y →
1 ≤ lengthScale →
0 ≤ G →
(∀ (n : ℕ), ‖W n‖ ≤ G) →
(∀ I ∈ F, W (Ideal.absNorm I) ≠ 0 → ↑(Ideal.absNorm I) ≤ lengthScale) →
‖∑ I ∈ F,
baseChangeWeight χ I * W (Ideal.absNorm I) *
maskedPrincipalRemainder (fun i => ↑i) (idealSupport F I) (⇑V) Y‖ ≤
Cerror * G * pvControl V * lengthScale ^ (1 + epsilon)hWcompact:HasCompactSupport WWs:𝓢(ℝ, ℂ) := hWcompact.toSchwartzMap hWG:ℝ := (SchwartzMap.seminorm ℝ 0 0) WssupportBound:ℝ := max 1 bError:ℝ := Cerror * G * pvControl V * supportBound ^ (1 + epsilon)Average:ℝ := √(768 * Cmean)alpha:ℝ := (1 + theta) / 6targetExponent:ℝ := (11 + 5 * theta) / 12 + epsilonaverageExponent:ℝ := alpha + targetExponentC:ℝ := (Average + Error) / ‖paperRadialFourier (⇑V) 0‖hG:0 ≤ GhSupportBound:1 ≤ supportBoundhError:0 ≤ ErrorhAverage:0 < Averagehhat:0 < ‖paperRadialFourier (⇑V) 0‖halpha:0 ≤ alphaD:ℕX:ℝhX:1 ≤ XhD:b * X ≤ ↑DhXpos:0 < XB:ℝ := X ^ alphahB:1 ≤ BhBpos:0 < BF:Finset (Ideal ConcretePrimeRowBridge.O) := outsideIdealsUpTo S DA:ActualEisensteinCubic.O → ℂ := idealRowSum F ⋯ ⋯ chi fun n => W (↑n / X)⊢ (1 + theta) / 6 * ↑6 = 1 + theta
ring q:ℕchi:DirichletCharacter ℂ qS:Finset (Ideal ActualEisensteinCubic.O)hbad:CanonicalQuadraticSieve.fixedBadPrimes ⊆ SW:ℝ → ℂa:ℝb:ℝ_ha:0 < ahsupport:Function.support W ⊆ Set.Icc a bhW:ContDiff ℝ ∞ Wtheta:ℝepsilon:ℝCmean:ℝhtheta:0 ≤ thetahepsilon:0 < epsilonhCmean:0 < Cmeanhmean:∀ (D : ℕ) (X : ℝ),
1 ≤ X →
b * X ≤ ↑D →
∀ (T : Finset ActualEisensteinCubic.O),
(∀ h ∈ T, ↑(Ideal.absNorm (Ideal.span {h})) ≤ X ^ (1 + theta)) →
(∀ h ∈ T, h ≠ 0) →
∑ h ∈ T, ‖idealRowSum (outsideIdealsUpTo S D) ⋯ ⋯ chi (fun n => W (↑n / X)) h‖ ^ 2 ≤
Cmean * X ^ (2 + theta + 2 * epsilon)V:𝓢(ℝ, ℂ)hV:∀ (x : ℝ), ‖V x‖ ≤ 1hVs:Function.support ⇑V ⊆ Set.Icc (1 / 2) 1hV0:V 0 = 0hVhat:paperRadialFourier (⇑V) 0 ≠ 0Cerror:ℝhCerror:0 < Cerrorherror:∀ {q : ℕ} (F : Finset (Ideal ActualEisensteinCubic.O)),
(∀ I ∈ F, I ≠ ⊥) →
∀ (χ : DirichletCharacter ℂ q) (W : ℕ → ℂ) (V : 𝓢(ℝ, ℂ)) (Y lengthScale G : ℝ),
0 < Y →
1 ≤ lengthScale →
0 ≤ G →
(∀ (n : ℕ), ‖W n‖ ≤ G) →
(∀ I ∈ F, W (Ideal.absNorm I) ≠ 0 → ↑(Ideal.absNorm I) ≤ lengthScale) →
‖∑ I ∈ F,
baseChangeWeight χ I * W (Ideal.absNorm I) *
maskedPrincipalRemainder (fun i => ↑i) (idealSupport F I) (⇑V) Y‖ ≤
Cerror * G * pvControl V * lengthScale ^ (1 + epsilon)hWcompact:HasCompactSupport WWs:𝓢(ℝ, ℂ) := hWcompact.toSchwartzMap hWG:ℝ := (SchwartzMap.seminorm ℝ 0 0) WssupportBound:ℝ := max 1 bError:ℝ := Cerror * G * pvControl V * supportBound ^ (1 + epsilon)Average:ℝ := √(768 * Cmean)alpha:ℝ := (1 + theta) / 6targetExponent:ℝ := (11 + 5 * theta) / 12 + epsilonaverageExponent:ℝ := alpha + targetExponentC:ℝ := (Average + Error) / ‖paperRadialFourier (⇑V) 0‖hG:0 ≤ GhSupportBound:1 ≤ supportBoundhError:0 ≤ ErrorhAverage:0 < Averagehhat:0 < ‖paperRadialFourier (⇑V) 0‖halpha:0 ≤ alphaD:ℕX:ℝhX:1 ≤ XhD:b * X ≤ ↑DhXpos:0 < XB:ℝ := X ^ alphahB:1 ≤ BhBpos:0 < BF:Finset (Ideal ConcretePrimeRowBridge.O) := outsideIdealsUpTo S DA:ActualEisensteinCubic.O → ℂ := idealRowSum F ⋯ ⋯ chi fun n => W (↑n / X)hBpower:B ^ 6 = X ^ (1 + theta)⊢ ‖∑ n ∈ outsideIdealsUpTo S D, baseChangeWeight chi n * W (↑(Ideal.absNorm n) / X) * totientDensity n‖ ≤
C * X ^ ((11 + 5 * theta) / 12 + epsilon)
have hsecondMoment :
(∑ h ∈ (averagingRows B).image (fun b ↦ b ^ 6), ‖A h‖ ^ 2) ≤
Cmean * X ^ ((2 + theta : ℝ) + 2 * epsilon) := by q:ℕchi:DirichletCharacter ℂ qS:Finset (Ideal ActualEisensteinCubic.O)hbad:CanonicalQuadraticSieve.fixedBadPrimes ⊆ SW:ℝ → ℂa:ℝb:ℝ_ha:0 < ahsupport:Function.support W ⊆ Set.Icc a bhW:ContDiff ℝ ∞ Wtheta:ℝepsilon:ℝCmean:ℝhtheta:0 ≤ thetahepsilon:0 < epsilonhCmean:0 < Cmeanhmean:∀ (D : ℕ) (X : ℝ),
1 ≤ X →
b * X ≤ ↑D →
∀ (T : Finset ActualEisensteinCubic.O),
(∀ h ∈ T, ↑(Ideal.absNorm (Ideal.span {h})) ≤ X ^ (1 + theta)) →
(∀ h ∈ T, h ≠ 0) →
∑ h ∈ T, ‖idealRowSum (outsideIdealsUpTo S D) ⋯ ⋯ chi (fun n => W (↑n / X)) h‖ ^ 2 ≤
Cmean * X ^ (2 + theta + 2 * epsilon)⊢ ∃ C,
0 < C ∧
∀ (D : ℕ) (X : ℝ),
1 ≤ X →
b * X ≤ ↑D →
‖∑ n ∈ outsideIdealsUpTo S D, baseChangeWeight chi n * W (↑(Ideal.absNorm n) / X) * totientDensity n‖ ≤
C * X ^ ((11 + 5 * theta) / 12 + epsilon)
apply hmean D X hX hD a q:ℕchi:DirichletCharacter ℂ qS:Finset (Ideal ActualEisensteinCubic.O)hbad:CanonicalQuadraticSieve.fixedBadPrimes ⊆ SW:ℝ → ℂa:ℝb:ℝ_ha:0 < ahsupport:Function.support W ⊆ Set.Icc a bhW:ContDiff ℝ ∞ Wtheta:ℝepsilon:ℝCmean:ℝhtheta:0 ≤ thetahepsilon:0 < epsilonhCmean:0 < Cmeanhmean:∀ (D : ℕ) (X : ℝ),
1 ≤ X →
b * X ≤ ↑D →
∀ (T : Finset ActualEisensteinCubic.O),
(∀ h ∈ T, ↑(Ideal.absNorm (Ideal.span {h})) ≤ X ^ (1 + theta)) →
(∀ h ∈ T, h ≠ 0) →
∑ h ∈ T, ‖idealRowSum (outsideIdealsUpTo S D) ⋯ ⋯ chi (fun n => W (↑n / X)) h‖ ^ 2 ≤
Cmean * X ^ (2 + theta + 2 * epsilon)V:𝓢(ℝ, ℂ)hV:∀ (x : ℝ), ‖V x‖ ≤ 1hVs:Function.support ⇑V ⊆ Set.Icc (1 / 2) 1hV0:V 0 = 0hVhat:paperRadialFourier (⇑V) 0 ≠ 0Cerror:ℝhCerror:0 < Cerrorherror:∀ {q : ℕ} (F : Finset (Ideal ActualEisensteinCubic.O)),
(∀ I ∈ F, I ≠ ⊥) →
∀ (χ : DirichletCharacter ℂ q) (W : ℕ → ℂ) (V : 𝓢(ℝ, ℂ)) (Y lengthScale G : ℝ),
0 < Y →
1 ≤ lengthScale →
0 ≤ G →
(∀ (n : ℕ), ‖W n‖ ≤ G) →
(∀ I ∈ F, W (Ideal.absNorm I) ≠ 0 → ↑(Ideal.absNorm I) ≤ lengthScale) →
‖∑ I ∈ F,
baseChangeWeight χ I * W (Ideal.absNorm I) *
maskedPrincipalRemainder (fun i => ↑i) (idealSupport F I) (⇑V) Y‖ ≤
Cerror * G * pvControl V * lengthScale ^ (1 + epsilon)hWcompact:HasCompactSupport WWs:𝓢(ℝ, ℂ) := hWcompact.toSchwartzMap hWG:ℝ := (SchwartzMap.seminorm ℝ 0 0) WssupportBound:ℝ := max 1 bError:ℝ := Cerror * G * pvControl V * supportBound ^ (1 + epsilon)Average:ℝ := √(768 * Cmean)alpha:ℝ := (1 + theta) / 6targetExponent:ℝ := (11 + 5 * theta) / 12 + epsilonaverageExponent:ℝ := alpha + targetExponentC:ℝ := (Average + Error) / ‖paperRadialFourier (⇑V) 0‖hG:0 ≤ GhSupportBound:1 ≤ supportBoundhError:0 ≤ ErrorhAverage:0 < Averagehhat:0 < ‖paperRadialFourier (⇑V) 0‖halpha:0 ≤ alphaD:ℕX:ℝhX:1 ≤ XhD:b * X ≤ ↑DhXpos:0 < XB:ℝ := X ^ alphahB:1 ≤ BhBpos:0 < BF:Finset (Ideal ConcretePrimeRowBridge.O) := outsideIdealsUpTo S DA:ActualEisensteinCubic.O → ℂ := idealRowSum F ⋯ ⋯ chi fun n => W (↑n / X)hBpower:B ^ 6 = X ^ (1 + theta)⊢ ∀ h ∈ Finset.image (fun b => b ^ 6) (averagingRows B), ↑(Ideal.absNorm (Ideal.span {h})) ≤ X ^ (1 + theta)a q:ℕchi:DirichletCharacter ℂ qS:Finset (Ideal ActualEisensteinCubic.O)hbad:CanonicalQuadraticSieve.fixedBadPrimes ⊆ SW:ℝ → ℂa:ℝb:ℝ_ha:0 < ahsupport:Function.support W ⊆ Set.Icc a bhW:ContDiff ℝ ∞ Wtheta:ℝepsilon:ℝCmean:ℝhtheta:0 ≤ thetahepsilon:0 < epsilonhCmean:0 < Cmeanhmean:∀ (D : ℕ) (X : ℝ),
1 ≤ X →
b * X ≤ ↑D →
∀ (T : Finset ActualEisensteinCubic.O),
(∀ h ∈ T, ↑(Ideal.absNorm (Ideal.span {h})) ≤ X ^ (1 + theta)) →
(∀ h ∈ T, h ≠ 0) →
∑ h ∈ T, ‖idealRowSum (outsideIdealsUpTo S D) ⋯ ⋯ chi (fun n => W (↑n / X)) h‖ ^ 2 ≤
Cmean * X ^ (2 + theta + 2 * epsilon)V:𝓢(ℝ, ℂ)hV:∀ (x : ℝ), ‖V x‖ ≤ 1hVs:Function.support ⇑V ⊆ Set.Icc (1 / 2) 1hV0:V 0 = 0hVhat:paperRadialFourier (⇑V) 0 ≠ 0Cerror:ℝhCerror:0 < Cerrorherror:∀ {q : ℕ} (F : Finset (Ideal ActualEisensteinCubic.O)),
(∀ I ∈ F, I ≠ ⊥) →
∀ (χ : DirichletCharacter ℂ q) (W : ℕ → ℂ) (V : 𝓢(ℝ, ℂ)) (Y lengthScale G : ℝ),
0 < Y →
1 ≤ lengthScale →
0 ≤ G →
(∀ (n : ℕ), ‖W n‖ ≤ G) →
(∀ I ∈ F, W (Ideal.absNorm I) ≠ 0 → ↑(Ideal.absNorm I) ≤ lengthScale) →
‖∑ I ∈ F,
baseChangeWeight χ I * W (Ideal.absNorm I) *
maskedPrincipalRemainder (fun i => ↑i) (idealSupport F I) (⇑V) Y‖ ≤
Cerror * G * pvControl V * lengthScale ^ (1 + epsilon)hWcompact:HasCompactSupport WWs:𝓢(ℝ, ℂ) := hWcompact.toSchwartzMap hWG:ℝ := (SchwartzMap.seminorm ℝ 0 0) WssupportBound:ℝ := max 1 bError:ℝ := Cerror * G * pvControl V * supportBound ^ (1 + epsilon)Average:ℝ := √(768 * Cmean)alpha:ℝ := (1 + theta) / 6targetExponent:ℝ := (11 + 5 * theta) / 12 + epsilonaverageExponent:ℝ := alpha + targetExponentC:ℝ := (Average + Error) / ‖paperRadialFourier (⇑V) 0‖hG:0 ≤ GhSupportBound:1 ≤ supportBoundhError:0 ≤ ErrorhAverage:0 < Averagehhat:0 < ‖paperRadialFourier (⇑V) 0‖halpha:0 ≤ alphaD:ℕX:ℝhX:1 ≤ XhD:b * X ≤ ↑DhXpos:0 < XB:ℝ := X ^ alphahB:1 ≤ BhBpos:0 < BF:Finset (Ideal ConcretePrimeRowBridge.O) := outsideIdealsUpTo S DA:ActualEisensteinCubic.O → ℂ := idealRowSum F ⋯ ⋯ chi fun n => W (↑n / X)hBpower:B ^ 6 = X ^ (1 + theta)⊢ ∀ h ∈ Finset.image (fun b => b ^ 6) (averagingRows B), h ≠ 0
· a q:ℕchi:DirichletCharacter ℂ qS:Finset (Ideal ActualEisensteinCubic.O)hbad:CanonicalQuadraticSieve.fixedBadPrimes ⊆ SW:ℝ → ℂa:ℝb:ℝ_ha:0 < ahsupport:Function.support W ⊆ Set.Icc a bhW:ContDiff ℝ ∞ Wtheta:ℝepsilon:ℝCmean:ℝhtheta:0 ≤ thetahepsilon:0 < epsilonhCmean:0 < Cmeanhmean:∀ (D : ℕ) (X : ℝ),
1 ≤ X →
b * X ≤ ↑D →
∀ (T : Finset ActualEisensteinCubic.O),
(∀ h ∈ T, ↑(Ideal.absNorm (Ideal.span {h})) ≤ X ^ (1 + theta)) →
(∀ h ∈ T, h ≠ 0) →
∑ h ∈ T, ‖idealRowSum (outsideIdealsUpTo S D) ⋯ ⋯ chi (fun n => W (↑n / X)) h‖ ^ 2 ≤
Cmean * X ^ (2 + theta + 2 * epsilon)V:𝓢(ℝ, ℂ)hV:∀ (x : ℝ), ‖V x‖ ≤ 1hVs:Function.support ⇑V ⊆ Set.Icc (1 / 2) 1hV0:V 0 = 0hVhat:paperRadialFourier (⇑V) 0 ≠ 0Cerror:ℝhCerror:0 < Cerrorherror:∀ {q : ℕ} (F : Finset (Ideal ActualEisensteinCubic.O)),
(∀ I ∈ F, I ≠ ⊥) →
∀ (χ : DirichletCharacter ℂ q) (W : ℕ → ℂ) (V : 𝓢(ℝ, ℂ)) (Y lengthScale G : ℝ),
0 < Y →
1 ≤ lengthScale →
0 ≤ G →
(∀ (n : ℕ), ‖W n‖ ≤ G) →
(∀ I ∈ F, W (Ideal.absNorm I) ≠ 0 → ↑(Ideal.absNorm I) ≤ lengthScale) →
‖∑ I ∈ F,
baseChangeWeight χ I * W (Ideal.absNorm I) *
maskedPrincipalRemainder (fun i => ↑i) (idealSupport F I) (⇑V) Y‖ ≤
Cerror * G * pvControl V * lengthScale ^ (1 + epsilon)hWcompact:HasCompactSupport WWs:𝓢(ℝ, ℂ) := hWcompact.toSchwartzMap hWG:ℝ := (SchwartzMap.seminorm ℝ 0 0) WssupportBound:ℝ := max 1 bError:ℝ := Cerror * G * pvControl V * supportBound ^ (1 + epsilon)Average:ℝ := √(768 * Cmean)alpha:ℝ := (1 + theta) / 6targetExponent:ℝ := (11 + 5 * theta) / 12 + epsilonaverageExponent:ℝ := alpha + targetExponentC:ℝ := (Average + Error) / ‖paperRadialFourier (⇑V) 0‖hG:0 ≤ GhSupportBound:1 ≤ supportBoundhError:0 ≤ ErrorhAverage:0 < Averagehhat:0 < ‖paperRadialFourier (⇑V) 0‖halpha:0 ≤ alphaD:ℕX:ℝhX:1 ≤ XhD:b * X ≤ ↑DhXpos:0 < XB:ℝ := X ^ alphahB:1 ≤ BhBpos:0 < BF:Finset (Ideal ConcretePrimeRowBridge.O) := outsideIdealsUpTo S DA:ActualEisensteinCubic.O → ℂ := idealRowSum F ⋯ ⋯ chi fun n => W (↑n / X)hBpower:B ^ 6 = X ^ (1 + theta)⊢ ∀ h ∈ Finset.image (fun b => b ^ 6) (averagingRows B), ↑(Ideal.absNorm (Ideal.span {h})) ≤ X ^ (1 + theta) intro h hz a q:ℕchi:DirichletCharacter ℂ qS:Finset (Ideal ActualEisensteinCubic.O)hbad:CanonicalQuadraticSieve.fixedBadPrimes ⊆ SW:ℝ → ℂa:ℝb:ℝ_ha:0 < ahsupport:Function.support W ⊆ Set.Icc a bhW:ContDiff ℝ ∞ Wtheta:ℝepsilon:ℝCmean:ℝhtheta:0 ≤ thetahepsilon:0 < epsilonhCmean:0 < Cmeanhmean:∀ (D : ℕ) (X : ℝ),
1 ≤ X →
b * X ≤ ↑D →
∀ (T : Finset ActualEisensteinCubic.O),
(∀ h ∈ T, ↑(Ideal.absNorm (Ideal.span {h})) ≤ X ^ (1 + theta)) →
(∀ h ∈ T, h ≠ 0) →
∑ h ∈ T, ‖idealRowSum (outsideIdealsUpTo S D) ⋯ ⋯ chi (fun n => W (↑n / X)) h‖ ^ 2 ≤
Cmean * X ^ (2 + theta + 2 * epsilon)V:𝓢(ℝ, ℂ)hV:∀ (x : ℝ), ‖V x‖ ≤ 1hVs:Function.support ⇑V ⊆ Set.Icc (1 / 2) 1hV0:V 0 = 0hVhat:paperRadialFourier (⇑V) 0 ≠ 0Cerror:ℝhCerror:0 < Cerrorherror:∀ {q : ℕ} (F : Finset (Ideal ActualEisensteinCubic.O)),
(∀ I ∈ F, I ≠ ⊥) →
∀ (χ : DirichletCharacter ℂ q) (W : ℕ → ℂ) (V : 𝓢(ℝ, ℂ)) (Y lengthScale G : ℝ),
0 < Y →
1 ≤ lengthScale →
0 ≤ G →
(∀ (n : ℕ), ‖W n‖ ≤ G) →
(∀ I ∈ F, W (Ideal.absNorm I) ≠ 0 → ↑(Ideal.absNorm I) ≤ lengthScale) →
‖∑ I ∈ F,
baseChangeWeight χ I * W (Ideal.absNorm I) *
maskedPrincipalRemainder (fun i => ↑i) (idealSupport F I) (⇑V) Y‖ ≤
Cerror * G * pvControl V * lengthScale ^ (1 + epsilon)hWcompact:HasCompactSupport WWs:𝓢(ℝ, ℂ) := hWcompact.toSchwartzMap hWG:ℝ := (SchwartzMap.seminorm ℝ 0 0) WssupportBound:ℝ := max 1 bError:ℝ := Cerror * G * pvControl V * supportBound ^ (1 + epsilon)Average:ℝ := √(768 * Cmean)alpha:ℝ := (1 + theta) / 6targetExponent:ℝ := (11 + 5 * theta) / 12 + epsilonaverageExponent:ℝ := alpha + targetExponentC:ℝ := (Average + Error) / ‖paperRadialFourier (⇑V) 0‖hG:0 ≤ GhSupportBound:1 ≤ supportBoundhError:0 ≤ ErrorhAverage:0 < Averagehhat:0 < ‖paperRadialFourier (⇑V) 0‖halpha:0 ≤ alphaD:ℕX:ℝhX:1 ≤ XhD:b * X ≤ ↑DhXpos:0 < XB:ℝ := X ^ alphahB:1 ≤ BhBpos:0 < BF:Finset (Ideal ConcretePrimeRowBridge.O) := outsideIdealsUpTo S DA:ActualEisensteinCubic.O → ℂ := idealRowSum F ⋯ ⋯ chi fun n => W (↑n / X)hBpower:B ^ 6 = X ^ (1 + theta)h:ActualEisensteinCubic.Ohz:h ∈ Finset.image (fun b => b ^ 6) (averagingRows B)⊢ ↑(Ideal.absNorm (Ideal.span {h})) ≤ X ^ (1 + theta)
have hnorm := (averagingRows_power_norm B hB hz).2 a q:ℕchi:DirichletCharacter ℂ qS:Finset (Ideal ActualEisensteinCubic.O)hbad:CanonicalQuadraticSieve.fixedBadPrimes ⊆ SW:ℝ → ℂa:ℝb:ℝ_ha:0 < ahsupport:Function.support W ⊆ Set.Icc a bhW:ContDiff ℝ ∞ Wtheta:ℝepsilon:ℝCmean:ℝhtheta:0 ≤ thetahepsilon:0 < epsilonhCmean:0 < Cmeanhmean:∀ (D : ℕ) (X : ℝ),
1 ≤ X →
b * X ≤ ↑D →
∀ (T : Finset ActualEisensteinCubic.O),
(∀ h ∈ T, ↑(Ideal.absNorm (Ideal.span {h})) ≤ X ^ (1 + theta)) →
(∀ h ∈ T, h ≠ 0) →
∑ h ∈ T, ‖idealRowSum (outsideIdealsUpTo S D) ⋯ ⋯ chi (fun n => W (↑n / X)) h‖ ^ 2 ≤
Cmean * X ^ (2 + theta + 2 * epsilon)V:𝓢(ℝ, ℂ)hV:∀ (x : ℝ), ‖V x‖ ≤ 1hVs:Function.support ⇑V ⊆ Set.Icc (1 / 2) 1hV0:V 0 = 0hVhat:paperRadialFourier (⇑V) 0 ≠ 0Cerror:ℝhCerror:0 < Cerrorherror:∀ {q : ℕ} (F : Finset (Ideal ActualEisensteinCubic.O)),
(∀ I ∈ F, I ≠ ⊥) →
∀ (χ : DirichletCharacter ℂ q) (W : ℕ → ℂ) (V : 𝓢(ℝ, ℂ)) (Y lengthScale G : ℝ),
0 < Y →
1 ≤ lengthScale →
0 ≤ G →
(∀ (n : ℕ), ‖W n‖ ≤ G) →
(∀ I ∈ F, W (Ideal.absNorm I) ≠ 0 → ↑(Ideal.absNorm I) ≤ lengthScale) →
‖∑ I ∈ F,
baseChangeWeight χ I * W (Ideal.absNorm I) *
maskedPrincipalRemainder (fun i => ↑i) (idealSupport F I) (⇑V) Y‖ ≤
Cerror * G * pvControl V * lengthScale ^ (1 + epsilon)hWcompact:HasCompactSupport WWs:𝓢(ℝ, ℂ) := hWcompact.toSchwartzMap hWG:ℝ := (SchwartzMap.seminorm ℝ 0 0) WssupportBound:ℝ := max 1 bError:ℝ := Cerror * G * pvControl V * supportBound ^ (1 + epsilon)Average:ℝ := √(768 * Cmean)alpha:ℝ := (1 + theta) / 6targetExponent:ℝ := (11 + 5 * theta) / 12 + epsilonaverageExponent:ℝ := alpha + targetExponentC:ℝ := (Average + Error) / ‖paperRadialFourier (⇑V) 0‖hG:0 ≤ GhSupportBound:1 ≤ supportBoundhError:0 ≤ ErrorhAverage:0 < Averagehhat:0 < ‖paperRadialFourier (⇑V) 0‖halpha:0 ≤ alphaD:ℕX:ℝhX:1 ≤ XhD:b * X ≤ ↑DhXpos:0 < XB:ℝ := X ^ alphahB:1 ≤ BhBpos:0 < BF:Finset (Ideal ConcretePrimeRowBridge.O) := outsideIdealsUpTo S DA:ActualEisensteinCubic.O → ℂ := idealRowSum F ⋯ ⋯ chi fun n => W (↑n / X)hBpower:B ^ 6 = X ^ (1 + theta)h:ActualEisensteinCubic.Ohz:h ∈ Finset.image (fun b => b ^ 6) (averagingRows B)hnorm:↑(Ideal.absNorm (Ideal.span {h})) ≤ B ^ 6⊢ ↑(Ideal.absNorm (Ideal.span {h})) ≤ X ^ (1 + theta)
simpa only [hBpower] using hnorm All goals completed! 🐙
· a q:ℕchi:DirichletCharacter ℂ qS:Finset (Ideal ActualEisensteinCubic.O)hbad:CanonicalQuadraticSieve.fixedBadPrimes ⊆ SW:ℝ → ℂa:ℝb:ℝ_ha:0 < ahsupport:Function.support W ⊆ Set.Icc a bhW:ContDiff ℝ ∞ Wtheta:ℝepsilon:ℝCmean:ℝhtheta:0 ≤ thetahepsilon:0 < epsilonhCmean:0 < Cmeanhmean:∀ (D : ℕ) (X : ℝ),
1 ≤ X →
b * X ≤ ↑D →
∀ (T : Finset ActualEisensteinCubic.O),
(∀ h ∈ T, ↑(Ideal.absNorm (Ideal.span {h})) ≤ X ^ (1 + theta)) →
(∀ h ∈ T, h ≠ 0) →
∑ h ∈ T, ‖idealRowSum (outsideIdealsUpTo S D) ⋯ ⋯ chi (fun n => W (↑n / X)) h‖ ^ 2 ≤
Cmean * X ^ (2 + theta + 2 * epsilon)V:𝓢(ℝ, ℂ)hV:∀ (x : ℝ), ‖V x‖ ≤ 1hVs:Function.support ⇑V ⊆ Set.Icc (1 / 2) 1hV0:V 0 = 0hVhat:paperRadialFourier (⇑V) 0 ≠ 0Cerror:ℝhCerror:0 < Cerrorherror:∀ {q : ℕ} (F : Finset (Ideal ActualEisensteinCubic.O)),
(∀ I ∈ F, I ≠ ⊥) →
∀ (χ : DirichletCharacter ℂ q) (W : ℕ → ℂ) (V : 𝓢(ℝ, ℂ)) (Y lengthScale G : ℝ),
0 < Y →
1 ≤ lengthScale →
0 ≤ G →
(∀ (n : ℕ), ‖W n‖ ≤ G) →
(∀ I ∈ F, W (Ideal.absNorm I) ≠ 0 → ↑(Ideal.absNorm I) ≤ lengthScale) →
‖∑ I ∈ F,
baseChangeWeight χ I * W (Ideal.absNorm I) *
maskedPrincipalRemainder (fun i => ↑i) (idealSupport F I) (⇑V) Y‖ ≤
Cerror * G * pvControl V * lengthScale ^ (1 + epsilon)hWcompact:HasCompactSupport WWs:𝓢(ℝ, ℂ) := hWcompact.toSchwartzMap hWG:ℝ := (SchwartzMap.seminorm ℝ 0 0) WssupportBound:ℝ := max 1 bError:ℝ := Cerror * G * pvControl V * supportBound ^ (1 + epsilon)Average:ℝ := √(768 * Cmean)alpha:ℝ := (1 + theta) / 6targetExponent:ℝ := (11 + 5 * theta) / 12 + epsilonaverageExponent:ℝ := alpha + targetExponentC:ℝ := (Average + Error) / ‖paperRadialFourier (⇑V) 0‖hG:0 ≤ GhSupportBound:1 ≤ supportBoundhError:0 ≤ ErrorhAverage:0 < Averagehhat:0 < ‖paperRadialFourier (⇑V) 0‖halpha:0 ≤ alphaD:ℕX:ℝhX:1 ≤ XhD:b * X ≤ ↑DhXpos:0 < XB:ℝ := X ^ alphahB:1 ≤ BhBpos:0 < BF:Finset (Ideal ConcretePrimeRowBridge.O) := outsideIdealsUpTo S DA:ActualEisensteinCubic.O → ℂ := idealRowSum F ⋯ ⋯ chi fun n => W (↑n / X)hBpower:B ^ 6 = X ^ (1 + theta)⊢ ∀ h ∈ Finset.image (fun b => b ^ 6) (averagingRows B), h ≠ 0 intro h hz a q:ℕchi:DirichletCharacter ℂ qS:Finset (Ideal ActualEisensteinCubic.O)hbad:CanonicalQuadraticSieve.fixedBadPrimes ⊆ SW:ℝ → ℂa:ℝb:ℝ_ha:0 < ahsupport:Function.support W ⊆ Set.Icc a bhW:ContDiff ℝ ∞ Wtheta:ℝepsilon:ℝCmean:ℝhtheta:0 ≤ thetahepsilon:0 < epsilonhCmean:0 < Cmeanhmean:∀ (D : ℕ) (X : ℝ),
1 ≤ X →
b * X ≤ ↑D →
∀ (T : Finset ActualEisensteinCubic.O),
(∀ h ∈ T, ↑(Ideal.absNorm (Ideal.span {h})) ≤ X ^ (1 + theta)) →
(∀ h ∈ T, h ≠ 0) →
∑ h ∈ T, ‖idealRowSum (outsideIdealsUpTo S D) ⋯ ⋯ chi (fun n => W (↑n / X)) h‖ ^ 2 ≤
Cmean * X ^ (2 + theta + 2 * epsilon)V:𝓢(ℝ, ℂ)hV:∀ (x : ℝ), ‖V x‖ ≤ 1hVs:Function.support ⇑V ⊆ Set.Icc (1 / 2) 1hV0:V 0 = 0hVhat:paperRadialFourier (⇑V) 0 ≠ 0Cerror:ℝhCerror:0 < Cerrorherror:∀ {q : ℕ} (F : Finset (Ideal ActualEisensteinCubic.O)),
(∀ I ∈ F, I ≠ ⊥) →
∀ (χ : DirichletCharacter ℂ q) (W : ℕ → ℂ) (V : 𝓢(ℝ, ℂ)) (Y lengthScale G : ℝ),
0 < Y →
1 ≤ lengthScale →
0 ≤ G →
(∀ (n : ℕ), ‖W n‖ ≤ G) →
(∀ I ∈ F, W (Ideal.absNorm I) ≠ 0 → ↑(Ideal.absNorm I) ≤ lengthScale) →
‖∑ I ∈ F,
baseChangeWeight χ I * W (Ideal.absNorm I) *
maskedPrincipalRemainder (fun i => ↑i) (idealSupport F I) (⇑V) Y‖ ≤
Cerror * G * pvControl V * lengthScale ^ (1 + epsilon)hWcompact:HasCompactSupport WWs:𝓢(ℝ, ℂ) := hWcompact.toSchwartzMap hWG:ℝ := (SchwartzMap.seminorm ℝ 0 0) WssupportBound:ℝ := max 1 bError:ℝ := Cerror * G * pvControl V * supportBound ^ (1 + epsilon)Average:ℝ := √(768 * Cmean)alpha:ℝ := (1 + theta) / 6targetExponent:ℝ := (11 + 5 * theta) / 12 + epsilonaverageExponent:ℝ := alpha + targetExponentC:ℝ := (Average + Error) / ‖paperRadialFourier (⇑V) 0‖hG:0 ≤ GhSupportBound:1 ≤ supportBoundhError:0 ≤ ErrorhAverage:0 < Averagehhat:0 < ‖paperRadialFourier (⇑V) 0‖halpha:0 ≤ alphaD:ℕX:ℝhX:1 ≤ XhD:b * X ≤ ↑DhXpos:0 < XB:ℝ := X ^ alphahB:1 ≤ BhBpos:0 < BF:Finset (Ideal ConcretePrimeRowBridge.O) := outsideIdealsUpTo S DA:ActualEisensteinCubic.O → ℂ := idealRowSum F ⋯ ⋯ chi fun n => W (↑n / X)hBpower:B ^ 6 = X ^ (1 + theta)h:ActualEisensteinCubic.Ohz:h ∈ Finset.image (fun b => b ^ 6) (averagingRows B)⊢ h ≠ 0
exact (averagingRows_power_norm B hB hz).1 q:ℕchi:DirichletCharacter ℂ qS:Finset (Ideal ActualEisensteinCubic.O)hbad:CanonicalQuadraticSieve.fixedBadPrimes ⊆ SW:ℝ → ℂa:ℝb:ℝ_ha:0 < ahsupport:Function.support W ⊆ Set.Icc a bhW:ContDiff ℝ ∞ Wtheta:ℝepsilon:ℝCmean:ℝhtheta:0 ≤ thetahepsilon:0 < epsilonhCmean:0 < Cmeanhmean:∀ (D : ℕ) (X : ℝ),
1 ≤ X →
b * X ≤ ↑D →
∀ (T : Finset ActualEisensteinCubic.O),
(∀ h ∈ T, ↑(Ideal.absNorm (Ideal.span {h})) ≤ X ^ (1 + theta)) →
(∀ h ∈ T, h ≠ 0) →
∑ h ∈ T, ‖idealRowSum (outsideIdealsUpTo S D) ⋯ ⋯ chi (fun n => W (↑n / X)) h‖ ^ 2 ≤
Cmean * X ^ (2 + theta + 2 * epsilon)V:𝓢(ℝ, ℂ)hV:∀ (x : ℝ), ‖V x‖ ≤ 1hVs:Function.support ⇑V ⊆ Set.Icc (1 / 2) 1hV0:V 0 = 0hVhat:paperRadialFourier (⇑V) 0 ≠ 0Cerror:ℝhCerror:0 < Cerrorherror:∀ {q : ℕ} (F : Finset (Ideal ActualEisensteinCubic.O)),
(∀ I ∈ F, I ≠ ⊥) →
∀ (χ : DirichletCharacter ℂ q) (W : ℕ → ℂ) (V : 𝓢(ℝ, ℂ)) (Y lengthScale G : ℝ),
0 < Y →
1 ≤ lengthScale →
0 ≤ G →
(∀ (n : ℕ), ‖W n‖ ≤ G) →
(∀ I ∈ F, W (Ideal.absNorm I) ≠ 0 → ↑(Ideal.absNorm I) ≤ lengthScale) →
‖∑ I ∈ F,
baseChangeWeight χ I * W (Ideal.absNorm I) *
maskedPrincipalRemainder (fun i => ↑i) (idealSupport F I) (⇑V) Y‖ ≤
Cerror * G * pvControl V * lengthScale ^ (1 + epsilon)hWcompact:HasCompactSupport WWs:𝓢(ℝ, ℂ) := hWcompact.toSchwartzMap hWG:ℝ := (SchwartzMap.seminorm ℝ 0 0) WssupportBound:ℝ := max 1 bError:ℝ := Cerror * G * pvControl V * supportBound ^ (1 + epsilon)Average:ℝ := √(768 * Cmean)alpha:ℝ := (1 + theta) / 6targetExponent:ℝ := (11 + 5 * theta) / 12 + epsilonaverageExponent:ℝ := alpha + targetExponentC:ℝ := (Average + Error) / ‖paperRadialFourier (⇑V) 0‖hG:0 ≤ GhSupportBound:1 ≤ supportBoundhError:0 ≤ ErrorhAverage:0 < Averagehhat:0 < ‖paperRadialFourier (⇑V) 0‖halpha:0 ≤ alphaD:ℕX:ℝhX:1 ≤ XhD:b * X ≤ ↑DhXpos:0 < XB:ℝ := X ^ alphahB:1 ≤ BhBpos:0 < BF:Finset (Ideal ConcretePrimeRowBridge.O) := outsideIdealsUpTo S DA:ActualEisensteinCubic.O → ℂ := idealRowSum F ⋯ ⋯ chi fun n => W (↑n / X)hBpower:B ^ 6 = X ^ (1 + theta)hsecondMoment:∑ h ∈ Finset.image (fun b => b ^ 6) (averagingRows B), ‖A h‖ ^ 2 ≤ Cmean * X ^ (2 + theta + 2 * epsilon)⊢ ‖∑ n ∈ outsideIdealsUpTo S D, baseChangeWeight chi n * W (↑(Ideal.absNorm n) / X) * totientDensity n‖ ≤
C * X ^ ((11 + 5 * theta) / 12 + epsilon)
have havgSquare :=
(average_tsum_cauchy V hV hVs hV0 B hB A).trans
(mul_le_mul_of_nonneg_left hsecondMoment (by q:ℕchi:DirichletCharacter ℂ qS:Finset (Ideal ActualEisensteinCubic.O)hbad:CanonicalQuadraticSieve.fixedBadPrimes ⊆ SW:ℝ → ℂa:ℝb:ℝ_ha:0 < ahsupport:Function.support W ⊆ Set.Icc a bhW:ContDiff ℝ ∞ Wtheta:ℝepsilon:ℝCmean:ℝhtheta:0 ≤ thetahepsilon:0 < epsilonhCmean:0 < Cmeanhmean:∀ (D : ℕ) (X : ℝ),
1 ≤ X →
b * X ≤ ↑D →
∀ (T : Finset ActualEisensteinCubic.O),
(∀ h ∈ T, ↑(Ideal.absNorm (Ideal.span {h})) ≤ X ^ (1 + theta)) →
(∀ h ∈ T, h ≠ 0) →
∑ h ∈ T, ‖idealRowSum (outsideIdealsUpTo S D) ⋯ ⋯ chi (fun n => W (↑n / X)) h‖ ^ 2 ≤
Cmean * X ^ (2 + theta + 2 * epsilon)V:𝓢(ℝ, ℂ)hV:∀ (x : ℝ), ‖V x‖ ≤ 1hVs:Function.support ⇑V ⊆ Set.Icc (1 / 2) 1hV0:V 0 = 0hVhat:paperRadialFourier (⇑V) 0 ≠ 0Cerror:ℝhCerror:0 < Cerrorherror:∀ {q : ℕ} (F : Finset (Ideal ActualEisensteinCubic.O)),
(∀ I ∈ F, I ≠ ⊥) →
∀ (χ : DirichletCharacter ℂ q) (W : ℕ → ℂ) (V : 𝓢(ℝ, ℂ)) (Y lengthScale G : ℝ),
0 < Y →
1 ≤ lengthScale →
0 ≤ G →
(∀ (n : ℕ), ‖W n‖ ≤ G) →
(∀ I ∈ F, W (Ideal.absNorm I) ≠ 0 → ↑(Ideal.absNorm I) ≤ lengthScale) →
‖∑ I ∈ F,
baseChangeWeight χ I * W (Ideal.absNorm I) *
maskedPrincipalRemainder (fun i => ↑i) (idealSupport F I) (⇑V) Y‖ ≤
Cerror * G * pvControl V * lengthScale ^ (1 + epsilon)hWcompact:HasCompactSupport WWs:𝓢(ℝ, ℂ) := hWcompact.toSchwartzMap hWG:ℝ := (SchwartzMap.seminorm ℝ 0 0) WssupportBound:ℝ := max 1 bError:ℝ := Cerror * G * pvControl V * supportBound ^ (1 + epsilon)Average:ℝ := √(768 * Cmean)alpha:ℝ := (1 + theta) / 6targetExponent:ℝ := (11 + 5 * theta) / 12 + epsilonaverageExponent:ℝ := alpha + targetExponentC:ℝ := (Average + Error) / ‖paperRadialFourier (⇑V) 0‖hG:0 ≤ GhSupportBound:1 ≤ supportBoundhError:0 ≤ ErrorhAverage:0 < Averagehhat:0 < ‖paperRadialFourier (⇑V) 0‖halpha:0 ≤ alphaD:ℕX:ℝhX:1 ≤ XhD:b * X ≤ ↑DhXpos:0 < XB:ℝ := X ^ alphahB:1 ≤ BhBpos:0 < BF:Finset (Ideal ConcretePrimeRowBridge.O) := outsideIdealsUpTo S DA:ActualEisensteinCubic.O → ℂ := idealRowSum F ⋯ ⋯ chi fun n => W (↑n / X)hBpower:B ^ 6 = X ^ (1 + theta)hsecondMoment:∑ h ∈ Finset.image (fun b => b ^ 6) (averagingRows B), ‖A h‖ ^ 2 ≤ Cmean * X ^ (2 + theta + 2 * epsilon)⊢ 0 ≤ 768 * B positivity All goals completed! 🐙 : 0 ≤ 768 * B)) q:ℕchi:DirichletCharacter ℂ qS:Finset (Ideal ActualEisensteinCubic.O)hbad:CanonicalQuadraticSieve.fixedBadPrimes ⊆ SW:ℝ → ℂa:ℝb:ℝ_ha:0 < ahsupport:Function.support W ⊆ Set.Icc a bhW:ContDiff ℝ ∞ Wtheta:ℝepsilon:ℝCmean:ℝhtheta:0 ≤ thetahepsilon:0 < epsilonhCmean:0 < Cmeanhmean:∀ (D : ℕ) (X : ℝ),
1 ≤ X →
b * X ≤ ↑D →
∀ (T : Finset ActualEisensteinCubic.O),
(∀ h ∈ T, ↑(Ideal.absNorm (Ideal.span {h})) ≤ X ^ (1 + theta)) →
(∀ h ∈ T, h ≠ 0) →
∑ h ∈ T, ‖idealRowSum (outsideIdealsUpTo S D) ⋯ ⋯ chi (fun n => W (↑n / X)) h‖ ^ 2 ≤
Cmean * X ^ (2 + theta + 2 * epsilon)V:𝓢(ℝ, ℂ)hV:∀ (x : ℝ), ‖V x‖ ≤ 1hVs:Function.support ⇑V ⊆ Set.Icc (1 / 2) 1hV0:V 0 = 0hVhat:paperRadialFourier (⇑V) 0 ≠ 0Cerror:ℝhCerror:0 < Cerrorherror:∀ {q : ℕ} (F : Finset (Ideal ActualEisensteinCubic.O)),
(∀ I ∈ F, I ≠ ⊥) →
∀ (χ : DirichletCharacter ℂ q) (W : ℕ → ℂ) (V : 𝓢(ℝ, ℂ)) (Y lengthScale G : ℝ),
0 < Y →
1 ≤ lengthScale →
0 ≤ G →
(∀ (n : ℕ), ‖W n‖ ≤ G) →
(∀ I ∈ F, W (Ideal.absNorm I) ≠ 0 → ↑(Ideal.absNorm I) ≤ lengthScale) →
‖∑ I ∈ F,
baseChangeWeight χ I * W (Ideal.absNorm I) *
maskedPrincipalRemainder (fun i => ↑i) (idealSupport F I) (⇑V) Y‖ ≤
Cerror * G * pvControl V * lengthScale ^ (1 + epsilon)hWcompact:HasCompactSupport WWs:𝓢(ℝ, ℂ) := hWcompact.toSchwartzMap hWG:ℝ := (SchwartzMap.seminorm ℝ 0 0) WssupportBound:ℝ := max 1 bError:ℝ := Cerror * G * pvControl V * supportBound ^ (1 + epsilon)Average:ℝ := √(768 * Cmean)alpha:ℝ := (1 + theta) / 6targetExponent:ℝ := (11 + 5 * theta) / 12 + epsilonaverageExponent:ℝ := alpha + targetExponentC:ℝ := (Average + Error) / ‖paperRadialFourier (⇑V) 0‖hG:0 ≤ GhSupportBound:1 ≤ supportBoundhError:0 ≤ ErrorhAverage:0 < Averagehhat:0 < ‖paperRadialFourier (⇑V) 0‖halpha:0 ≤ alphaD:ℕX:ℝhX:1 ≤ XhD:b * X ≤ ↑DhXpos:0 < XB:ℝ := X ^ alphahB:1 ≤ BhBpos:0 < BF:Finset (Ideal ConcretePrimeRowBridge.O) := outsideIdealsUpTo S DA:ActualEisensteinCubic.O → ℂ := idealRowSum F ⋯ ⋯ chi fun n => W (↑n / X)hBpower:B ^ 6 = X ^ (1 + theta)hsecondMoment:∑ h ∈ Finset.image (fun b => b ^ 6) (averagingRows B), ‖A h‖ ^ 2 ≤ Cmean * X ^ (2 + theta + 2 * epsilon)havgSquare:‖∑' (b : ActualEisensteinCubic.O), V (‖eisEmbedding b‖ ^ 2 / B) * A (b ^ 6)‖ ^ 2 ≤
768 * B * (Cmean * X ^ (2 + theta + 2 * epsilon))⊢ ‖∑ n ∈ outsideIdealsUpTo S D, baseChangeWeight chi n * W (↑(Ideal.absNorm n) / X) * totientDensity n‖ ≤
C * X ^ ((11 + 5 * theta) / 12 + epsilon)
have haverageIdentity :
768 * B * (Cmean * X ^ ((2 + theta : ℝ) + 2 * epsilon)) =
(Average * X ^ averageExponent) ^ 2 := by q:ℕchi:DirichletCharacter ℂ qS:Finset (Ideal ActualEisensteinCubic.O)hbad:CanonicalQuadraticSieve.fixedBadPrimes ⊆ SW:ℝ → ℂa:ℝb:ℝ_ha:0 < ahsupport:Function.support W ⊆ Set.Icc a bhW:ContDiff ℝ ∞ Wtheta:ℝepsilon:ℝCmean:ℝhtheta:0 ≤ thetahepsilon:0 < epsilonhCmean:0 < Cmeanhmean:∀ (D : ℕ) (X : ℝ),
1 ≤ X →
b * X ≤ ↑D →
∀ (T : Finset ActualEisensteinCubic.O),
(∀ h ∈ T, ↑(Ideal.absNorm (Ideal.span {h})) ≤ X ^ (1 + theta)) →
(∀ h ∈ T, h ≠ 0) →
∑ h ∈ T, ‖idealRowSum (outsideIdealsUpTo S D) ⋯ ⋯ chi (fun n => W (↑n / X)) h‖ ^ 2 ≤
Cmean * X ^ (2 + theta + 2 * epsilon)⊢ ∃ C,
0 < C ∧
∀ (D : ℕ) (X : ℝ),
1 ≤ X →
b * X ≤ ↑D →
‖∑ n ∈ outsideIdealsUpTo S D, baseChangeWeight chi n * W (↑(Ideal.absNorm n) / X) * totientDensity n‖ ≤
C * X ^ ((11 + 5 * theta) / 12 + epsilon)
dsimp only [B, Average] q:ℕchi:DirichletCharacter ℂ qS:Finset (Ideal ActualEisensteinCubic.O)hbad:CanonicalQuadraticSieve.fixedBadPrimes ⊆ SW:ℝ → ℂa:ℝb:ℝ_ha:0 < ahsupport:Function.support W ⊆ Set.Icc a bhW:ContDiff ℝ ∞ Wtheta:ℝepsilon:ℝCmean:ℝhtheta:0 ≤ thetahepsilon:0 < epsilonhCmean:0 < Cmeanhmean:∀ (D : ℕ) (X : ℝ),
1 ≤ X →
b * X ≤ ↑D →
∀ (T : Finset ActualEisensteinCubic.O),
(∀ h ∈ T, ↑(Ideal.absNorm (Ideal.span {h})) ≤ X ^ (1 + theta)) →
(∀ h ∈ T, h ≠ 0) →
∑ h ∈ T, ‖idealRowSum (outsideIdealsUpTo S D) ⋯ ⋯ chi (fun n => W (↑n / X)) h‖ ^ 2 ≤
Cmean * X ^ (2 + theta + 2 * epsilon)V:𝓢(ℝ, ℂ)hV:∀ (x : ℝ), ‖V x‖ ≤ 1hVs:Function.support ⇑V ⊆ Set.Icc (1 / 2) 1hV0:V 0 = 0hVhat:paperRadialFourier (⇑V) 0 ≠ 0Cerror:ℝhCerror:0 < Cerrorherror:∀ {q : ℕ} (F : Finset (Ideal ActualEisensteinCubic.O)),
(∀ I ∈ F, I ≠ ⊥) →
∀ (χ : DirichletCharacter ℂ q) (W : ℕ → ℂ) (V : 𝓢(ℝ, ℂ)) (Y lengthScale G : ℝ),
0 < Y →
1 ≤ lengthScale →
0 ≤ G →
(∀ (n : ℕ), ‖W n‖ ≤ G) →
(∀ I ∈ F, W (Ideal.absNorm I) ≠ 0 → ↑(Ideal.absNorm I) ≤ lengthScale) →
‖∑ I ∈ F,
baseChangeWeight χ I * W (Ideal.absNorm I) *
maskedPrincipalRemainder (fun i => ↑i) (idealSupport F I) (⇑V) Y‖ ≤
Cerror * G * pvControl V * lengthScale ^ (1 + epsilon)hWcompact:HasCompactSupport WWs:𝓢(ℝ, ℂ) := hWcompact.toSchwartzMap hWG:ℝ := (SchwartzMap.seminorm ℝ 0 0) WssupportBound:ℝ := max 1 bError:ℝ := Cerror * G * pvControl V * supportBound ^ (1 + epsilon)Average:ℝ := √(768 * Cmean)alpha:ℝ := (1 + theta) / 6targetExponent:ℝ := (11 + 5 * theta) / 12 + epsilonaverageExponent:ℝ := alpha + targetExponentC:ℝ := (Average + Error) / ‖paperRadialFourier (⇑V) 0‖hG:0 ≤ GhSupportBound:1 ≤ supportBoundhError:0 ≤ ErrorhAverage:0 < Averagehhat:0 < ‖paperRadialFourier (⇑V) 0‖halpha:0 ≤ alphaD:ℕX:ℝhX:1 ≤ XhD:b * X ≤ ↑DhXpos:0 < XB:ℝ := X ^ alphahB:1 ≤ BhBpos:0 < BF:Finset (Ideal ConcretePrimeRowBridge.O) := outsideIdealsUpTo S DA:ActualEisensteinCubic.O → ℂ := idealRowSum F ⋯ ⋯ chi fun n => W (↑n / X)hBpower:B ^ 6 = X ^ (1 + theta)hsecondMoment:∑ h ∈ Finset.image (fun b => b ^ 6) (averagingRows B), ‖A h‖ ^ 2 ≤ Cmean * X ^ (2 + theta + 2 * epsilon)havgSquare:‖∑' (b : ActualEisensteinCubic.O), V (‖eisEmbedding b‖ ^ 2 / B) * A (b ^ 6)‖ ^ 2 ≤
768 * B * (Cmean * X ^ (2 + theta + 2 * epsilon))⊢ 768 * X ^ alpha * (Cmean * X ^ (2 + theta + 2 * epsilon)) = (√(768 * Cmean) * X ^ averageExponent) ^ 2
rw [mul_pow, q:ℕchi:DirichletCharacter ℂ qS:Finset (Ideal ActualEisensteinCubic.O)hbad:CanonicalQuadraticSieve.fixedBadPrimes ⊆ SW:ℝ → ℂa:ℝb:ℝ_ha:0 < ahsupport:Function.support W ⊆ Set.Icc a bhW:ContDiff ℝ ∞ Wtheta:ℝepsilon:ℝCmean:ℝhtheta:0 ≤ thetahepsilon:0 < epsilonhCmean:0 < Cmeanhmean:∀ (D : ℕ) (X : ℝ),
1 ≤ X →
b * X ≤ ↑D →
∀ (T : Finset ActualEisensteinCubic.O),
(∀ h ∈ T, ↑(Ideal.absNorm (Ideal.span {h})) ≤ X ^ (1 + theta)) →
(∀ h ∈ T, h ≠ 0) →
∑ h ∈ T, ‖idealRowSum (outsideIdealsUpTo S D) ⋯ ⋯ chi (fun n => W (↑n / X)) h‖ ^ 2 ≤
Cmean * X ^ (2 + theta + 2 * epsilon)V:𝓢(ℝ, ℂ)hV:∀ (x : ℝ), ‖V x‖ ≤ 1hVs:Function.support ⇑V ⊆ Set.Icc (1 / 2) 1hV0:V 0 = 0hVhat:paperRadialFourier (⇑V) 0 ≠ 0Cerror:ℝhCerror:0 < Cerrorherror:∀ {q : ℕ} (F : Finset (Ideal ActualEisensteinCubic.O)),
(∀ I ∈ F, I ≠ ⊥) →
∀ (χ : DirichletCharacter ℂ q) (W : ℕ → ℂ) (V : 𝓢(ℝ, ℂ)) (Y lengthScale G : ℝ),
0 < Y →
1 ≤ lengthScale →
0 ≤ G →
(∀ (n : ℕ), ‖W n‖ ≤ G) →
(∀ I ∈ F, W (Ideal.absNorm I) ≠ 0 → ↑(Ideal.absNorm I) ≤ lengthScale) →
‖∑ I ∈ F,
baseChangeWeight χ I * W (Ideal.absNorm I) *
maskedPrincipalRemainder (fun i => ↑i) (idealSupport F I) (⇑V) Y‖ ≤
Cerror * G * pvControl V * lengthScale ^ (1 + epsilon)hWcompact:HasCompactSupport WWs:𝓢(ℝ, ℂ) := hWcompact.toSchwartzMap hWG:ℝ := (SchwartzMap.seminorm ℝ 0 0) WssupportBound:ℝ := max 1 bError:ℝ := Cerror * G * pvControl V * supportBound ^ (1 + epsilon)Average:ℝ := √(768 * Cmean)alpha:ℝ := (1 + theta) / 6targetExponent:ℝ := (11 + 5 * theta) / 12 + epsilonaverageExponent:ℝ := alpha + targetExponentC:ℝ := (Average + Error) / ‖paperRadialFourier (⇑V) 0‖hG:0 ≤ GhSupportBound:1 ≤ supportBoundhError:0 ≤ ErrorhAverage:0 < Averagehhat:0 < ‖paperRadialFourier (⇑V) 0‖halpha:0 ≤ alphaD:ℕX:ℝhX:1 ≤ XhD:b * X ≤ ↑DhXpos:0 < XB:ℝ := X ^ alphahB:1 ≤ BhBpos:0 < BF:Finset (Ideal ConcretePrimeRowBridge.O) := outsideIdealsUpTo S DA:ActualEisensteinCubic.O → ℂ := idealRowSum F ⋯ ⋯ chi fun n => W (↑n / X)hBpower:B ^ 6 = X ^ (1 + theta)hsecondMoment:∑ h ∈ Finset.image (fun b => b ^ 6) (averagingRows B), ‖A h‖ ^ 2 ≤ Cmean * X ^ (2 + theta + 2 * epsilon)havgSquare:‖∑' (b : ActualEisensteinCubic.O), V (‖eisEmbedding b‖ ^ 2 / B) * A (b ^ 6)‖ ^ 2 ≤
768 * B * (Cmean * X ^ (2 + theta + 2 * epsilon))⊢ 768 * X ^ alpha * (Cmean * X ^ (2 + theta + 2 * epsilon)) = √(768 * Cmean) ^ 2 * (X ^ averageExponent) ^ 2 Real.sq_sqrt (by q:ℕchi:DirichletCharacter ℂ qS:Finset (Ideal ActualEisensteinCubic.O)hbad:CanonicalQuadraticSieve.fixedBadPrimes ⊆ SW:ℝ → ℂa:ℝb:ℝ_ha:0 < ahsupport:Function.support W ⊆ Set.Icc a bhW:ContDiff ℝ ∞ Wtheta:ℝepsilon:ℝCmean:ℝhtheta:0 ≤ thetahepsilon:0 < epsilonhCmean:0 < Cmeanhmean:∀ (D : ℕ) (X : ℝ),
1 ≤ X →
b * X ≤ ↑D →
∀ (T : Finset ActualEisensteinCubic.O),
(∀ h ∈ T, ↑(Ideal.absNorm (Ideal.span {h})) ≤ X ^ (1 + theta)) →
(∀ h ∈ T, h ≠ 0) →
∑ h ∈ T, ‖idealRowSum (outsideIdealsUpTo S D) ⋯ ⋯ chi (fun n => W (↑n / X)) h‖ ^ 2 ≤
Cmean * X ^ (2 + theta + 2 * epsilon)V:𝓢(ℝ, ℂ)hV:∀ (x : ℝ), ‖V x‖ ≤ 1hVs:Function.support ⇑V ⊆ Set.Icc (1 / 2) 1hV0:V 0 = 0hVhat:paperRadialFourier (⇑V) 0 ≠ 0Cerror:ℝhCerror:0 < Cerrorherror:∀ {q : ℕ} (F : Finset (Ideal ActualEisensteinCubic.O)),
(∀ I ∈ F, I ≠ ⊥) →
∀ (χ : DirichletCharacter ℂ q) (W : ℕ → ℂ) (V : 𝓢(ℝ, ℂ)) (Y lengthScale G : ℝ),
0 < Y →
1 ≤ lengthScale →
0 ≤ G →
(∀ (n : ℕ), ‖W n‖ ≤ G) →
(∀ I ∈ F, W (Ideal.absNorm I) ≠ 0 → ↑(Ideal.absNorm I) ≤ lengthScale) →
‖∑ I ∈ F,
baseChangeWeight χ I * W (Ideal.absNorm I) *
maskedPrincipalRemainder (fun i => ↑i) (idealSupport F I) (⇑V) Y‖ ≤
Cerror * G * pvControl V * lengthScale ^ (1 + epsilon)hWcompact:HasCompactSupport WWs:𝓢(ℝ, ℂ) := hWcompact.toSchwartzMap hWG:ℝ := (SchwartzMap.seminorm ℝ 0 0) WssupportBound:ℝ := max 1 bError:ℝ := Cerror * G * pvControl V * supportBound ^ (1 + epsilon)Average:ℝ := √(768 * Cmean)alpha:ℝ := (1 + theta) / 6targetExponent:ℝ := (11 + 5 * theta) / 12 + epsilonaverageExponent:ℝ := alpha + targetExponentC:ℝ := (Average + Error) / ‖paperRadialFourier (⇑V) 0‖hG:0 ≤ GhSupportBound:1 ≤ supportBoundhError:0 ≤ ErrorhAverage:0 < Averagehhat:0 < ‖paperRadialFourier (⇑V) 0‖halpha:0 ≤ alphaD:ℕX:ℝhX:1 ≤ XhD:b * X ≤ ↑DhXpos:0 < XB:ℝ := X ^ alphahB:1 ≤ BhBpos:0 < BF:Finset (Ideal ConcretePrimeRowBridge.O) := outsideIdealsUpTo S DA:ActualEisensteinCubic.O → ℂ := idealRowSum F ⋯ ⋯ chi fun n => W (↑n / X)hBpower:B ^ 6 = X ^ (1 + theta)hsecondMoment:∑ h ∈ Finset.image (fun b => b ^ 6) (averagingRows B), ‖A h‖ ^ 2 ≤ Cmean * X ^ (2 + theta + 2 * epsilon)havgSquare:‖∑' (b : ActualEisensteinCubic.O), V (‖eisEmbedding b‖ ^ 2 / B) * A (b ^ 6)‖ ^ 2 ≤
768 * B * (Cmean * X ^ (2 + theta + 2 * epsilon))⊢ 0 ≤ 768 * Cmean positivity All goals completed! 🐙 : (0 : ℝ) ≤ 768 * Cmean),
← Real.rpow_mul_natCast hXpos.le q:ℕchi:DirichletCharacter ℂ qS:Finset (Ideal ActualEisensteinCubic.O)hbad:CanonicalQuadraticSieve.fixedBadPrimes ⊆ SW:ℝ → ℂa:ℝb:ℝ_ha:0 < ahsupport:Function.support W ⊆ Set.Icc a bhW:ContDiff ℝ ∞ Wtheta:ℝepsilon:ℝCmean:ℝhtheta:0 ≤ thetahepsilon:0 < epsilonhCmean:0 < Cmeanhmean:∀ (D : ℕ) (X : ℝ),
1 ≤ X →
b * X ≤ ↑D →
∀ (T : Finset ActualEisensteinCubic.O),
(∀ h ∈ T, ↑(Ideal.absNorm (Ideal.span {h})) ≤ X ^ (1 + theta)) →
(∀ h ∈ T, h ≠ 0) →
∑ h ∈ T, ‖idealRowSum (outsideIdealsUpTo S D) ⋯ ⋯ chi (fun n => W (↑n / X)) h‖ ^ 2 ≤
Cmean * X ^ (2 + theta + 2 * epsilon)V:𝓢(ℝ, ℂ)hV:∀ (x : ℝ), ‖V x‖ ≤ 1hVs:Function.support ⇑V ⊆ Set.Icc (1 / 2) 1hV0:V 0 = 0hVhat:paperRadialFourier (⇑V) 0 ≠ 0Cerror:ℝhCerror:0 < Cerrorherror:∀ {q : ℕ} (F : Finset (Ideal ActualEisensteinCubic.O)),
(∀ I ∈ F, I ≠ ⊥) →
∀ (χ : DirichletCharacter ℂ q) (W : ℕ → ℂ) (V : 𝓢(ℝ, ℂ)) (Y lengthScale G : ℝ),
0 < Y →
1 ≤ lengthScale →
0 ≤ G →
(∀ (n : ℕ), ‖W n‖ ≤ G) →
(∀ I ∈ F, W (Ideal.absNorm I) ≠ 0 → ↑(Ideal.absNorm I) ≤ lengthScale) →
‖∑ I ∈ F,
baseChangeWeight χ I * W (Ideal.absNorm I) *
maskedPrincipalRemainder (fun i => ↑i) (idealSupport F I) (⇑V) Y‖ ≤
Cerror * G * pvControl V * lengthScale ^ (1 + epsilon)hWcompact:HasCompactSupport WWs:𝓢(ℝ, ℂ) := hWcompact.toSchwartzMap hWG:ℝ := (SchwartzMap.seminorm ℝ 0 0) WssupportBound:ℝ := max 1 bError:ℝ := Cerror * G * pvControl V * supportBound ^ (1 + epsilon)Average:ℝ := √(768 * Cmean)alpha:ℝ := (1 + theta) / 6targetExponent:ℝ := (11 + 5 * theta) / 12 + epsilonaverageExponent:ℝ := alpha + targetExponentC:ℝ := (Average + Error) / ‖paperRadialFourier (⇑V) 0‖hG:0 ≤ GhSupportBound:1 ≤ supportBoundhError:0 ≤ ErrorhAverage:0 < Averagehhat:0 < ‖paperRadialFourier (⇑V) 0‖halpha:0 ≤ alphaD:ℕX:ℝhX:1 ≤ XhD:b * X ≤ ↑DhXpos:0 < XB:ℝ := X ^ alphahB:1 ≤ BhBpos:0 < BF:Finset (Ideal ConcretePrimeRowBridge.O) := outsideIdealsUpTo S DA:ActualEisensteinCubic.O → ℂ := idealRowSum F ⋯ ⋯ chi fun n => W (↑n / X)hBpower:B ^ 6 = X ^ (1 + theta)hsecondMoment:∑ h ∈ Finset.image (fun b => b ^ 6) (averagingRows B), ‖A h‖ ^ 2 ≤ Cmean * X ^ (2 + theta + 2 * epsilon)havgSquare:‖∑' (b : ActualEisensteinCubic.O), V (‖eisEmbedding b‖ ^ 2 / B) * A (b ^ 6)‖ ^ 2 ≤
768 * B * (Cmean * X ^ (2 + theta + 2 * epsilon))⊢ 768 * X ^ alpha * (Cmean * X ^ (2 + theta + 2 * epsilon)) = 768 * Cmean * X ^ (averageExponent * ↑2)] q:ℕchi:DirichletCharacter ℂ qS:Finset (Ideal ActualEisensteinCubic.O)hbad:CanonicalQuadraticSieve.fixedBadPrimes ⊆ SW:ℝ → ℂa:ℝb:ℝ_ha:0 < ahsupport:Function.support W ⊆ Set.Icc a bhW:ContDiff ℝ ∞ Wtheta:ℝepsilon:ℝCmean:ℝhtheta:0 ≤ thetahepsilon:0 < epsilonhCmean:0 < Cmeanhmean:∀ (D : ℕ) (X : ℝ),
1 ≤ X →
b * X ≤ ↑D →
∀ (T : Finset ActualEisensteinCubic.O),
(∀ h ∈ T, ↑(Ideal.absNorm (Ideal.span {h})) ≤ X ^ (1 + theta)) →
(∀ h ∈ T, h ≠ 0) →
∑ h ∈ T, ‖idealRowSum (outsideIdealsUpTo S D) ⋯ ⋯ chi (fun n => W (↑n / X)) h‖ ^ 2 ≤
Cmean * X ^ (2 + theta + 2 * epsilon)V:𝓢(ℝ, ℂ)hV:∀ (x : ℝ), ‖V x‖ ≤ 1hVs:Function.support ⇑V ⊆ Set.Icc (1 / 2) 1hV0:V 0 = 0hVhat:paperRadialFourier (⇑V) 0 ≠ 0Cerror:ℝhCerror:0 < Cerrorherror:∀ {q : ℕ} (F : Finset (Ideal ActualEisensteinCubic.O)),
(∀ I ∈ F, I ≠ ⊥) →
∀ (χ : DirichletCharacter ℂ q) (W : ℕ → ℂ) (V : 𝓢(ℝ, ℂ)) (Y lengthScale G : ℝ),
0 < Y →
1 ≤ lengthScale →
0 ≤ G →
(∀ (n : ℕ), ‖W n‖ ≤ G) →
(∀ I ∈ F, W (Ideal.absNorm I) ≠ 0 → ↑(Ideal.absNorm I) ≤ lengthScale) →
‖∑ I ∈ F,
baseChangeWeight χ I * W (Ideal.absNorm I) *
maskedPrincipalRemainder (fun i => ↑i) (idealSupport F I) (⇑V) Y‖ ≤
Cerror * G * pvControl V * lengthScale ^ (1 + epsilon)hWcompact:HasCompactSupport WWs:𝓢(ℝ, ℂ) := hWcompact.toSchwartzMap hWG:ℝ := (SchwartzMap.seminorm ℝ 0 0) WssupportBound:ℝ := max 1 bError:ℝ := Cerror * G * pvControl V * supportBound ^ (1 + epsilon)Average:ℝ := √(768 * Cmean)alpha:ℝ := (1 + theta) / 6targetExponent:ℝ := (11 + 5 * theta) / 12 + epsilonaverageExponent:ℝ := alpha + targetExponentC:ℝ := (Average + Error) / ‖paperRadialFourier (⇑V) 0‖hG:0 ≤ GhSupportBound:1 ≤ supportBoundhError:0 ≤ ErrorhAverage:0 < Averagehhat:0 < ‖paperRadialFourier (⇑V) 0‖halpha:0 ≤ alphaD:ℕX:ℝhX:1 ≤ XhD:b * X ≤ ↑DhXpos:0 < XB:ℝ := X ^ alphahB:1 ≤ BhBpos:0 < BF:Finset (Ideal ConcretePrimeRowBridge.O) := outsideIdealsUpTo S DA:ActualEisensteinCubic.O → ℂ := idealRowSum F ⋯ ⋯ chi fun n => W (↑n / X)hBpower:B ^ 6 = X ^ (1 + theta)hsecondMoment:∑ h ∈ Finset.image (fun b => b ^ 6) (averagingRows B), ‖A h‖ ^ 2 ≤ Cmean * X ^ (2 + theta + 2 * epsilon)havgSquare:‖∑' (b : ActualEisensteinCubic.O), V (‖eisEmbedding b‖ ^ 2 / B) * A (b ^ 6)‖ ^ 2 ≤
768 * B * (Cmean * X ^ (2 + theta + 2 * epsilon))⊢ 768 * X ^ alpha * (Cmean * X ^ (2 + theta + 2 * epsilon)) = 768 * Cmean * X ^ (averageExponent * ↑2)
calc
_ = (768 * Cmean) *
(X ^ alpha * X ^ ((2 + theta : ℝ) + 2 * epsilon)) := by q:ℕchi:DirichletCharacter ℂ qS:Finset (Ideal ActualEisensteinCubic.O)hbad:CanonicalQuadraticSieve.fixedBadPrimes ⊆ SW:ℝ → ℂa:ℝb:ℝ_ha:0 < ahsupport:Function.support W ⊆ Set.Icc a bhW:ContDiff ℝ ∞ Wtheta:ℝepsilon:ℝCmean:ℝhtheta:0 ≤ thetahepsilon:0 < epsilonhCmean:0 < Cmeanhmean:∀ (D : ℕ) (X : ℝ),
1 ≤ X →
b * X ≤ ↑D →
∀ (T : Finset ActualEisensteinCubic.O),
(∀ h ∈ T, ↑(Ideal.absNorm (Ideal.span {h})) ≤ X ^ (1 + theta)) →
(∀ h ∈ T, h ≠ 0) →
∑ h ∈ T, ‖idealRowSum (outsideIdealsUpTo S D) ⋯ ⋯ chi (fun n => W (↑n / X)) h‖ ^ 2 ≤
Cmean * X ^ (2 + theta + 2 * epsilon)V:𝓢(ℝ, ℂ)hV:∀ (x : ℝ), ‖V x‖ ≤ 1hVs:Function.support ⇑V ⊆ Set.Icc (1 / 2) 1hV0:V 0 = 0hVhat:paperRadialFourier (⇑V) 0 ≠ 0Cerror:ℝhCerror:0 < Cerrorherror:∀ {q : ℕ} (F : Finset (Ideal ActualEisensteinCubic.O)),
(∀ I ∈ F, I ≠ ⊥) →
∀ (χ : DirichletCharacter ℂ q) (W : ℕ → ℂ) (V : 𝓢(ℝ, ℂ)) (Y lengthScale G : ℝ),
0 < Y →
1 ≤ lengthScale →
0 ≤ G →
(∀ (n : ℕ), ‖W n‖ ≤ G) →
(∀ I ∈ F, W (Ideal.absNorm I) ≠ 0 → ↑(Ideal.absNorm I) ≤ lengthScale) →
‖∑ I ∈ F,
baseChangeWeight χ I * W (Ideal.absNorm I) *
maskedPrincipalRemainder (fun i => ↑i) (idealSupport F I) (⇑V) Y‖ ≤
Cerror * G * pvControl V * lengthScale ^ (1 + epsilon)hWcompact:HasCompactSupport WWs:𝓢(ℝ, ℂ) := hWcompact.toSchwartzMap hWG:ℝ := (SchwartzMap.seminorm ℝ 0 0) WssupportBound:ℝ := max 1 bError:ℝ := Cerror * G * pvControl V * supportBound ^ (1 + epsilon)Average:ℝ := √(768 * Cmean)alpha:ℝ := (1 + theta) / 6targetExponent:ℝ := (11 + 5 * theta) / 12 + epsilonaverageExponent:ℝ := alpha + targetExponentC:ℝ := (Average + Error) / ‖paperRadialFourier (⇑V) 0‖hG:0 ≤ GhSupportBound:1 ≤ supportBoundhError:0 ≤ ErrorhAverage:0 < Averagehhat:0 < ‖paperRadialFourier (⇑V) 0‖halpha:0 ≤ alphaD:ℕX:ℝhX:1 ≤ XhD:b * X ≤ ↑DhXpos:0 < XB:ℝ := X ^ alphahB:1 ≤ BhBpos:0 < BF:Finset (Ideal ConcretePrimeRowBridge.O) := outsideIdealsUpTo S DA:ActualEisensteinCubic.O → ℂ := idealRowSum F ⋯ ⋯ chi fun n => W (↑n / X)hBpower:B ^ 6 = X ^ (1 + theta)hsecondMoment:∑ h ∈ Finset.image (fun b => b ^ 6) (averagingRows B), ‖A h‖ ^ 2 ≤ Cmean * X ^ (2 + theta + 2 * epsilon)havgSquare:‖∑' (b : ActualEisensteinCubic.O), V (‖eisEmbedding b‖ ^ 2 / B) * A (b ^ 6)‖ ^ 2 ≤
768 * B * (Cmean * X ^ (2 + theta + 2 * epsilon))⊢ 768 * X ^ alpha * (Cmean * X ^ (2 + theta + 2 * epsilon)) = 768 * Cmean * (X ^ alpha * X ^ (2 + theta + 2 * epsilon))
ring All goals completed! 🐙
_ = (768 * Cmean) *
X ^ (alpha + ((2 + theta : ℝ) + 2 * epsilon)) := by q:ℕchi:DirichletCharacter ℂ qS:Finset (Ideal ActualEisensteinCubic.O)hbad:CanonicalQuadraticSieve.fixedBadPrimes ⊆ SW:ℝ → ℂa:ℝb:ℝ_ha:0 < ahsupport:Function.support W ⊆ Set.Icc a bhW:ContDiff ℝ ∞ Wtheta:ℝepsilon:ℝCmean:ℝhtheta:0 ≤ thetahepsilon:0 < epsilonhCmean:0 < Cmeanhmean:∀ (D : ℕ) (X : ℝ),
1 ≤ X →
b * X ≤ ↑D →
∀ (T : Finset ActualEisensteinCubic.O),
(∀ h ∈ T, ↑(Ideal.absNorm (Ideal.span {h})) ≤ X ^ (1 + theta)) →
(∀ h ∈ T, h ≠ 0) →
∑ h ∈ T, ‖idealRowSum (outsideIdealsUpTo S D) ⋯ ⋯ chi (fun n => W (↑n / X)) h‖ ^ 2 ≤
Cmean * X ^ (2 + theta + 2 * epsilon)V:𝓢(ℝ, ℂ)hV:∀ (x : ℝ), ‖V x‖ ≤ 1hVs:Function.support ⇑V ⊆ Set.Icc (1 / 2) 1hV0:V 0 = 0hVhat:paperRadialFourier (⇑V) 0 ≠ 0Cerror:ℝhCerror:0 < Cerrorherror:∀ {q : ℕ} (F : Finset (Ideal ActualEisensteinCubic.O)),
(∀ I ∈ F, I ≠ ⊥) →
∀ (χ : DirichletCharacter ℂ q) (W : ℕ → ℂ) (V : 𝓢(ℝ, ℂ)) (Y lengthScale G : ℝ),
0 < Y →
1 ≤ lengthScale →
0 ≤ G →
(∀ (n : ℕ), ‖W n‖ ≤ G) →
(∀ I ∈ F, W (Ideal.absNorm I) ≠ 0 → ↑(Ideal.absNorm I) ≤ lengthScale) →
‖∑ I ∈ F,
baseChangeWeight χ I * W (Ideal.absNorm I) *
maskedPrincipalRemainder (fun i => ↑i) (idealSupport F I) (⇑V) Y‖ ≤
Cerror * G * pvControl V * lengthScale ^ (1 + epsilon)hWcompact:HasCompactSupport WWs:𝓢(ℝ, ℂ) := hWcompact.toSchwartzMap hWG:ℝ := (SchwartzMap.seminorm ℝ 0 0) WssupportBound:ℝ := max 1 bError:ℝ := Cerror * G * pvControl V * supportBound ^ (1 + epsilon)Average:ℝ := √(768 * Cmean)alpha:ℝ := (1 + theta) / 6targetExponent:ℝ := (11 + 5 * theta) / 12 + epsilonaverageExponent:ℝ := alpha + targetExponentC:ℝ := (Average + Error) / ‖paperRadialFourier (⇑V) 0‖hG:0 ≤ GhSupportBound:1 ≤ supportBoundhError:0 ≤ ErrorhAverage:0 < Averagehhat:0 < ‖paperRadialFourier (⇑V) 0‖halpha:0 ≤ alphaD:ℕX:ℝhX:1 ≤ XhD:b * X ≤ ↑DhXpos:0 < XB:ℝ := X ^ alphahB:1 ≤ BhBpos:0 < BF:Finset (Ideal ConcretePrimeRowBridge.O) := outsideIdealsUpTo S DA:ActualEisensteinCubic.O → ℂ := idealRowSum F ⋯ ⋯ chi fun n => W (↑n / X)hBpower:B ^ 6 = X ^ (1 + theta)hsecondMoment:∑ h ∈ Finset.image (fun b => b ^ 6) (averagingRows B), ‖A h‖ ^ 2 ≤ Cmean * X ^ (2 + theta + 2 * epsilon)havgSquare:‖∑' (b : ActualEisensteinCubic.O), V (‖eisEmbedding b‖ ^ 2 / B) * A (b ^ 6)‖ ^ 2 ≤
768 * B * (Cmean * X ^ (2 + theta + 2 * epsilon))⊢ 768 * Cmean * (X ^ alpha * X ^ (2 + theta + 2 * epsilon)) = 768 * Cmean * X ^ (alpha + (2 + theta + 2 * epsilon))
rw [← Real.rpow_add hXpos q:ℕchi:DirichletCharacter ℂ qS:Finset (Ideal ActualEisensteinCubic.O)hbad:CanonicalQuadraticSieve.fixedBadPrimes ⊆ SW:ℝ → ℂa:ℝb:ℝ_ha:0 < ahsupport:Function.support W ⊆ Set.Icc a bhW:ContDiff ℝ ∞ Wtheta:ℝepsilon:ℝCmean:ℝhtheta:0 ≤ thetahepsilon:0 < epsilonhCmean:0 < Cmeanhmean:∀ (D : ℕ) (X : ℝ),
1 ≤ X →
b * X ≤ ↑D →
∀ (T : Finset ActualEisensteinCubic.O),
(∀ h ∈ T, ↑(Ideal.absNorm (Ideal.span {h})) ≤ X ^ (1 + theta)) →
(∀ h ∈ T, h ≠ 0) →
∑ h ∈ T, ‖idealRowSum (outsideIdealsUpTo S D) ⋯ ⋯ chi (fun n => W (↑n / X)) h‖ ^ 2 ≤
Cmean * X ^ (2 + theta + 2 * epsilon)V:𝓢(ℝ, ℂ)hV:∀ (x : ℝ), ‖V x‖ ≤ 1hVs:Function.support ⇑V ⊆ Set.Icc (1 / 2) 1hV0:V 0 = 0hVhat:paperRadialFourier (⇑V) 0 ≠ 0Cerror:ℝhCerror:0 < Cerrorherror:∀ {q : ℕ} (F : Finset (Ideal ActualEisensteinCubic.O)),
(∀ I ∈ F, I ≠ ⊥) →
∀ (χ : DirichletCharacter ℂ q) (W : ℕ → ℂ) (V : 𝓢(ℝ, ℂ)) (Y lengthScale G : ℝ),
0 < Y →
1 ≤ lengthScale →
0 ≤ G →
(∀ (n : ℕ), ‖W n‖ ≤ G) →
(∀ I ∈ F, W (Ideal.absNorm I) ≠ 0 → ↑(Ideal.absNorm I) ≤ lengthScale) →
‖∑ I ∈ F,
baseChangeWeight χ I * W (Ideal.absNorm I) *
maskedPrincipalRemainder (fun i => ↑i) (idealSupport F I) (⇑V) Y‖ ≤
Cerror * G * pvControl V * lengthScale ^ (1 + epsilon)hWcompact:HasCompactSupport WWs:𝓢(ℝ, ℂ) := hWcompact.toSchwartzMap hWG:ℝ := (SchwartzMap.seminorm ℝ 0 0) WssupportBound:ℝ := max 1 bError:ℝ := Cerror * G * pvControl V * supportBound ^ (1 + epsilon)Average:ℝ := √(768 * Cmean)alpha:ℝ := (1 + theta) / 6targetExponent:ℝ := (11 + 5 * theta) / 12 + epsilonaverageExponent:ℝ := alpha + targetExponentC:ℝ := (Average + Error) / ‖paperRadialFourier (⇑V) 0‖hG:0 ≤ GhSupportBound:1 ≤ supportBoundhError:0 ≤ ErrorhAverage:0 < Averagehhat:0 < ‖paperRadialFourier (⇑V) 0‖halpha:0 ≤ alphaD:ℕX:ℝhX:1 ≤ XhD:b * X ≤ ↑DhXpos:0 < XB:ℝ := X ^ alphahB:1 ≤ BhBpos:0 < BF:Finset (Ideal ConcretePrimeRowBridge.O) := outsideIdealsUpTo S DA:ActualEisensteinCubic.O → ℂ := idealRowSum F ⋯ ⋯ chi fun n => W (↑n / X)hBpower:B ^ 6 = X ^ (1 + theta)hsecondMoment:∑ h ∈ Finset.image (fun b => b ^ 6) (averagingRows B), ‖A h‖ ^ 2 ≤ Cmean * X ^ (2 + theta + 2 * epsilon)havgSquare:‖∑' (b : ActualEisensteinCubic.O), V (‖eisEmbedding b‖ ^ 2 / B) * A (b ^ 6)‖ ^ 2 ≤
768 * B * (Cmean * X ^ (2 + theta + 2 * epsilon))⊢ 768 * Cmean * X ^ (alpha + (2 + theta + 2 * epsilon)) = 768 * Cmean * X ^ (alpha + (2 + theta + 2 * epsilon))] All goals completed! 🐙
_ = _ := by q:ℕchi:DirichletCharacter ℂ qS:Finset (Ideal ActualEisensteinCubic.O)hbad:CanonicalQuadraticSieve.fixedBadPrimes ⊆ SW:ℝ → ℂa:ℝb:ℝ_ha:0 < ahsupport:Function.support W ⊆ Set.Icc a bhW:ContDiff ℝ ∞ Wtheta:ℝepsilon:ℝCmean:ℝhtheta:0 ≤ thetahepsilon:0 < epsilonhCmean:0 < Cmeanhmean:∀ (D : ℕ) (X : ℝ),
1 ≤ X →
b * X ≤ ↑D →
∀ (T : Finset ActualEisensteinCubic.O),
(∀ h ∈ T, ↑(Ideal.absNorm (Ideal.span {h})) ≤ X ^ (1 + theta)) →
(∀ h ∈ T, h ≠ 0) →
∑ h ∈ T, ‖idealRowSum (outsideIdealsUpTo S D) ⋯ ⋯ chi (fun n => W (↑n / X)) h‖ ^ 2 ≤
Cmean * X ^ (2 + theta + 2 * epsilon)V:𝓢(ℝ, ℂ)hV:∀ (x : ℝ), ‖V x‖ ≤ 1hVs:Function.support ⇑V ⊆ Set.Icc (1 / 2) 1hV0:V 0 = 0hVhat:paperRadialFourier (⇑V) 0 ≠ 0Cerror:ℝhCerror:0 < Cerrorherror:∀ {q : ℕ} (F : Finset (Ideal ActualEisensteinCubic.O)),
(∀ I ∈ F, I ≠ ⊥) →
∀ (χ : DirichletCharacter ℂ q) (W : ℕ → ℂ) (V : 𝓢(ℝ, ℂ)) (Y lengthScale G : ℝ),
0 < Y →
1 ≤ lengthScale →
0 ≤ G →
(∀ (n : ℕ), ‖W n‖ ≤ G) →
(∀ I ∈ F, W (Ideal.absNorm I) ≠ 0 → ↑(Ideal.absNorm I) ≤ lengthScale) →
‖∑ I ∈ F,
baseChangeWeight χ I * W (Ideal.absNorm I) *
maskedPrincipalRemainder (fun i => ↑i) (idealSupport F I) (⇑V) Y‖ ≤
Cerror * G * pvControl V * lengthScale ^ (1 + epsilon)hWcompact:HasCompactSupport WWs:𝓢(ℝ, ℂ) := hWcompact.toSchwartzMap hWG:ℝ := (SchwartzMap.seminorm ℝ 0 0) WssupportBound:ℝ := max 1 bError:ℝ := Cerror * G * pvControl V * supportBound ^ (1 + epsilon)Average:ℝ := √(768 * Cmean)alpha:ℝ := (1 + theta) / 6targetExponent:ℝ := (11 + 5 * theta) / 12 + epsilonaverageExponent:ℝ := alpha + targetExponentC:ℝ := (Average + Error) / ‖paperRadialFourier (⇑V) 0‖hG:0 ≤ GhSupportBound:1 ≤ supportBoundhError:0 ≤ ErrorhAverage:0 < Averagehhat:0 < ‖paperRadialFourier (⇑V) 0‖halpha:0 ≤ alphaD:ℕX:ℝhX:1 ≤ XhD:b * X ≤ ↑DhXpos:0 < XB:ℝ := X ^ alphahB:1 ≤ BhBpos:0 < BF:Finset (Ideal ConcretePrimeRowBridge.O) := outsideIdealsUpTo S DA:ActualEisensteinCubic.O → ℂ := idealRowSum F ⋯ ⋯ chi fun n => W (↑n / X)hBpower:B ^ 6 = X ^ (1 + theta)hsecondMoment:∑ h ∈ Finset.image (fun b => b ^ 6) (averagingRows B), ‖A h‖ ^ 2 ≤ Cmean * X ^ (2 + theta + 2 * epsilon)havgSquare:‖∑' (b : ActualEisensteinCubic.O), V (‖eisEmbedding b‖ ^ 2 / B) * A (b ^ 6)‖ ^ 2 ≤
768 * B * (Cmean * X ^ (2 + theta + 2 * epsilon))⊢ 768 * Cmean * X ^ (alpha + (2 + theta + 2 * epsilon)) = 768 * Cmean * X ^ (averageExponent * ↑2)
congr 2 e_a.e_a q:ℕchi:DirichletCharacter ℂ qS:Finset (Ideal ActualEisensteinCubic.O)hbad:CanonicalQuadraticSieve.fixedBadPrimes ⊆ SW:ℝ → ℂa:ℝb:ℝ_ha:0 < ahsupport:Function.support W ⊆ Set.Icc a bhW:ContDiff ℝ ∞ Wtheta:ℝepsilon:ℝCmean:ℝhtheta:0 ≤ thetahepsilon:0 < epsilonhCmean:0 < Cmeanhmean:∀ (D : ℕ) (X : ℝ),
1 ≤ X →
b * X ≤ ↑D →
∀ (T : Finset ActualEisensteinCubic.O),
(∀ h ∈ T, ↑(Ideal.absNorm (Ideal.span {h})) ≤ X ^ (1 + theta)) →
(∀ h ∈ T, h ≠ 0) →
∑ h ∈ T, ‖idealRowSum (outsideIdealsUpTo S D) ⋯ ⋯ chi (fun n => W (↑n / X)) h‖ ^ 2 ≤
Cmean * X ^ (2 + theta + 2 * epsilon)V:𝓢(ℝ, ℂ)hV:∀ (x : ℝ), ‖V x‖ ≤ 1hVs:Function.support ⇑V ⊆ Set.Icc (1 / 2) 1hV0:V 0 = 0hVhat:paperRadialFourier (⇑V) 0 ≠ 0Cerror:ℝhCerror:0 < Cerrorherror:∀ {q : ℕ} (F : Finset (Ideal ActualEisensteinCubic.O)),
(∀ I ∈ F, I ≠ ⊥) →
∀ (χ : DirichletCharacter ℂ q) (W : ℕ → ℂ) (V : 𝓢(ℝ, ℂ)) (Y lengthScale G : ℝ),
0 < Y →
1 ≤ lengthScale →
0 ≤ G →
(∀ (n : ℕ), ‖W n‖ ≤ G) →
(∀ I ∈ F, W (Ideal.absNorm I) ≠ 0 → ↑(Ideal.absNorm I) ≤ lengthScale) →
‖∑ I ∈ F,
baseChangeWeight χ I * W (Ideal.absNorm I) *
maskedPrincipalRemainder (fun i => ↑i) (idealSupport F I) (⇑V) Y‖ ≤
Cerror * G * pvControl V * lengthScale ^ (1 + epsilon)hWcompact:HasCompactSupport WWs:𝓢(ℝ, ℂ) := hWcompact.toSchwartzMap hWG:ℝ := (SchwartzMap.seminorm ℝ 0 0) WssupportBound:ℝ := max 1 bError:ℝ := Cerror * G * pvControl V * supportBound ^ (1 + epsilon)Average:ℝ := √(768 * Cmean)alpha:ℝ := (1 + theta) / 6targetExponent:ℝ := (11 + 5 * theta) / 12 + epsilonaverageExponent:ℝ := alpha + targetExponentC:ℝ := (Average + Error) / ‖paperRadialFourier (⇑V) 0‖hG:0 ≤ GhSupportBound:1 ≤ supportBoundhError:0 ≤ ErrorhAverage:0 < Averagehhat:0 < ‖paperRadialFourier (⇑V) 0‖halpha:0 ≤ alphaD:ℕX:ℝhX:1 ≤ XhD:b * X ≤ ↑DhXpos:0 < XB:ℝ := X ^ alphahB:1 ≤ BhBpos:0 < BF:Finset (Ideal ConcretePrimeRowBridge.O) := outsideIdealsUpTo S DA:ActualEisensteinCubic.O → ℂ := idealRowSum F ⋯ ⋯ chi fun n => W (↑n / X)hBpower:B ^ 6 = X ^ (1 + theta)hsecondMoment:∑ h ∈ Finset.image (fun b => b ^ 6) (averagingRows B), ‖A h‖ ^ 2 ≤ Cmean * X ^ (2 + theta + 2 * epsilon)havgSquare:‖∑' (b : ActualEisensteinCubic.O), V (‖eisEmbedding b‖ ^ 2 / B) * A (b ^ 6)‖ ^ 2 ≤
768 * B * (Cmean * X ^ (2 + theta + 2 * epsilon))⊢ alpha + (2 + theta + 2 * epsilon) = averageExponent * ↑2
dsimp [averageExponent, targetExponent, alpha] e_a.e_a q:ℕchi:DirichletCharacter ℂ qS:Finset (Ideal ActualEisensteinCubic.O)hbad:CanonicalQuadraticSieve.fixedBadPrimes ⊆ SW:ℝ → ℂa:ℝb:ℝ_ha:0 < ahsupport:Function.support W ⊆ Set.Icc a bhW:ContDiff ℝ ∞ Wtheta:ℝepsilon:ℝCmean:ℝhtheta:0 ≤ thetahepsilon:0 < epsilonhCmean:0 < Cmeanhmean:∀ (D : ℕ) (X : ℝ),
1 ≤ X →
b * X ≤ ↑D →
∀ (T : Finset ActualEisensteinCubic.O),
(∀ h ∈ T, ↑(Ideal.absNorm (Ideal.span {h})) ≤ X ^ (1 + theta)) →
(∀ h ∈ T, h ≠ 0) →
∑ h ∈ T, ‖idealRowSum (outsideIdealsUpTo S D) ⋯ ⋯ chi (fun n => W (↑n / X)) h‖ ^ 2 ≤
Cmean * X ^ (2 + theta + 2 * epsilon)V:𝓢(ℝ, ℂ)hV:∀ (x : ℝ), ‖V x‖ ≤ 1hVs:Function.support ⇑V ⊆ Set.Icc (1 / 2) 1hV0:V 0 = 0hVhat:paperRadialFourier (⇑V) 0 ≠ 0Cerror:ℝhCerror:0 < Cerrorherror:∀ {q : ℕ} (F : Finset (Ideal ActualEisensteinCubic.O)),
(∀ I ∈ F, I ≠ ⊥) →
∀ (χ : DirichletCharacter ℂ q) (W : ℕ → ℂ) (V : 𝓢(ℝ, ℂ)) (Y lengthScale G : ℝ),
0 < Y →
1 ≤ lengthScale →
0 ≤ G →
(∀ (n : ℕ), ‖W n‖ ≤ G) →
(∀ I ∈ F, W (Ideal.absNorm I) ≠ 0 → ↑(Ideal.absNorm I) ≤ lengthScale) →
‖∑ I ∈ F,
baseChangeWeight χ I * W (Ideal.absNorm I) *
maskedPrincipalRemainder (fun i => ↑i) (idealSupport F I) (⇑V) Y‖ ≤
Cerror * G * pvControl V * lengthScale ^ (1 + epsilon)hWcompact:HasCompactSupport WWs:𝓢(ℝ, ℂ) := hWcompact.toSchwartzMap hWG:ℝ := (SchwartzMap.seminorm ℝ 0 0) WssupportBound:ℝ := max 1 bError:ℝ := Cerror * G * pvControl V * supportBound ^ (1 + epsilon)Average:ℝ := √(768 * Cmean)alpha:ℝ := (1 + theta) / 6targetExponent:ℝ := (11 + 5 * theta) / 12 + epsilonaverageExponent:ℝ := alpha + targetExponentC:ℝ := (Average + Error) / ‖paperRadialFourier (⇑V) 0‖hG:0 ≤ GhSupportBound:1 ≤ supportBoundhError:0 ≤ ErrorhAverage:0 < Averagehhat:0 < ‖paperRadialFourier (⇑V) 0‖halpha:0 ≤ alphaD:ℕX:ℝhX:1 ≤ XhD:b * X ≤ ↑DhXpos:0 < XB:ℝ := X ^ alphahB:1 ≤ BhBpos:0 < BF:Finset (Ideal ConcretePrimeRowBridge.O) := outsideIdealsUpTo S DA:ActualEisensteinCubic.O → ℂ := idealRowSum F ⋯ ⋯ chi fun n => W (↑n / X)hBpower:B ^ 6 = X ^ (1 + theta)hsecondMoment:∑ h ∈ Finset.image (fun b => b ^ 6) (averagingRows B), ‖A h‖ ^ 2 ≤ Cmean * X ^ (2 + theta + 2 * epsilon)havgSquare:‖∑' (b : ActualEisensteinCubic.O), V (‖eisEmbedding b‖ ^ 2 / B) * A (b ^ 6)‖ ^ 2 ≤
768 * B * (Cmean * X ^ (2 + theta + 2 * epsilon))⊢ (1 + theta) / 6 + (2 + theta + 2 * epsilon) = ((1 + theta) / 6 + ((11 + 5 * theta) / 12 + epsilon)) * 2
ring q:ℕchi:DirichletCharacter ℂ qS:Finset (Ideal ActualEisensteinCubic.O)hbad:CanonicalQuadraticSieve.fixedBadPrimes ⊆ SW:ℝ → ℂa:ℝb:ℝ_ha:0 < ahsupport:Function.support W ⊆ Set.Icc a bhW:ContDiff ℝ ∞ Wtheta:ℝepsilon:ℝCmean:ℝhtheta:0 ≤ thetahepsilon:0 < epsilonhCmean:0 < Cmeanhmean:∀ (D : ℕ) (X : ℝ),
1 ≤ X →
b * X ≤ ↑D →
∀ (T : Finset ActualEisensteinCubic.O),
(∀ h ∈ T, ↑(Ideal.absNorm (Ideal.span {h})) ≤ X ^ (1 + theta)) →
(∀ h ∈ T, h ≠ 0) →
∑ h ∈ T, ‖idealRowSum (outsideIdealsUpTo S D) ⋯ ⋯ chi (fun n => W (↑n / X)) h‖ ^ 2 ≤
Cmean * X ^ (2 + theta + 2 * epsilon)V:𝓢(ℝ, ℂ)hV:∀ (x : ℝ), ‖V x‖ ≤ 1hVs:Function.support ⇑V ⊆ Set.Icc (1 / 2) 1hV0:V 0 = 0hVhat:paperRadialFourier (⇑V) 0 ≠ 0Cerror:ℝhCerror:0 < Cerrorherror:∀ {q : ℕ} (F : Finset (Ideal ActualEisensteinCubic.O)),
(∀ I ∈ F, I ≠ ⊥) →
∀ (χ : DirichletCharacter ℂ q) (W : ℕ → ℂ) (V : 𝓢(ℝ, ℂ)) (Y lengthScale G : ℝ),
0 < Y →
1 ≤ lengthScale →
0 ≤ G →
(∀ (n : ℕ), ‖W n‖ ≤ G) →
(∀ I ∈ F, W (Ideal.absNorm I) ≠ 0 → ↑(Ideal.absNorm I) ≤ lengthScale) →
‖∑ I ∈ F,
baseChangeWeight χ I * W (Ideal.absNorm I) *
maskedPrincipalRemainder (fun i => ↑i) (idealSupport F I) (⇑V) Y‖ ≤
Cerror * G * pvControl V * lengthScale ^ (1 + epsilon)hWcompact:HasCompactSupport WWs:𝓢(ℝ, ℂ) := hWcompact.toSchwartzMap hWG:ℝ := (SchwartzMap.seminorm ℝ 0 0) WssupportBound:ℝ := max 1 bError:ℝ := Cerror * G * pvControl V * supportBound ^ (1 + epsilon)Average:ℝ := √(768 * Cmean)alpha:ℝ := (1 + theta) / 6targetExponent:ℝ := (11 + 5 * theta) / 12 + epsilonaverageExponent:ℝ := alpha + targetExponentC:ℝ := (Average + Error) / ‖paperRadialFourier (⇑V) 0‖hG:0 ≤ GhSupportBound:1 ≤ supportBoundhError:0 ≤ ErrorhAverage:0 < Averagehhat:0 < ‖paperRadialFourier (⇑V) 0‖halpha:0 ≤ alphaD:ℕX:ℝhX:1 ≤ XhD:b * X ≤ ↑DhXpos:0 < XB:ℝ := X ^ alphahB:1 ≤ BhBpos:0 < BF:Finset (Ideal ConcretePrimeRowBridge.O) := outsideIdealsUpTo S DA:ActualEisensteinCubic.O → ℂ := idealRowSum F ⋯ ⋯ chi fun n => W (↑n / X)hBpower:B ^ 6 = X ^ (1 + theta)hsecondMoment:∑ h ∈ Finset.image (fun b => b ^ 6) (averagingRows B), ‖A h‖ ^ 2 ≤ Cmean * X ^ (2 + theta + 2 * epsilon)havgSquare:‖∑' (b : ActualEisensteinCubic.O), V (‖eisEmbedding b‖ ^ 2 / B) * A (b ^ 6)‖ ^ 2 ≤
768 * B * (Cmean * X ^ (2 + theta + 2 * epsilon))haverageIdentity:768 * B * (Cmean * X ^ (2 + theta + 2 * epsilon)) = (Average * X ^ averageExponent) ^ 2⊢ ‖∑ n ∈ outsideIdealsUpTo S D, baseChangeWeight chi n * W (↑(Ideal.absNorm n) / X) * totientDensity n‖ ≤
C * X ^ ((11 + 5 * theta) / 12 + epsilon)
rw [haverageIdentity q:ℕchi:DirichletCharacter ℂ qS:Finset (Ideal ActualEisensteinCubic.O)hbad:CanonicalQuadraticSieve.fixedBadPrimes ⊆ SW:ℝ → ℂa:ℝb:ℝ_ha:0 < ahsupport:Function.support W ⊆ Set.Icc a bhW:ContDiff ℝ ∞ Wtheta:ℝepsilon:ℝCmean:ℝhtheta:0 ≤ thetahepsilon:0 < epsilonhCmean:0 < Cmeanhmean:∀ (D : ℕ) (X : ℝ),
1 ≤ X →
b * X ≤ ↑D →
∀ (T : Finset ActualEisensteinCubic.O),
(∀ h ∈ T, ↑(Ideal.absNorm (Ideal.span {h})) ≤ X ^ (1 + theta)) →
(∀ h ∈ T, h ≠ 0) →
∑ h ∈ T, ‖idealRowSum (outsideIdealsUpTo S D) ⋯ ⋯ chi (fun n => W (↑n / X)) h‖ ^ 2 ≤
Cmean * X ^ (2 + theta + 2 * epsilon)V:𝓢(ℝ, ℂ)hV:∀ (x : ℝ), ‖V x‖ ≤ 1hVs:Function.support ⇑V ⊆ Set.Icc (1 / 2) 1hV0:V 0 = 0hVhat:paperRadialFourier (⇑V) 0 ≠ 0Cerror:ℝhCerror:0 < Cerrorherror:∀ {q : ℕ} (F : Finset (Ideal ActualEisensteinCubic.O)),
(∀ I ∈ F, I ≠ ⊥) →
∀ (χ : DirichletCharacter ℂ q) (W : ℕ → ℂ) (V : 𝓢(ℝ, ℂ)) (Y lengthScale G : ℝ),
0 < Y →
1 ≤ lengthScale →
0 ≤ G →
(∀ (n : ℕ), ‖W n‖ ≤ G) →
(∀ I ∈ F, W (Ideal.absNorm I) ≠ 0 → ↑(Ideal.absNorm I) ≤ lengthScale) →
‖∑ I ∈ F,
baseChangeWeight χ I * W (Ideal.absNorm I) *
maskedPrincipalRemainder (fun i => ↑i) (idealSupport F I) (⇑V) Y‖ ≤
Cerror * G * pvControl V * lengthScale ^ (1 + epsilon)hWcompact:HasCompactSupport WWs:𝓢(ℝ, ℂ) := hWcompact.toSchwartzMap hWG:ℝ := (SchwartzMap.seminorm ℝ 0 0) WssupportBound:ℝ := max 1 bError:ℝ := Cerror * G * pvControl V * supportBound ^ (1 + epsilon)Average:ℝ := √(768 * Cmean)alpha:ℝ := (1 + theta) / 6targetExponent:ℝ := (11 + 5 * theta) / 12 + epsilonaverageExponent:ℝ := alpha + targetExponentC:ℝ := (Average + Error) / ‖paperRadialFourier (⇑V) 0‖hG:0 ≤ GhSupportBound:1 ≤ supportBoundhError:0 ≤ ErrorhAverage:0 < Averagehhat:0 < ‖paperRadialFourier (⇑V) 0‖halpha:0 ≤ alphaD:ℕX:ℝhX:1 ≤ XhD:b * X ≤ ↑DhXpos:0 < XB:ℝ := X ^ alphahB:1 ≤ BhBpos:0 < BF:Finset (Ideal ConcretePrimeRowBridge.O) := outsideIdealsUpTo S DA:ActualEisensteinCubic.O → ℂ := idealRowSum F ⋯ ⋯ chi fun n => W (↑n / X)hBpower:B ^ 6 = X ^ (1 + theta)hsecondMoment:∑ h ∈ Finset.image (fun b => b ^ 6) (averagingRows B), ‖A h‖ ^ 2 ≤ Cmean * X ^ (2 + theta + 2 * epsilon)havgSquare:‖∑' (b : ActualEisensteinCubic.O), V (‖eisEmbedding b‖ ^ 2 / B) * A (b ^ 6)‖ ^ 2 ≤ (Average * X ^ averageExponent) ^ 2haverageIdentity:768 * B * (Cmean * X ^ (2 + theta + 2 * epsilon)) = (Average * X ^ averageExponent) ^ 2⊢ ‖∑ n ∈ outsideIdealsUpTo S D, baseChangeWeight chi n * W (↑(Ideal.absNorm n) / X) * totientDensity n‖ ≤
C * X ^ ((11 + 5 * theta) / 12 + epsilon)] at havgSquare q:ℕchi:DirichletCharacter ℂ qS:Finset (Ideal ActualEisensteinCubic.O)hbad:CanonicalQuadraticSieve.fixedBadPrimes ⊆ SW:ℝ → ℂa:ℝb:ℝ_ha:0 < ahsupport:Function.support W ⊆ Set.Icc a bhW:ContDiff ℝ ∞ Wtheta:ℝepsilon:ℝCmean:ℝhtheta:0 ≤ thetahepsilon:0 < epsilonhCmean:0 < Cmeanhmean:∀ (D : ℕ) (X : ℝ),
1 ≤ X →
b * X ≤ ↑D →
∀ (T : Finset ActualEisensteinCubic.O),
(∀ h ∈ T, ↑(Ideal.absNorm (Ideal.span {h})) ≤ X ^ (1 + theta)) →
(∀ h ∈ T, h ≠ 0) →
∑ h ∈ T, ‖idealRowSum (outsideIdealsUpTo S D) ⋯ ⋯ chi (fun n => W (↑n / X)) h‖ ^ 2 ≤
Cmean * X ^ (2 + theta + 2 * epsilon)V:𝓢(ℝ, ℂ)hV:∀ (x : ℝ), ‖V x‖ ≤ 1hVs:Function.support ⇑V ⊆ Set.Icc (1 / 2) 1hV0:V 0 = 0hVhat:paperRadialFourier (⇑V) 0 ≠ 0Cerror:ℝhCerror:0 < Cerrorherror:∀ {q : ℕ} (F : Finset (Ideal ActualEisensteinCubic.O)),
(∀ I ∈ F, I ≠ ⊥) →
∀ (χ : DirichletCharacter ℂ q) (W : ℕ → ℂ) (V : 𝓢(ℝ, ℂ)) (Y lengthScale G : ℝ),
0 < Y →
1 ≤ lengthScale →
0 ≤ G →
(∀ (n : ℕ), ‖W n‖ ≤ G) →
(∀ I ∈ F, W (Ideal.absNorm I) ≠ 0 → ↑(Ideal.absNorm I) ≤ lengthScale) →
‖∑ I ∈ F,
baseChangeWeight χ I * W (Ideal.absNorm I) *
maskedPrincipalRemainder (fun i => ↑i) (idealSupport F I) (⇑V) Y‖ ≤
Cerror * G * pvControl V * lengthScale ^ (1 + epsilon)hWcompact:HasCompactSupport WWs:𝓢(ℝ, ℂ) := hWcompact.toSchwartzMap hWG:ℝ := (SchwartzMap.seminorm ℝ 0 0) WssupportBound:ℝ := max 1 bError:ℝ := Cerror * G * pvControl V * supportBound ^ (1 + epsilon)Average:ℝ := √(768 * Cmean)alpha:ℝ := (1 + theta) / 6targetExponent:ℝ := (11 + 5 * theta) / 12 + epsilonaverageExponent:ℝ := alpha + targetExponentC:ℝ := (Average + Error) / ‖paperRadialFourier (⇑V) 0‖hG:0 ≤ GhSupportBound:1 ≤ supportBoundhError:0 ≤ ErrorhAverage:0 < Averagehhat:0 < ‖paperRadialFourier (⇑V) 0‖halpha:0 ≤ alphaD:ℕX:ℝhX:1 ≤ XhD:b * X ≤ ↑DhXpos:0 < XB:ℝ := X ^ alphahB:1 ≤ BhBpos:0 < BF:Finset (Ideal ConcretePrimeRowBridge.O) := outsideIdealsUpTo S DA:ActualEisensteinCubic.O → ℂ := idealRowSum F ⋯ ⋯ chi fun n => W (↑n / X)hBpower:B ^ 6 = X ^ (1 + theta)hsecondMoment:∑ h ∈ Finset.image (fun b => b ^ 6) (averagingRows B), ‖A h‖ ^ 2 ≤ Cmean * X ^ (2 + theta + 2 * epsilon)havgSquare:‖∑' (b : ActualEisensteinCubic.O), V (‖eisEmbedding b‖ ^ 2 / B) * A (b ^ 6)‖ ^ 2 ≤ (Average * X ^ averageExponent) ^ 2haverageIdentity:768 * B * (Cmean * X ^ (2 + theta + 2 * epsilon)) = (Average * X ^ averageExponent) ^ 2⊢ ‖∑ n ∈ outsideIdealsUpTo S D, baseChangeWeight chi n * W (↑(Ideal.absNorm n) / X) * totientDensity n‖ ≤
C * X ^ ((11 + 5 * theta) / 12 + epsilon)
have havg :
‖∑' b : OAI.ActualEisensteinCubic.O,
V (‖eisEmbedding b‖ ^ 2 / B) * A (b ^ 6)‖ ≤
Average * X ^ averageExponent :=
(sq_le_sq₀ (norm_nonneg _) (by q:ℕchi:DirichletCharacter ℂ qS:Finset (Ideal ActualEisensteinCubic.O)hbad:CanonicalQuadraticSieve.fixedBadPrimes ⊆ SW:ℝ → ℂa:ℝb:ℝ_ha:0 < ahsupport:Function.support W ⊆ Set.Icc a bhW:ContDiff ℝ ∞ Wtheta:ℝepsilon:ℝCmean:ℝhtheta:0 ≤ thetahepsilon:0 < epsilonhCmean:0 < Cmeanhmean:∀ (D : ℕ) (X : ℝ),
1 ≤ X →
b * X ≤ ↑D →
∀ (T : Finset ActualEisensteinCubic.O),
(∀ h ∈ T, ↑(Ideal.absNorm (Ideal.span {h})) ≤ X ^ (1 + theta)) →
(∀ h ∈ T, h ≠ 0) →
∑ h ∈ T, ‖idealRowSum (outsideIdealsUpTo S D) ⋯ ⋯ chi (fun n => W (↑n / X)) h‖ ^ 2 ≤
Cmean * X ^ (2 + theta + 2 * epsilon)V:𝓢(ℝ, ℂ)hV:∀ (x : ℝ), ‖V x‖ ≤ 1hVs:Function.support ⇑V ⊆ Set.Icc (1 / 2) 1hV0:V 0 = 0hVhat:paperRadialFourier (⇑V) 0 ≠ 0Cerror:ℝhCerror:0 < Cerrorherror:∀ {q : ℕ} (F : Finset (Ideal ActualEisensteinCubic.O)),
(∀ I ∈ F, I ≠ ⊥) →
∀ (χ : DirichletCharacter ℂ q) (W : ℕ → ℂ) (V : 𝓢(ℝ, ℂ)) (Y lengthScale G : ℝ),
0 < Y →
1 ≤ lengthScale →
0 ≤ G →
(∀ (n : ℕ), ‖W n‖ ≤ G) →
(∀ I ∈ F, W (Ideal.absNorm I) ≠ 0 → ↑(Ideal.absNorm I) ≤ lengthScale) →
‖∑ I ∈ F,
baseChangeWeight χ I * W (Ideal.absNorm I) *
maskedPrincipalRemainder (fun i => ↑i) (idealSupport F I) (⇑V) Y‖ ≤
Cerror * G * pvControl V * lengthScale ^ (1 + epsilon)hWcompact:HasCompactSupport WWs:𝓢(ℝ, ℂ) := hWcompact.toSchwartzMap hWG:ℝ := (SchwartzMap.seminorm ℝ 0 0) WssupportBound:ℝ := max 1 bError:ℝ := Cerror * G * pvControl V * supportBound ^ (1 + epsilon)Average:ℝ := √(768 * Cmean)alpha:ℝ := (1 + theta) / 6targetExponent:ℝ := (11 + 5 * theta) / 12 + epsilonaverageExponent:ℝ := alpha + targetExponentC:ℝ := (Average + Error) / ‖paperRadialFourier (⇑V) 0‖hG:0 ≤ GhSupportBound:1 ≤ supportBoundhError:0 ≤ ErrorhAverage:0 < Averagehhat:0 < ‖paperRadialFourier (⇑V) 0‖halpha:0 ≤ alphaD:ℕX:ℝhX:1 ≤ XhD:b * X ≤ ↑DhXpos:0 < XB:ℝ := X ^ alphahB:1 ≤ BhBpos:0 < BF:Finset (Ideal ConcretePrimeRowBridge.O) := outsideIdealsUpTo S DA:ActualEisensteinCubic.O → ℂ := idealRowSum F ⋯ ⋯ chi fun n => W (↑n / X)hBpower:B ^ 6 = X ^ (1 + theta)hsecondMoment:∑ h ∈ Finset.image (fun b => b ^ 6) (averagingRows B), ‖A h‖ ^ 2 ≤ Cmean * X ^ (2 + theta + 2 * epsilon)havgSquare:‖∑' (b : ActualEisensteinCubic.O), V (‖eisEmbedding b‖ ^ 2 / B) * A (b ^ 6)‖ ^ 2 ≤ (Average * X ^ averageExponent) ^ 2haverageIdentity:768 * B * (Cmean * X ^ (2 + theta + 2 * epsilon)) = (Average * X ^ averageExponent) ^ 2⊢ 0 ≤ Average * X ^ averageExponent positivity All goals completed! 🐙)).mp havgSquare q:ℕchi:DirichletCharacter ℂ qS:Finset (Ideal ActualEisensteinCubic.O)hbad:CanonicalQuadraticSieve.fixedBadPrimes ⊆ SW:ℝ → ℂa:ℝb:ℝ_ha:0 < ahsupport:Function.support W ⊆ Set.Icc a bhW:ContDiff ℝ ∞ Wtheta:ℝepsilon:ℝCmean:ℝhtheta:0 ≤ thetahepsilon:0 < epsilonhCmean:0 < Cmeanhmean:∀ (D : ℕ) (X : ℝ),
1 ≤ X →
b * X ≤ ↑D →
∀ (T : Finset ActualEisensteinCubic.O),
(∀ h ∈ T, ↑(Ideal.absNorm (Ideal.span {h})) ≤ X ^ (1 + theta)) →
(∀ h ∈ T, h ≠ 0) →
∑ h ∈ T, ‖idealRowSum (outsideIdealsUpTo S D) ⋯ ⋯ chi (fun n => W (↑n / X)) h‖ ^ 2 ≤
Cmean * X ^ (2 + theta + 2 * epsilon)V:𝓢(ℝ, ℂ)hV:∀ (x : ℝ), ‖V x‖ ≤ 1hVs:Function.support ⇑V ⊆ Set.Icc (1 / 2) 1hV0:V 0 = 0hVhat:paperRadialFourier (⇑V) 0 ≠ 0Cerror:ℝhCerror:0 < Cerrorherror:∀ {q : ℕ} (F : Finset (Ideal ActualEisensteinCubic.O)),
(∀ I ∈ F, I ≠ ⊥) →
∀ (χ : DirichletCharacter ℂ q) (W : ℕ → ℂ) (V : 𝓢(ℝ, ℂ)) (Y lengthScale G : ℝ),
0 < Y →
1 ≤ lengthScale →
0 ≤ G →
(∀ (n : ℕ), ‖W n‖ ≤ G) →
(∀ I ∈ F, W (Ideal.absNorm I) ≠ 0 → ↑(Ideal.absNorm I) ≤ lengthScale) →
‖∑ I ∈ F,
baseChangeWeight χ I * W (Ideal.absNorm I) *
maskedPrincipalRemainder (fun i => ↑i) (idealSupport F I) (⇑V) Y‖ ≤
Cerror * G * pvControl V * lengthScale ^ (1 + epsilon)hWcompact:HasCompactSupport WWs:𝓢(ℝ, ℂ) := hWcompact.toSchwartzMap hWG:ℝ := (SchwartzMap.seminorm ℝ 0 0) WssupportBound:ℝ := max 1 bError:ℝ := Cerror * G * pvControl V * supportBound ^ (1 + epsilon)Average:ℝ := √(768 * Cmean)alpha:ℝ := (1 + theta) / 6targetExponent:ℝ := (11 + 5 * theta) / 12 + epsilonaverageExponent:ℝ := alpha + targetExponentC:ℝ := (Average + Error) / ‖paperRadialFourier (⇑V) 0‖hG:0 ≤ GhSupportBound:1 ≤ supportBoundhError:0 ≤ ErrorhAverage:0 < Averagehhat:0 < ‖paperRadialFourier (⇑V) 0‖halpha:0 ≤ alphaD:ℕX:ℝhX:1 ≤ XhD:b * X ≤ ↑DhXpos:0 < XB:ℝ := X ^ alphahB:1 ≤ BhBpos:0 < BF:Finset (Ideal ConcretePrimeRowBridge.O) := outsideIdealsUpTo S DA:ActualEisensteinCubic.O → ℂ := idealRowSum F ⋯ ⋯ chi fun n => W (↑n / X)hBpower:B ^ 6 = X ^ (1 + theta)hsecondMoment:∑ h ∈ Finset.image (fun b => b ^ 6) (averagingRows B), ‖A h‖ ^ 2 ≤ Cmean * X ^ (2 + theta + 2 * epsilon)havgSquare:‖∑' (b : ActualEisensteinCubic.O), V (‖eisEmbedding b‖ ^ 2 / B) * A (b ^ 6)‖ ^ 2 ≤ (Average * X ^ averageExponent) ^ 2haverageIdentity:768 * B * (Cmean * X ^ (2 + theta + 2 * epsilon)) = (Average * X ^ averageExponent) ^ 2havg:‖∑' (b : ActualEisensteinCubic.O), V (‖eisEmbedding b‖ ^ 2 / B) * A (b ^ 6)‖ ≤ Average * X ^ averageExponent⊢ ‖∑ n ∈ outsideIdealsUpTo S D, baseChangeWeight chi n * W (↑(Ideal.absNorm n) / X) * totientDensity n‖ ≤
C * X ^ ((11 + 5 * theta) / 12 + epsilon)
have hremainder :
‖∑ n ∈ F,
baseChangeWeight chi n * W ((Ideal.absNorm n : ℝ) / X) *
maskedPrincipalRemainder (fun i : primePool F ↦ i.val)
(idealSupport F n) V B‖ ≤
Error * X ^ (1 + epsilon) := by q:ℕchi:DirichletCharacter ℂ qS:Finset (Ideal ActualEisensteinCubic.O)hbad:CanonicalQuadraticSieve.fixedBadPrimes ⊆ SW:ℝ → ℂa:ℝb:ℝ_ha:0 < ahsupport:Function.support W ⊆ Set.Icc a bhW:ContDiff ℝ ∞ Wtheta:ℝepsilon:ℝCmean:ℝhtheta:0 ≤ thetahepsilon:0 < epsilonhCmean:0 < Cmeanhmean:∀ (D : ℕ) (X : ℝ),
1 ≤ X →
b * X ≤ ↑D →
∀ (T : Finset ActualEisensteinCubic.O),
(∀ h ∈ T, ↑(Ideal.absNorm (Ideal.span {h})) ≤ X ^ (1 + theta)) →
(∀ h ∈ T, h ≠ 0) →
∑ h ∈ T, ‖idealRowSum (outsideIdealsUpTo S D) ⋯ ⋯ chi (fun n => W (↑n / X)) h‖ ^ 2 ≤
Cmean * X ^ (2 + theta + 2 * epsilon)⊢ ∃ C,
0 < C ∧
∀ (D : ℕ) (X : ℝ),
1 ≤ X →
b * X ≤ ↑D →
‖∑ n ∈ outsideIdealsUpTo S D, baseChangeWeight chi n * W (↑(Ideal.absNorm n) / X) * totientDensity n‖ ≤
C * X ^ ((11 + 5 * theta) / 12 + epsilon)
have hBZ : 1 ≤ supportBound * X := by q:ℕchi:DirichletCharacter ℂ qS:Finset (Ideal ActualEisensteinCubic.O)hbad:CanonicalQuadraticSieve.fixedBadPrimes ⊆ SW:ℝ → ℂa:ℝb:ℝ_ha:0 < ahsupport:Function.support W ⊆ Set.Icc a bhW:ContDiff ℝ ∞ Wtheta:ℝepsilon:ℝCmean:ℝhtheta:0 ≤ thetahepsilon:0 < epsilonhCmean:0 < Cmeanhmean:∀ (D : ℕ) (X : ℝ),
1 ≤ X →
b * X ≤ ↑D →
∀ (T : Finset ActualEisensteinCubic.O),
(∀ h ∈ T, ↑(Ideal.absNorm (Ideal.span {h})) ≤ X ^ (1 + theta)) →
(∀ h ∈ T, h ≠ 0) →
∑ h ∈ T, ‖idealRowSum (outsideIdealsUpTo S D) ⋯ ⋯ chi (fun n => W (↑n / X)) h‖ ^ 2 ≤
Cmean * X ^ (2 + theta + 2 * epsilon)⊢ ∃ C,
0 < C ∧
∀ (D : ℕ) (X : ℝ),
1 ≤ X →
b * X ≤ ↑D →
‖∑ n ∈ outsideIdealsUpTo S D, baseChangeWeight chi n * W (↑(Ideal.absNorm n) / X) * totientDensity n‖ ≤
C * X ^ ((11 + 5 * theta) / 12 + epsilon)
nlinarith [mul_nonneg (sub_nonneg.mpr hSupportBound) (sub_nonneg.mpr hX)] q:ℕchi:DirichletCharacter ℂ qS:Finset (Ideal ActualEisensteinCubic.O)hbad:CanonicalQuadraticSieve.fixedBadPrimes ⊆ SW:ℝ → ℂa:ℝb:ℝ_ha:0 < ahsupport:Function.support W ⊆ Set.Icc a bhW:ContDiff ℝ ∞ Wtheta:ℝepsilon:ℝCmean:ℝhtheta:0 ≤ thetahepsilon:0 < epsilonhCmean:0 < Cmeanhmean:∀ (D : ℕ) (X : ℝ),
1 ≤ X →
b * X ≤ ↑D →
∀ (T : Finset ActualEisensteinCubic.O),
(∀ h ∈ T, ↑(Ideal.absNorm (Ideal.span {h})) ≤ X ^ (1 + theta)) →
(∀ h ∈ T, h ≠ 0) →
∑ h ∈ T, ‖idealRowSum (outsideIdealsUpTo S D) ⋯ ⋯ chi (fun n => W (↑n / X)) h‖ ^ 2 ≤
Cmean * X ^ (2 + theta + 2 * epsilon)V:𝓢(ℝ, ℂ)hV:∀ (x : ℝ), ‖V x‖ ≤ 1hVs:Function.support ⇑V ⊆ Set.Icc (1 / 2) 1hV0:V 0 = 0hVhat:paperRadialFourier (⇑V) 0 ≠ 0Cerror:ℝhCerror:0 < Cerrorherror:∀ {q : ℕ} (F : Finset (Ideal ActualEisensteinCubic.O)),
(∀ I ∈ F, I ≠ ⊥) →
∀ (χ : DirichletCharacter ℂ q) (W : ℕ → ℂ) (V : 𝓢(ℝ, ℂ)) (Y lengthScale G : ℝ),
0 < Y →
1 ≤ lengthScale →
0 ≤ G →
(∀ (n : ℕ), ‖W n‖ ≤ G) →
(∀ I ∈ F, W (Ideal.absNorm I) ≠ 0 → ↑(Ideal.absNorm I) ≤ lengthScale) →
‖∑ I ∈ F,
baseChangeWeight χ I * W (Ideal.absNorm I) *
maskedPrincipalRemainder (fun i => ↑i) (idealSupport F I) (⇑V) Y‖ ≤
Cerror * G * pvControl V * lengthScale ^ (1 + epsilon)hWcompact:HasCompactSupport WWs:𝓢(ℝ, ℂ) := hWcompact.toSchwartzMap hWG:ℝ := (SchwartzMap.seminorm ℝ 0 0) WssupportBound:ℝ := max 1 bError:ℝ := Cerror * G * pvControl V * supportBound ^ (1 + epsilon)Average:ℝ := √(768 * Cmean)alpha:ℝ := (1 + theta) / 6targetExponent:ℝ := (11 + 5 * theta) / 12 + epsilonaverageExponent:ℝ := alpha + targetExponentC:ℝ := (Average + Error) / ‖paperRadialFourier (⇑V) 0‖hG:0 ≤ GhSupportBound:1 ≤ supportBoundhError:0 ≤ ErrorhAverage:0 < Averagehhat:0 < ‖paperRadialFourier (⇑V) 0‖halpha:0 ≤ alphaD:ℕX:ℝhX:1 ≤ XhD:b * X ≤ ↑DhXpos:0 < XB:ℝ := X ^ alphahB:1 ≤ BhBpos:0 < BF:Finset (Ideal ConcretePrimeRowBridge.O) := outsideIdealsUpTo S DA:ActualEisensteinCubic.O → ℂ := idealRowSum F ⋯ ⋯ chi fun n => W (↑n / X)hBpower:B ^ 6 = X ^ (1 + theta)hsecondMoment:∑ h ∈ Finset.image (fun b => b ^ 6) (averagingRows B), ‖A h‖ ^ 2 ≤ Cmean * X ^ (2 + theta + 2 * epsilon)havgSquare:‖∑' (b : ActualEisensteinCubic.O), V (‖eisEmbedding b‖ ^ 2 / B) * A (b ^ 6)‖ ^ 2 ≤ (Average * X ^ averageExponent) ^ 2haverageIdentity:768 * B * (Cmean * X ^ (2 + theta + 2 * epsilon)) = (Average * X ^ averageExponent) ^ 2havg:‖∑' (b : ActualEisensteinCubic.O), V (‖eisEmbedding b‖ ^ 2 / B) * A (b ^ 6)‖ ≤ Average * X ^ averageExponenthBZ:1 ≤ supportBound * X⊢ ‖∑ n ∈ F,
baseChangeWeight chi n * W (↑(Ideal.absNorm n) / X) *
maskedPrincipalRemainder (fun i => ↑i) (idealSupport F n) (⇑V) B‖ ≤
Error * X ^ (1 + epsilon)
have hbound := herror F (outsideIdealsUpTo_ne_bot S D) chi
(fun n ↦ W (n / X)) V B (supportBound * X) G hBpos hBZ hG
(fun n ↦ Ws.norm_le_seminorm ℝ (n / X)) (by q:ℕchi:DirichletCharacter ℂ qS:Finset (Ideal ActualEisensteinCubic.O)hbad:CanonicalQuadraticSieve.fixedBadPrimes ⊆ SW:ℝ → ℂa:ℝb:ℝ_ha:0 < ahsupport:Function.support W ⊆ Set.Icc a bhW:ContDiff ℝ ∞ Wtheta:ℝepsilon:ℝCmean:ℝhtheta:0 ≤ thetahepsilon:0 < epsilonhCmean:0 < Cmeanhmean:∀ (D : ℕ) (X : ℝ),
1 ≤ X →
b * X ≤ ↑D →
∀ (T : Finset ActualEisensteinCubic.O),
(∀ h ∈ T, ↑(Ideal.absNorm (Ideal.span {h})) ≤ X ^ (1 + theta)) →
(∀ h ∈ T, h ≠ 0) →
∑ h ∈ T, ‖idealRowSum (outsideIdealsUpTo S D) ⋯ ⋯ chi (fun n => W (↑n / X)) h‖ ^ 2 ≤
Cmean * X ^ (2 + theta + 2 * epsilon)V:𝓢(ℝ, ℂ)hV:∀ (x : ℝ), ‖V x‖ ≤ 1hVs:Function.support ⇑V ⊆ Set.Icc (1 / 2) 1hV0:V 0 = 0hVhat:paperRadialFourier (⇑V) 0 ≠ 0Cerror:ℝhCerror:0 < Cerrorherror:∀ {q : ℕ} (F : Finset (Ideal ActualEisensteinCubic.O)),
(∀ I ∈ F, I ≠ ⊥) →
∀ (χ : DirichletCharacter ℂ q) (W : ℕ → ℂ) (V : 𝓢(ℝ, ℂ)) (Y lengthScale G : ℝ),
0 < Y →
1 ≤ lengthScale →
0 ≤ G →
(∀ (n : ℕ), ‖W n‖ ≤ G) →
(∀ I ∈ F, W (Ideal.absNorm I) ≠ 0 → ↑(Ideal.absNorm I) ≤ lengthScale) →
‖∑ I ∈ F,
baseChangeWeight χ I * W (Ideal.absNorm I) *
maskedPrincipalRemainder (fun i => ↑i) (idealSupport F I) (⇑V) Y‖ ≤
Cerror * G * pvControl V * lengthScale ^ (1 + epsilon)hWcompact:HasCompactSupport WWs:𝓢(ℝ, ℂ) := hWcompact.toSchwartzMap hWG:ℝ := (SchwartzMap.seminorm ℝ 0 0) WssupportBound:ℝ := max 1 bError:ℝ := Cerror * G * pvControl V * supportBound ^ (1 + epsilon)Average:ℝ := √(768 * Cmean)alpha:ℝ := (1 + theta) / 6targetExponent:ℝ := (11 + 5 * theta) / 12 + epsilonaverageExponent:ℝ := alpha + targetExponentC:ℝ := (Average + Error) / ‖paperRadialFourier (⇑V) 0‖hG:0 ≤ GhSupportBound:1 ≤ supportBoundhError:0 ≤ ErrorhAverage:0 < Averagehhat:0 < ‖paperRadialFourier (⇑V) 0‖halpha:0 ≤ alphaD:ℕX:ℝhX:1 ≤ XhD:b * X ≤ ↑DhXpos:0 < XB:ℝ := X ^ alphahB:1 ≤ BhBpos:0 < BF:Finset (Ideal ConcretePrimeRowBridge.O) := outsideIdealsUpTo S DA:ActualEisensteinCubic.O → ℂ := idealRowSum F ⋯ ⋯ chi fun n => W (↑n / X)hBpower:B ^ 6 = X ^ (1 + theta)hsecondMoment:∑ h ∈ Finset.image (fun b => b ^ 6) (averagingRows B), ‖A h‖ ^ 2 ≤ Cmean * X ^ (2 + theta + 2 * epsilon)havgSquare:‖∑' (b : ActualEisensteinCubic.O), V (‖eisEmbedding b‖ ^ 2 / B) * A (b ^ 6)‖ ^ 2 ≤ (Average * X ^ averageExponent) ^ 2haverageIdentity:768 * B * (Cmean * X ^ (2 + theta + 2 * epsilon)) = (Average * X ^ averageExponent) ^ 2havg:‖∑' (b : ActualEisensteinCubic.O), V (‖eisEmbedding b‖ ^ 2 / B) * A (b ^ 6)‖ ≤ Average * X ^ averageExponenthBZ:1 ≤ supportBound * X⊢ ∀ I ∈ F, W (↑(Ideal.absNorm I) / X) ≠ 0 → ↑(Ideal.absNorm I) ≤ supportBound * X
intro n hI hn q:ℕchi:DirichletCharacter ℂ qS:Finset (Ideal ActualEisensteinCubic.O)hbad:CanonicalQuadraticSieve.fixedBadPrimes ⊆ SW:ℝ → ℂa:ℝb:ℝ_ha:0 < ahsupport:Function.support W ⊆ Set.Icc a bhW:ContDiff ℝ ∞ Wtheta:ℝepsilon:ℝCmean:ℝhtheta:0 ≤ thetahepsilon:0 < epsilonhCmean:0 < Cmeanhmean:∀ (D : ℕ) (X : ℝ),
1 ≤ X →
b * X ≤ ↑D →
∀ (T : Finset ActualEisensteinCubic.O),
(∀ h ∈ T, ↑(Ideal.absNorm (Ideal.span {h})) ≤ X ^ (1 + theta)) →
(∀ h ∈ T, h ≠ 0) →
∑ h ∈ T, ‖idealRowSum (outsideIdealsUpTo S D) ⋯ ⋯ chi (fun n => W (↑n / X)) h‖ ^ 2 ≤
Cmean * X ^ (2 + theta + 2 * epsilon)V:𝓢(ℝ, ℂ)hV:∀ (x : ℝ), ‖V x‖ ≤ 1hVs:Function.support ⇑V ⊆ Set.Icc (1 / 2) 1hV0:V 0 = 0hVhat:paperRadialFourier (⇑V) 0 ≠ 0Cerror:ℝhCerror:0 < Cerrorherror:∀ {q : ℕ} (F : Finset (Ideal ActualEisensteinCubic.O)),
(∀ I ∈ F, I ≠ ⊥) →
∀ (χ : DirichletCharacter ℂ q) (W : ℕ → ℂ) (V : 𝓢(ℝ, ℂ)) (Y lengthScale G : ℝ),
0 < Y →
1 ≤ lengthScale →
0 ≤ G →
(∀ (n : ℕ), ‖W n‖ ≤ G) →
(∀ I ∈ F, W (Ideal.absNorm I) ≠ 0 → ↑(Ideal.absNorm I) ≤ lengthScale) →
‖∑ I ∈ F,
baseChangeWeight χ I * W (Ideal.absNorm I) *
maskedPrincipalRemainder (fun i => ↑i) (idealSupport F I) (⇑V) Y‖ ≤
Cerror * G * pvControl V * lengthScale ^ (1 + epsilon)hWcompact:HasCompactSupport WWs:𝓢(ℝ, ℂ) := hWcompact.toSchwartzMap hWG:ℝ := (SchwartzMap.seminorm ℝ 0 0) WssupportBound:ℝ := max 1 bError:ℝ := Cerror * G * pvControl V * supportBound ^ (1 + epsilon)Average:ℝ := √(768 * Cmean)alpha:ℝ := (1 + theta) / 6targetExponent:ℝ := (11 + 5 * theta) / 12 + epsilonaverageExponent:ℝ := alpha + targetExponentC:ℝ := (Average + Error) / ‖paperRadialFourier (⇑V) 0‖hG:0 ≤ GhSupportBound:1 ≤ supportBoundhError:0 ≤ ErrorhAverage:0 < Averagehhat:0 < ‖paperRadialFourier (⇑V) 0‖halpha:0 ≤ alphaD:ℕX:ℝhX:1 ≤ XhD:b * X ≤ ↑DhXpos:0 < XB:ℝ := X ^ alphahB:1 ≤ BhBpos:0 < BF:Finset (Ideal ConcretePrimeRowBridge.O) := outsideIdealsUpTo S DA:ActualEisensteinCubic.O → ℂ := idealRowSum F ⋯ ⋯ chi fun n => W (↑n / X)hBpower:B ^ 6 = X ^ (1 + theta)hsecondMoment:∑ h ∈ Finset.image (fun b => b ^ 6) (averagingRows B), ‖A h‖ ^ 2 ≤ Cmean * X ^ (2 + theta + 2 * epsilon)havgSquare:‖∑' (b : ActualEisensteinCubic.O), V (‖eisEmbedding b‖ ^ 2 / B) * A (b ^ 6)‖ ^ 2 ≤ (Average * X ^ averageExponent) ^ 2haverageIdentity:768 * B * (Cmean * X ^ (2 + theta + 2 * epsilon)) = (Average * X ^ averageExponent) ^ 2havg:‖∑' (b : ActualEisensteinCubic.O), V (‖eisEmbedding b‖ ^ 2 / B) * A (b ^ 6)‖ ≤ Average * X ^ averageExponenthBZ:1 ≤ supportBound * Xn:Ideal ActualEisensteinCubic.OhI:n ∈ Fhn:W (↑(Ideal.absNorm n) / X) ≠ 0⊢ ↑(Ideal.absNorm n) ≤ supportBound * X
have hsupportUpper := (hsupport hn).2 q:ℕchi:DirichletCharacter ℂ qS:Finset (Ideal ActualEisensteinCubic.O)hbad:CanonicalQuadraticSieve.fixedBadPrimes ⊆ SW:ℝ → ℂa:ℝb:ℝ_ha:0 < ahsupport:Function.support W ⊆ Set.Icc a bhW:ContDiff ℝ ∞ Wtheta:ℝepsilon:ℝCmean:ℝhtheta:0 ≤ thetahepsilon:0 < epsilonhCmean:0 < Cmeanhmean:∀ (D : ℕ) (X : ℝ),
1 ≤ X →
b * X ≤ ↑D →
∀ (T : Finset ActualEisensteinCubic.O),
(∀ h ∈ T, ↑(Ideal.absNorm (Ideal.span {h})) ≤ X ^ (1 + theta)) →
(∀ h ∈ T, h ≠ 0) →
∑ h ∈ T, ‖idealRowSum (outsideIdealsUpTo S D) ⋯ ⋯ chi (fun n => W (↑n / X)) h‖ ^ 2 ≤
Cmean * X ^ (2 + theta + 2 * epsilon)V:𝓢(ℝ, ℂ)hV:∀ (x : ℝ), ‖V x‖ ≤ 1hVs:Function.support ⇑V ⊆ Set.Icc (1 / 2) 1hV0:V 0 = 0hVhat:paperRadialFourier (⇑V) 0 ≠ 0Cerror:ℝhCerror:0 < Cerrorherror:∀ {q : ℕ} (F : Finset (Ideal ActualEisensteinCubic.O)),
(∀ I ∈ F, I ≠ ⊥) →
∀ (χ : DirichletCharacter ℂ q) (W : ℕ → ℂ) (V : 𝓢(ℝ, ℂ)) (Y lengthScale G : ℝ),
0 < Y →
1 ≤ lengthScale →
0 ≤ G →
(∀ (n : ℕ), ‖W n‖ ≤ G) →
(∀ I ∈ F, W (Ideal.absNorm I) ≠ 0 → ↑(Ideal.absNorm I) ≤ lengthScale) →
‖∑ I ∈ F,
baseChangeWeight χ I * W (Ideal.absNorm I) *
maskedPrincipalRemainder (fun i => ↑i) (idealSupport F I) (⇑V) Y‖ ≤
Cerror * G * pvControl V * lengthScale ^ (1 + epsilon)hWcompact:HasCompactSupport WWs:𝓢(ℝ, ℂ) := hWcompact.toSchwartzMap hWG:ℝ := (SchwartzMap.seminorm ℝ 0 0) WssupportBound:ℝ := max 1 bError:ℝ := Cerror * G * pvControl V * supportBound ^ (1 + epsilon)Average:ℝ := √(768 * Cmean)alpha:ℝ := (1 + theta) / 6targetExponent:ℝ := (11 + 5 * theta) / 12 + epsilonaverageExponent:ℝ := alpha + targetExponentC:ℝ := (Average + Error) / ‖paperRadialFourier (⇑V) 0‖hG:0 ≤ GhSupportBound:1 ≤ supportBoundhError:0 ≤ ErrorhAverage:0 < Averagehhat:0 < ‖paperRadialFourier (⇑V) 0‖halpha:0 ≤ alphaD:ℕX:ℝhX:1 ≤ XhD:b * X ≤ ↑DhXpos:0 < XB:ℝ := X ^ alphahB:1 ≤ BhBpos:0 < BF:Finset (Ideal ConcretePrimeRowBridge.O) := outsideIdealsUpTo S DA:ActualEisensteinCubic.O → ℂ := idealRowSum F ⋯ ⋯ chi fun n => W (↑n / X)hBpower:B ^ 6 = X ^ (1 + theta)hsecondMoment:∑ h ∈ Finset.image (fun b => b ^ 6) (averagingRows B), ‖A h‖ ^ 2 ≤ Cmean * X ^ (2 + theta + 2 * epsilon)havgSquare:‖∑' (b : ActualEisensteinCubic.O), V (‖eisEmbedding b‖ ^ 2 / B) * A (b ^ 6)‖ ^ 2 ≤ (Average * X ^ averageExponent) ^ 2haverageIdentity:768 * B * (Cmean * X ^ (2 + theta + 2 * epsilon)) = (Average * X ^ averageExponent) ^ 2havg:‖∑' (b : ActualEisensteinCubic.O), V (‖eisEmbedding b‖ ^ 2 / B) * A (b ^ 6)‖ ≤ Average * X ^ averageExponenthBZ:1 ≤ supportBound * Xn:Ideal ActualEisensteinCubic.OhI:n ∈ Fhn:W (↑(Ideal.absNorm n) / X) ≠ 0hsupportUpper:↑(Ideal.absNorm n) / X ≤ b⊢ ↑(Ideal.absNorm n) ≤ supportBound * X
exact ((div_le_iff₀ hXpos).mp hsupportUpper).trans
(mul_le_mul_of_nonneg_right (le_max_right 1 b) hXpos.le) All goals completed! 🐙) q:ℕchi:DirichletCharacter ℂ qS:Finset (Ideal ActualEisensteinCubic.O)hbad:CanonicalQuadraticSieve.fixedBadPrimes ⊆ SW:ℝ → ℂa:ℝb:ℝ_ha:0 < ahsupport:Function.support W ⊆ Set.Icc a bhW:ContDiff ℝ ∞ Wtheta:ℝepsilon:ℝCmean:ℝhtheta:0 ≤ thetahepsilon:0 < epsilonhCmean:0 < Cmeanhmean:∀ (D : ℕ) (X : ℝ),
1 ≤ X →
b * X ≤ ↑D →
∀ (T : Finset ActualEisensteinCubic.O),
(∀ h ∈ T, ↑(Ideal.absNorm (Ideal.span {h})) ≤ X ^ (1 + theta)) →
(∀ h ∈ T, h ≠ 0) →
∑ h ∈ T, ‖idealRowSum (outsideIdealsUpTo S D) ⋯ ⋯ chi (fun n => W (↑n / X)) h‖ ^ 2 ≤
Cmean * X ^ (2 + theta + 2 * epsilon)V:𝓢(ℝ, ℂ)hV:∀ (x : ℝ), ‖V x‖ ≤ 1hVs:Function.support ⇑V ⊆ Set.Icc (1 / 2) 1hV0:V 0 = 0hVhat:paperRadialFourier (⇑V) 0 ≠ 0Cerror:ℝhCerror:0 < Cerrorherror:∀ {q : ℕ} (F : Finset (Ideal ActualEisensteinCubic.O)),
(∀ I ∈ F, I ≠ ⊥) →
∀ (χ : DirichletCharacter ℂ q) (W : ℕ → ℂ) (V : 𝓢(ℝ, ℂ)) (Y lengthScale G : ℝ),
0 < Y →
1 ≤ lengthScale →
0 ≤ G →
(∀ (n : ℕ), ‖W n‖ ≤ G) →
(∀ I ∈ F, W (Ideal.absNorm I) ≠ 0 → ↑(Ideal.absNorm I) ≤ lengthScale) →
‖∑ I ∈ F,
baseChangeWeight χ I * W (Ideal.absNorm I) *
maskedPrincipalRemainder (fun i => ↑i) (idealSupport F I) (⇑V) Y‖ ≤
Cerror * G * pvControl V * lengthScale ^ (1 + epsilon)hWcompact:HasCompactSupport WWs:𝓢(ℝ, ℂ) := hWcompact.toSchwartzMap hWG:ℝ := (SchwartzMap.seminorm ℝ 0 0) WssupportBound:ℝ := max 1 bError:ℝ := Cerror * G * pvControl V * supportBound ^ (1 + epsilon)Average:ℝ := √(768 * Cmean)alpha:ℝ := (1 + theta) / 6targetExponent:ℝ := (11 + 5 * theta) / 12 + epsilonaverageExponent:ℝ := alpha + targetExponentC:ℝ := (Average + Error) / ‖paperRadialFourier (⇑V) 0‖hG:0 ≤ GhSupportBound:1 ≤ supportBoundhError:0 ≤ ErrorhAverage:0 < Averagehhat:0 < ‖paperRadialFourier (⇑V) 0‖halpha:0 ≤ alphaD:ℕX:ℝhX:1 ≤ XhD:b * X ≤ ↑DhXpos:0 < XB:ℝ := X ^ alphahB:1 ≤ BhBpos:0 < BF:Finset (Ideal ConcretePrimeRowBridge.O) := outsideIdealsUpTo S DA:ActualEisensteinCubic.O → ℂ := idealRowSum F ⋯ ⋯ chi fun n => W (↑n / X)hBpower:B ^ 6 = X ^ (1 + theta)hsecondMoment:∑ h ∈ Finset.image (fun b => b ^ 6) (averagingRows B), ‖A h‖ ^ 2 ≤ Cmean * X ^ (2 + theta + 2 * epsilon)havgSquare:‖∑' (b : ActualEisensteinCubic.O), V (‖eisEmbedding b‖ ^ 2 / B) * A (b ^ 6)‖ ^ 2 ≤ (Average * X ^ averageExponent) ^ 2haverageIdentity:768 * B * (Cmean * X ^ (2 + theta + 2 * epsilon)) = (Average * X ^ averageExponent) ^ 2havg:‖∑' (b : ActualEisensteinCubic.O), V (‖eisEmbedding b‖ ^ 2 / B) * A (b ^ 6)‖ ≤ Average * X ^ averageExponenthBZ:1 ≤ supportBound * Xhbound:‖∑ I ∈ F,
baseChangeWeight chi I * W (↑(Ideal.absNorm I) / X) *
maskedPrincipalRemainder (fun i => ↑i) (idealSupport F I) (⇑V) B‖ ≤
Cerror * G * pvControl V * (supportBound * X) ^ (1 + epsilon)⊢ ‖∑ n ∈ F,
baseChangeWeight chi n * W (↑(Ideal.absNorm n) / X) *
maskedPrincipalRemainder (fun i => ↑i) (idealSupport F n) (⇑V) B‖ ≤
Error * X ^ (1 + epsilon)
calc
_ ≤ Cerror * G * pvControl V * (supportBound * X) ^ (1 + epsilon) := hbound
_ = Error * X ^ (1 + epsilon) := by q:ℕchi:DirichletCharacter ℂ qS:Finset (Ideal ActualEisensteinCubic.O)hbad:CanonicalQuadraticSieve.fixedBadPrimes ⊆ SW:ℝ → ℂa:ℝb:ℝ_ha:0 < ahsupport:Function.support W ⊆ Set.Icc a bhW:ContDiff ℝ ∞ Wtheta:ℝepsilon:ℝCmean:ℝhtheta:0 ≤ thetahepsilon:0 < epsilonhCmean:0 < Cmeanhmean:∀ (D : ℕ) (X : ℝ),
1 ≤ X →
b * X ≤ ↑D →
∀ (T : Finset ActualEisensteinCubic.O),
(∀ h ∈ T, ↑(Ideal.absNorm (Ideal.span {h})) ≤ X ^ (1 + theta)) →
(∀ h ∈ T, h ≠ 0) →
∑ h ∈ T, ‖idealRowSum (outsideIdealsUpTo S D) ⋯ ⋯ chi (fun n => W (↑n / X)) h‖ ^ 2 ≤
Cmean * X ^ (2 + theta + 2 * epsilon)V:𝓢(ℝ, ℂ)hV:∀ (x : ℝ), ‖V x‖ ≤ 1hVs:Function.support ⇑V ⊆ Set.Icc (1 / 2) 1hV0:V 0 = 0hVhat:paperRadialFourier (⇑V) 0 ≠ 0Cerror:ℝhCerror:0 < Cerrorherror:∀ {q : ℕ} (F : Finset (Ideal ActualEisensteinCubic.O)),
(∀ I ∈ F, I ≠ ⊥) →
∀ (χ : DirichletCharacter ℂ q) (W : ℕ → ℂ) (V : 𝓢(ℝ, ℂ)) (Y lengthScale G : ℝ),
0 < Y →
1 ≤ lengthScale →
0 ≤ G →
(∀ (n : ℕ), ‖W n‖ ≤ G) →
(∀ I ∈ F, W (Ideal.absNorm I) ≠ 0 → ↑(Ideal.absNorm I) ≤ lengthScale) →
‖∑ I ∈ F,
baseChangeWeight χ I * W (Ideal.absNorm I) *
maskedPrincipalRemainder (fun i => ↑i) (idealSupport F I) (⇑V) Y‖ ≤
Cerror * G * pvControl V * lengthScale ^ (1 + epsilon)hWcompact:HasCompactSupport WWs:𝓢(ℝ, ℂ) := hWcompact.toSchwartzMap hWG:ℝ := (SchwartzMap.seminorm ℝ 0 0) WssupportBound:ℝ := max 1 bError:ℝ := Cerror * G * pvControl V * supportBound ^ (1 + epsilon)Average:ℝ := √(768 * Cmean)alpha:ℝ := (1 + theta) / 6targetExponent:ℝ := (11 + 5 * theta) / 12 + epsilonaverageExponent:ℝ := alpha + targetExponentC:ℝ := (Average + Error) / ‖paperRadialFourier (⇑V) 0‖hG:0 ≤ GhSupportBound:1 ≤ supportBoundhError:0 ≤ ErrorhAverage:0 < Averagehhat:0 < ‖paperRadialFourier (⇑V) 0‖halpha:0 ≤ alphaD:ℕX:ℝhX:1 ≤ XhD:b * X ≤ ↑DhXpos:0 < XB:ℝ := X ^ alphahB:1 ≤ BhBpos:0 < BF:Finset (Ideal ConcretePrimeRowBridge.O) := outsideIdealsUpTo S DA:ActualEisensteinCubic.O → ℂ := idealRowSum F ⋯ ⋯ chi fun n => W (↑n / X)hBpower:B ^ 6 = X ^ (1 + theta)hsecondMoment:∑ h ∈ Finset.image (fun b => b ^ 6) (averagingRows B), ‖A h‖ ^ 2 ≤ Cmean * X ^ (2 + theta + 2 * epsilon)havgSquare:‖∑' (b : ActualEisensteinCubic.O), V (‖eisEmbedding b‖ ^ 2 / B) * A (b ^ 6)‖ ^ 2 ≤ (Average * X ^ averageExponent) ^ 2haverageIdentity:768 * B * (Cmean * X ^ (2 + theta + 2 * epsilon)) = (Average * X ^ averageExponent) ^ 2havg:‖∑' (b : ActualEisensteinCubic.O), V (‖eisEmbedding b‖ ^ 2 / B) * A (b ^ 6)‖ ≤ Average * X ^ averageExponenthBZ:1 ≤ supportBound * Xhbound:‖∑ I ∈ F,
baseChangeWeight chi I * W (↑(Ideal.absNorm I) / X) *
maskedPrincipalRemainder (fun i => ↑i) (idealSupport F I) (⇑V) B‖ ≤
Cerror * G * pvControl V * (supportBound * X) ^ (1 + epsilon)⊢ Cerror * G * pvControl V * (supportBound * X) ^ (1 + epsilon) = Error * X ^ (1 + epsilon)
rw [Real.mul_rpow (by q:ℕchi:DirichletCharacter ℂ qS:Finset (Ideal ActualEisensteinCubic.O)hbad:CanonicalQuadraticSieve.fixedBadPrimes ⊆ SW:ℝ → ℂa:ℝb:ℝ_ha:0 < ahsupport:Function.support W ⊆ Set.Icc a bhW:ContDiff ℝ ∞ Wtheta:ℝepsilon:ℝCmean:ℝhtheta:0 ≤ thetahepsilon:0 < epsilonhCmean:0 < Cmeanhmean:∀ (D : ℕ) (X : ℝ),
1 ≤ X →
b * X ≤ ↑D →
∀ (T : Finset ActualEisensteinCubic.O),
(∀ h ∈ T, ↑(Ideal.absNorm (Ideal.span {h})) ≤ X ^ (1 + theta)) →
(∀ h ∈ T, h ≠ 0) →
∑ h ∈ T, ‖idealRowSum (outsideIdealsUpTo S D) ⋯ ⋯ chi (fun n => W (↑n / X)) h‖ ^ 2 ≤
Cmean * X ^ (2 + theta + 2 * epsilon)V:𝓢(ℝ, ℂ)hV:∀ (x : ℝ), ‖V x‖ ≤ 1hVs:Function.support ⇑V ⊆ Set.Icc (1 / 2) 1hV0:V 0 = 0hVhat:paperRadialFourier (⇑V) 0 ≠ 0Cerror:ℝhCerror:0 < Cerrorherror:∀ {q : ℕ} (F : Finset (Ideal ActualEisensteinCubic.O)),
(∀ I ∈ F, I ≠ ⊥) →
∀ (χ : DirichletCharacter ℂ q) (W : ℕ → ℂ) (V : 𝓢(ℝ, ℂ)) (Y lengthScale G : ℝ),
0 < Y →
1 ≤ lengthScale →
0 ≤ G →
(∀ (n : ℕ), ‖W n‖ ≤ G) →
(∀ I ∈ F, W (Ideal.absNorm I) ≠ 0 → ↑(Ideal.absNorm I) ≤ lengthScale) →
‖∑ I ∈ F,
baseChangeWeight χ I * W (Ideal.absNorm I) *
maskedPrincipalRemainder (fun i => ↑i) (idealSupport F I) (⇑V) Y‖ ≤
Cerror * G * pvControl V * lengthScale ^ (1 + epsilon)hWcompact:HasCompactSupport WWs:𝓢(ℝ, ℂ) := hWcompact.toSchwartzMap hWG:ℝ := (SchwartzMap.seminorm ℝ 0 0) WssupportBound:ℝ := max 1 bError:ℝ := Cerror * G * pvControl V * supportBound ^ (1 + epsilon)Average:ℝ := √(768 * Cmean)alpha:ℝ := (1 + theta) / 6targetExponent:ℝ := (11 + 5 * theta) / 12 + epsilonaverageExponent:ℝ := alpha + targetExponentC:ℝ := (Average + Error) / ‖paperRadialFourier (⇑V) 0‖hG:0 ≤ GhSupportBound:1 ≤ supportBoundhError:0 ≤ ErrorhAverage:0 < Averagehhat:0 < ‖paperRadialFourier (⇑V) 0‖halpha:0 ≤ alphaD:ℕX:ℝhX:1 ≤ XhD:b * X ≤ ↑DhXpos:0 < XB:ℝ := X ^ alphahB:1 ≤ BhBpos:0 < BF:Finset (Ideal ConcretePrimeRowBridge.O) := outsideIdealsUpTo S DA:ActualEisensteinCubic.O → ℂ := idealRowSum F ⋯ ⋯ chi fun n => W (↑n / X)hBpower:B ^ 6 = X ^ (1 + theta)hsecondMoment:∑ h ∈ Finset.image (fun b => b ^ 6) (averagingRows B), ‖A h‖ ^ 2 ≤ Cmean * X ^ (2 + theta + 2 * epsilon)havgSquare:‖∑' (b : ActualEisensteinCubic.O), V (‖eisEmbedding b‖ ^ 2 / B) * A (b ^ 6)‖ ^ 2 ≤ (Average * X ^ averageExponent) ^ 2haverageIdentity:768 * B * (Cmean * X ^ (2 + theta + 2 * epsilon)) = (Average * X ^ averageExponent) ^ 2havg:‖∑' (b : ActualEisensteinCubic.O), V (‖eisEmbedding b‖ ^ 2 / B) * A (b ^ 6)‖ ≤ Average * X ^ averageExponenthBZ:1 ≤ supportBound * Xhbound:‖∑ I ∈ F,
baseChangeWeight chi I * W (↑(Ideal.absNorm I) / X) *
maskedPrincipalRemainder (fun i => ↑i) (idealSupport F I) (⇑V) B‖ ≤
Cerror * G * pvControl V * (supportBound * X) ^ (1 + epsilon)⊢ 0 ≤ supportBound linarith All goals completed! 🐙 : 0 ≤ supportBound) hXpos.le] q:ℕchi:DirichletCharacter ℂ qS:Finset (Ideal ActualEisensteinCubic.O)hbad:CanonicalQuadraticSieve.fixedBadPrimes ⊆ SW:ℝ → ℂa:ℝb:ℝ_ha:0 < ahsupport:Function.support W ⊆ Set.Icc a bhW:ContDiff ℝ ∞ Wtheta:ℝepsilon:ℝCmean:ℝhtheta:0 ≤ thetahepsilon:0 < epsilonhCmean:0 < Cmeanhmean:∀ (D : ℕ) (X : ℝ),
1 ≤ X →
b * X ≤ ↑D →
∀ (T : Finset ActualEisensteinCubic.O),
(∀ h ∈ T, ↑(Ideal.absNorm (Ideal.span {h})) ≤ X ^ (1 + theta)) →
(∀ h ∈ T, h ≠ 0) →
∑ h ∈ T, ‖idealRowSum (outsideIdealsUpTo S D) ⋯ ⋯ chi (fun n => W (↑n / X)) h‖ ^ 2 ≤
Cmean * X ^ (2 + theta + 2 * epsilon)V:𝓢(ℝ, ℂ)hV:∀ (x : ℝ), ‖V x‖ ≤ 1hVs:Function.support ⇑V ⊆ Set.Icc (1 / 2) 1hV0:V 0 = 0hVhat:paperRadialFourier (⇑V) 0 ≠ 0Cerror:ℝhCerror:0 < Cerrorherror:∀ {q : ℕ} (F : Finset (Ideal ActualEisensteinCubic.O)),
(∀ I ∈ F, I ≠ ⊥) →
∀ (χ : DirichletCharacter ℂ q) (W : ℕ → ℂ) (V : 𝓢(ℝ, ℂ)) (Y lengthScale G : ℝ),
0 < Y →
1 ≤ lengthScale →
0 ≤ G →
(∀ (n : ℕ), ‖W n‖ ≤ G) →
(∀ I ∈ F, W (Ideal.absNorm I) ≠ 0 → ↑(Ideal.absNorm I) ≤ lengthScale) →
‖∑ I ∈ F,
baseChangeWeight χ I * W (Ideal.absNorm I) *
maskedPrincipalRemainder (fun i => ↑i) (idealSupport F I) (⇑V) Y‖ ≤
Cerror * G * pvControl V * lengthScale ^ (1 + epsilon)hWcompact:HasCompactSupport WWs:𝓢(ℝ, ℂ) := hWcompact.toSchwartzMap hWG:ℝ := (SchwartzMap.seminorm ℝ 0 0) WssupportBound:ℝ := max 1 bError:ℝ := Cerror * G * pvControl V * supportBound ^ (1 + epsilon)Average:ℝ := √(768 * Cmean)alpha:ℝ := (1 + theta) / 6targetExponent:ℝ := (11 + 5 * theta) / 12 + epsilonaverageExponent:ℝ := alpha + targetExponentC:ℝ := (Average + Error) / ‖paperRadialFourier (⇑V) 0‖hG:0 ≤ GhSupportBound:1 ≤ supportBoundhError:0 ≤ ErrorhAverage:0 < Averagehhat:0 < ‖paperRadialFourier (⇑V) 0‖halpha:0 ≤ alphaD:ℕX:ℝhX:1 ≤ XhD:b * X ≤ ↑DhXpos:0 < XB:ℝ := X ^ alphahB:1 ≤ BhBpos:0 < BF:Finset (Ideal ConcretePrimeRowBridge.O) := outsideIdealsUpTo S DA:ActualEisensteinCubic.O → ℂ := idealRowSum F ⋯ ⋯ chi fun n => W (↑n / X)hBpower:B ^ 6 = X ^ (1 + theta)hsecondMoment:∑ h ∈ Finset.image (fun b => b ^ 6) (averagingRows B), ‖A h‖ ^ 2 ≤ Cmean * X ^ (2 + theta + 2 * epsilon)havgSquare:‖∑' (b : ActualEisensteinCubic.O), V (‖eisEmbedding b‖ ^ 2 / B) * A (b ^ 6)‖ ^ 2 ≤ (Average * X ^ averageExponent) ^ 2haverageIdentity:768 * B * (Cmean * X ^ (2 + theta + 2 * epsilon)) = (Average * X ^ averageExponent) ^ 2havg:‖∑' (b : ActualEisensteinCubic.O), V (‖eisEmbedding b‖ ^ 2 / B) * A (b ^ 6)‖ ≤ Average * X ^ averageExponenthBZ:1 ≤ supportBound * Xhbound:‖∑ I ∈ F,
baseChangeWeight chi I * W (↑(Ideal.absNorm I) / X) *
maskedPrincipalRemainder (fun i => ↑i) (idealSupport F I) (⇑V) B‖ ≤
Cerror * G * pvControl V * (supportBound * X) ^ (1 + epsilon)⊢ Cerror * G * pvControl V * (supportBound ^ (1 + epsilon) * X ^ (1 + epsilon)) = Error * X ^ (1 + epsilon)
dsimp only [Error] q:ℕchi:DirichletCharacter ℂ qS:Finset (Ideal ActualEisensteinCubic.O)hbad:CanonicalQuadraticSieve.fixedBadPrimes ⊆ SW:ℝ → ℂa:ℝb:ℝ_ha:0 < ahsupport:Function.support W ⊆ Set.Icc a bhW:ContDiff ℝ ∞ Wtheta:ℝepsilon:ℝCmean:ℝhtheta:0 ≤ thetahepsilon:0 < epsilonhCmean:0 < Cmeanhmean:∀ (D : ℕ) (X : ℝ),
1 ≤ X →
b * X ≤ ↑D →
∀ (T : Finset ActualEisensteinCubic.O),
(∀ h ∈ T, ↑(Ideal.absNorm (Ideal.span {h})) ≤ X ^ (1 + theta)) →
(∀ h ∈ T, h ≠ 0) →
∑ h ∈ T, ‖idealRowSum (outsideIdealsUpTo S D) ⋯ ⋯ chi (fun n => W (↑n / X)) h‖ ^ 2 ≤
Cmean * X ^ (2 + theta + 2 * epsilon)V:𝓢(ℝ, ℂ)hV:∀ (x : ℝ), ‖V x‖ ≤ 1hVs:Function.support ⇑V ⊆ Set.Icc (1 / 2) 1hV0:V 0 = 0hVhat:paperRadialFourier (⇑V) 0 ≠ 0Cerror:ℝhCerror:0 < Cerrorherror:∀ {q : ℕ} (F : Finset (Ideal ActualEisensteinCubic.O)),
(∀ I ∈ F, I ≠ ⊥) →
∀ (χ : DirichletCharacter ℂ q) (W : ℕ → ℂ) (V : 𝓢(ℝ, ℂ)) (Y lengthScale G : ℝ),
0 < Y →
1 ≤ lengthScale →
0 ≤ G →
(∀ (n : ℕ), ‖W n‖ ≤ G) →
(∀ I ∈ F, W (Ideal.absNorm I) ≠ 0 → ↑(Ideal.absNorm I) ≤ lengthScale) →
‖∑ I ∈ F,
baseChangeWeight χ I * W (Ideal.absNorm I) *
maskedPrincipalRemainder (fun i => ↑i) (idealSupport F I) (⇑V) Y‖ ≤
Cerror * G * pvControl V * lengthScale ^ (1 + epsilon)hWcompact:HasCompactSupport WWs:𝓢(ℝ, ℂ) := hWcompact.toSchwartzMap hWG:ℝ := (SchwartzMap.seminorm ℝ 0 0) WssupportBound:ℝ := max 1 bError:ℝ := Cerror * G * pvControl V * supportBound ^ (1 + epsilon)Average:ℝ := √(768 * Cmean)alpha:ℝ := (1 + theta) / 6targetExponent:ℝ := (11 + 5 * theta) / 12 + epsilonaverageExponent:ℝ := alpha + targetExponentC:ℝ := (Average + Error) / ‖paperRadialFourier (⇑V) 0‖hG:0 ≤ GhSupportBound:1 ≤ supportBoundhError:0 ≤ ErrorhAverage:0 < Averagehhat:0 < ‖paperRadialFourier (⇑V) 0‖halpha:0 ≤ alphaD:ℕX:ℝhX:1 ≤ XhD:b * X ≤ ↑DhXpos:0 < XB:ℝ := X ^ alphahB:1 ≤ BhBpos:0 < BF:Finset (Ideal ConcretePrimeRowBridge.O) := outsideIdealsUpTo S DA:ActualEisensteinCubic.O → ℂ := idealRowSum F ⋯ ⋯ chi fun n => W (↑n / X)hBpower:B ^ 6 = X ^ (1 + theta)hsecondMoment:∑ h ∈ Finset.image (fun b => b ^ 6) (averagingRows B), ‖A h‖ ^ 2 ≤ Cmean * X ^ (2 + theta + 2 * epsilon)havgSquare:‖∑' (b : ActualEisensteinCubic.O), V (‖eisEmbedding b‖ ^ 2 / B) * A (b ^ 6)‖ ^ 2 ≤ (Average * X ^ averageExponent) ^ 2haverageIdentity:768 * B * (Cmean * X ^ (2 + theta + 2 * epsilon)) = (Average * X ^ averageExponent) ^ 2havg:‖∑' (b : ActualEisensteinCubic.O), V (‖eisEmbedding b‖ ^ 2 / B) * A (b ^ 6)‖ ≤ Average * X ^ averageExponenthBZ:1 ≤ supportBound * Xhbound:‖∑ I ∈ F,
baseChangeWeight chi I * W (↑(Ideal.absNorm I) / X) *
maskedPrincipalRemainder (fun i => ↑i) (idealSupport F I) (⇑V) B‖ ≤
Cerror * G * pvControl V * (supportBound * X) ^ (1 + epsilon)⊢ Cerror * G * pvControl V * (supportBound ^ (1 + epsilon) * X ^ (1 + epsilon)) =
Cerror * G * pvControl V * supportBound ^ (1 + epsilon) * X ^ (1 + epsilon)
ring q:ℕchi:DirichletCharacter ℂ qS:Finset (Ideal ActualEisensteinCubic.O)hbad:CanonicalQuadraticSieve.fixedBadPrimes ⊆ SW:ℝ → ℂa:ℝb:ℝ_ha:0 < ahsupport:Function.support W ⊆ Set.Icc a bhW:ContDiff ℝ ∞ Wtheta:ℝepsilon:ℝCmean:ℝhtheta:0 ≤ thetahepsilon:0 < epsilonhCmean:0 < Cmeanhmean:∀ (D : ℕ) (X : ℝ),
1 ≤ X →
b * X ≤ ↑D →
∀ (T : Finset ActualEisensteinCubic.O),
(∀ h ∈ T, ↑(Ideal.absNorm (Ideal.span {h})) ≤ X ^ (1 + theta)) →
(∀ h ∈ T, h ≠ 0) →
∑ h ∈ T, ‖idealRowSum (outsideIdealsUpTo S D) ⋯ ⋯ chi (fun n => W (↑n / X)) h‖ ^ 2 ≤
Cmean * X ^ (2 + theta + 2 * epsilon)V:𝓢(ℝ, ℂ)hV:∀ (x : ℝ), ‖V x‖ ≤ 1hVs:Function.support ⇑V ⊆ Set.Icc (1 / 2) 1hV0:V 0 = 0hVhat:paperRadialFourier (⇑V) 0 ≠ 0Cerror:ℝhCerror:0 < Cerrorherror:∀ {q : ℕ} (F : Finset (Ideal ActualEisensteinCubic.O)),
(∀ I ∈ F, I ≠ ⊥) →
∀ (χ : DirichletCharacter ℂ q) (W : ℕ → ℂ) (V : 𝓢(ℝ, ℂ)) (Y lengthScale G : ℝ),
0 < Y →
1 ≤ lengthScale →
0 ≤ G →
(∀ (n : ℕ), ‖W n‖ ≤ G) →
(∀ I ∈ F, W (Ideal.absNorm I) ≠ 0 → ↑(Ideal.absNorm I) ≤ lengthScale) →
‖∑ I ∈ F,
baseChangeWeight χ I * W (Ideal.absNorm I) *
maskedPrincipalRemainder (fun i => ↑i) (idealSupport F I) (⇑V) Y‖ ≤
Cerror * G * pvControl V * lengthScale ^ (1 + epsilon)hWcompact:HasCompactSupport WWs:𝓢(ℝ, ℂ) := hWcompact.toSchwartzMap hWG:ℝ := (SchwartzMap.seminorm ℝ 0 0) WssupportBound:ℝ := max 1 bError:ℝ := Cerror * G * pvControl V * supportBound ^ (1 + epsilon)Average:ℝ := √(768 * Cmean)alpha:ℝ := (1 + theta) / 6targetExponent:ℝ := (11 + 5 * theta) / 12 + epsilonaverageExponent:ℝ := alpha + targetExponentC:ℝ := (Average + Error) / ‖paperRadialFourier (⇑V) 0‖hG:0 ≤ GhSupportBound:1 ≤ supportBoundhError:0 ≤ ErrorhAverage:0 < Averagehhat:0 < ‖paperRadialFourier (⇑V) 0‖halpha:0 ≤ alphaD:ℕX:ℝhX:1 ≤ XhD:b * X ≤ ↑DhXpos:0 < XB:ℝ := X ^ alphahB:1 ≤ BhBpos:0 < BF:Finset (Ideal ConcretePrimeRowBridge.O) := outsideIdealsUpTo S DA:ActualEisensteinCubic.O → ℂ := idealRowSum F ⋯ ⋯ chi fun n => W (↑n / X)hBpower:B ^ 6 = X ^ (1 + theta)hsecondMoment:∑ h ∈ Finset.image (fun b => b ^ 6) (averagingRows B), ‖A h‖ ^ 2 ≤ Cmean * X ^ (2 + theta + 2 * epsilon)havgSquare:‖∑' (b : ActualEisensteinCubic.O), V (‖eisEmbedding b‖ ^ 2 / B) * A (b ^ 6)‖ ^ 2 ≤ (Average * X ^ averageExponent) ^ 2haverageIdentity:768 * B * (Cmean * X ^ (2 + theta + 2 * epsilon)) = (Average * X ^ averageExponent) ^ 2havg:‖∑' (b : ActualEisensteinCubic.O), V (‖eisEmbedding b‖ ^ 2 / B) * A (b ^ 6)‖ ≤ Average * X ^ averageExponenthremainder:‖∑ n ∈ F,
baseChangeWeight chi n * W (↑(Ideal.absNorm n) / X) *
maskedPrincipalRemainder (fun i => ↑i) (idealSupport F n) (⇑V) B‖ ≤
Error * X ^ (1 + epsilon)⊢ ‖∑ n ∈ outsideIdealsUpTo S D, baseChangeWeight chi n * W (↑(Ideal.absNorm n) / X) * totientDensity n‖ ≤
C * X ^ ((11 + 5 * theta) / 12 + epsilon)
have herrorExponent : X ^ (1 + epsilon) ≤ X ^ averageExponent :=
Real.rpow_le_rpow_of_exponent_le hX (by q:ℕchi:DirichletCharacter ℂ qS:Finset (Ideal ActualEisensteinCubic.O)hbad:CanonicalQuadraticSieve.fixedBadPrimes ⊆ SW:ℝ → ℂa:ℝb:ℝ_ha:0 < ahsupport:Function.support W ⊆ Set.Icc a bhW:ContDiff ℝ ∞ Wtheta:ℝepsilon:ℝCmean:ℝhtheta:0 ≤ thetahepsilon:0 < epsilonhCmean:0 < Cmeanhmean:∀ (D : ℕ) (X : ℝ),
1 ≤ X →
b * X ≤ ↑D →
∀ (T : Finset ActualEisensteinCubic.O),
(∀ h ∈ T, ↑(Ideal.absNorm (Ideal.span {h})) ≤ X ^ (1 + theta)) →
(∀ h ∈ T, h ≠ 0) →
∑ h ∈ T, ‖idealRowSum (outsideIdealsUpTo S D) ⋯ ⋯ chi (fun n => W (↑n / X)) h‖ ^ 2 ≤
Cmean * X ^ (2 + theta + 2 * epsilon)V:𝓢(ℝ, ℂ)hV:∀ (x : ℝ), ‖V x‖ ≤ 1hVs:Function.support ⇑V ⊆ Set.Icc (1 / 2) 1hV0:V 0 = 0hVhat:paperRadialFourier (⇑V) 0 ≠ 0Cerror:ℝhCerror:0 < Cerrorherror:∀ {q : ℕ} (F : Finset (Ideal ActualEisensteinCubic.O)),
(∀ I ∈ F, I ≠ ⊥) →
∀ (χ : DirichletCharacter ℂ q) (W : ℕ → ℂ) (V : 𝓢(ℝ, ℂ)) (Y lengthScale G : ℝ),
0 < Y →
1 ≤ lengthScale →
0 ≤ G →
(∀ (n : ℕ), ‖W n‖ ≤ G) →
(∀ I ∈ F, W (Ideal.absNorm I) ≠ 0 → ↑(Ideal.absNorm I) ≤ lengthScale) →
‖∑ I ∈ F,
baseChangeWeight χ I * W (Ideal.absNorm I) *
maskedPrincipalRemainder (fun i => ↑i) (idealSupport F I) (⇑V) Y‖ ≤
Cerror * G * pvControl V * lengthScale ^ (1 + epsilon)hWcompact:HasCompactSupport WWs:𝓢(ℝ, ℂ) := hWcompact.toSchwartzMap hWG:ℝ := (SchwartzMap.seminorm ℝ 0 0) WssupportBound:ℝ := max 1 bError:ℝ := Cerror * G * pvControl V * supportBound ^ (1 + epsilon)Average:ℝ := √(768 * Cmean)alpha:ℝ := (1 + theta) / 6targetExponent:ℝ := (11 + 5 * theta) / 12 + epsilonaverageExponent:ℝ := alpha + targetExponentC:ℝ := (Average + Error) / ‖paperRadialFourier (⇑V) 0‖hG:0 ≤ GhSupportBound:1 ≤ supportBoundhError:0 ≤ ErrorhAverage:0 < Averagehhat:0 < ‖paperRadialFourier (⇑V) 0‖halpha:0 ≤ alphaD:ℕX:ℝhX:1 ≤ XhD:b * X ≤ ↑DhXpos:0 < XB:ℝ := X ^ alphahB:1 ≤ BhBpos:0 < BF:Finset (Ideal ConcretePrimeRowBridge.O) := outsideIdealsUpTo S DA:ActualEisensteinCubic.O → ℂ := idealRowSum F ⋯ ⋯ chi fun n => W (↑n / X)hBpower:B ^ 6 = X ^ (1 + theta)hsecondMoment:∑ h ∈ Finset.image (fun b => b ^ 6) (averagingRows B), ‖A h‖ ^ 2 ≤ Cmean * X ^ (2 + theta + 2 * epsilon)havgSquare:‖∑' (b : ActualEisensteinCubic.O), V (‖eisEmbedding b‖ ^ 2 / B) * A (b ^ 6)‖ ^ 2 ≤ (Average * X ^ averageExponent) ^ 2haverageIdentity:768 * B * (Cmean * X ^ (2 + theta + 2 * epsilon)) = (Average * X ^ averageExponent) ^ 2havg:‖∑' (b : ActualEisensteinCubic.O), V (‖eisEmbedding b‖ ^ 2 / B) * A (b ^ 6)‖ ≤ Average * X ^ averageExponenthremainder:‖∑ n ∈ F,
baseChangeWeight chi n * W (↑(Ideal.absNorm n) / X) *
maskedPrincipalRemainder (fun i => ↑i) (idealSupport F n) (⇑V) B‖ ≤
Error * X ^ (1 + epsilon)⊢ 1 + epsilon ≤ averageExponent
dsimp [averageExponent, targetExponent, alpha] q:ℕchi:DirichletCharacter ℂ qS:Finset (Ideal ActualEisensteinCubic.O)hbad:CanonicalQuadraticSieve.fixedBadPrimes ⊆ SW:ℝ → ℂa:ℝb:ℝ_ha:0 < ahsupport:Function.support W ⊆ Set.Icc a bhW:ContDiff ℝ ∞ Wtheta:ℝepsilon:ℝCmean:ℝhtheta:0 ≤ thetahepsilon:0 < epsilonhCmean:0 < Cmeanhmean:∀ (D : ℕ) (X : ℝ),
1 ≤ X →
b * X ≤ ↑D →
∀ (T : Finset ActualEisensteinCubic.O),
(∀ h ∈ T, ↑(Ideal.absNorm (Ideal.span {h})) ≤ X ^ (1 + theta)) →
(∀ h ∈ T, h ≠ 0) →
∑ h ∈ T, ‖idealRowSum (outsideIdealsUpTo S D) ⋯ ⋯ chi (fun n => W (↑n / X)) h‖ ^ 2 ≤
Cmean * X ^ (2 + theta + 2 * epsilon)V:𝓢(ℝ, ℂ)hV:∀ (x : ℝ), ‖V x‖ ≤ 1hVs:Function.support ⇑V ⊆ Set.Icc (1 / 2) 1hV0:V 0 = 0hVhat:paperRadialFourier (⇑V) 0 ≠ 0Cerror:ℝhCerror:0 < Cerrorherror:∀ {q : ℕ} (F : Finset (Ideal ActualEisensteinCubic.O)),
(∀ I ∈ F, I ≠ ⊥) →
∀ (χ : DirichletCharacter ℂ q) (W : ℕ → ℂ) (V : 𝓢(ℝ, ℂ)) (Y lengthScale G : ℝ),
0 < Y →
1 ≤ lengthScale →
0 ≤ G →
(∀ (n : ℕ), ‖W n‖ ≤ G) →
(∀ I ∈ F, W (Ideal.absNorm I) ≠ 0 → ↑(Ideal.absNorm I) ≤ lengthScale) →
‖∑ I ∈ F,
baseChangeWeight χ I * W (Ideal.absNorm I) *
maskedPrincipalRemainder (fun i => ↑i) (idealSupport F I) (⇑V) Y‖ ≤
Cerror * G * pvControl V * lengthScale ^ (1 + epsilon)hWcompact:HasCompactSupport WWs:𝓢(ℝ, ℂ) := hWcompact.toSchwartzMap hWG:ℝ := (SchwartzMap.seminorm ℝ 0 0) WssupportBound:ℝ := max 1 bError:ℝ := Cerror * G * pvControl V * supportBound ^ (1 + epsilon)Average:ℝ := √(768 * Cmean)alpha:ℝ := (1 + theta) / 6targetExponent:ℝ := (11 + 5 * theta) / 12 + epsilonaverageExponent:ℝ := alpha + targetExponentC:ℝ := (Average + Error) / ‖paperRadialFourier (⇑V) 0‖hG:0 ≤ GhSupportBound:1 ≤ supportBoundhError:0 ≤ ErrorhAverage:0 < Averagehhat:0 < ‖paperRadialFourier (⇑V) 0‖halpha:0 ≤ alphaD:ℕX:ℝhX:1 ≤ XhD:b * X ≤ ↑DhXpos:0 < XB:ℝ := X ^ alphahB:1 ≤ BhBpos:0 < BF:Finset (Ideal ConcretePrimeRowBridge.O) := outsideIdealsUpTo S DA:ActualEisensteinCubic.O → ℂ := idealRowSum F ⋯ ⋯ chi fun n => W (↑n / X)hBpower:B ^ 6 = X ^ (1 + theta)hsecondMoment:∑ h ∈ Finset.image (fun b => b ^ 6) (averagingRows B), ‖A h‖ ^ 2 ≤ Cmean * X ^ (2 + theta + 2 * epsilon)havgSquare:‖∑' (b : ActualEisensteinCubic.O), V (‖eisEmbedding b‖ ^ 2 / B) * A (b ^ 6)‖ ^ 2 ≤ (Average * X ^ averageExponent) ^ 2haverageIdentity:768 * B * (Cmean * X ^ (2 + theta + 2 * epsilon)) = (Average * X ^ averageExponent) ^ 2havg:‖∑' (b : ActualEisensteinCubic.O), V (‖eisEmbedding b‖ ^ 2 / B) * A (b ^ 6)‖ ≤ Average * X ^ averageExponenthremainder:‖∑ n ∈ F,
baseChangeWeight chi n * W (↑(Ideal.absNorm n) / X) *
maskedPrincipalRemainder (fun i => ↑i) (idealSupport F n) (⇑V) B‖ ≤
Error * X ^ (1 + epsilon)⊢ 1 + epsilon ≤ (1 + theta) / 6 + ((11 + 5 * theta) / 12 + epsilon)
linarith All goals completed! 🐙) q:ℕchi:DirichletCharacter ℂ qS:Finset (Ideal ActualEisensteinCubic.O)hbad:CanonicalQuadraticSieve.fixedBadPrimes ⊆ SW:ℝ → ℂa:ℝb:ℝ_ha:0 < ahsupport:Function.support W ⊆ Set.Icc a bhW:ContDiff ℝ ∞ Wtheta:ℝepsilon:ℝCmean:ℝhtheta:0 ≤ thetahepsilon:0 < epsilonhCmean:0 < Cmeanhmean:∀ (D : ℕ) (X : ℝ),
1 ≤ X →
b * X ≤ ↑D →
∀ (T : Finset ActualEisensteinCubic.O),
(∀ h ∈ T, ↑(Ideal.absNorm (Ideal.span {h})) ≤ X ^ (1 + theta)) →
(∀ h ∈ T, h ≠ 0) →
∑ h ∈ T, ‖idealRowSum (outsideIdealsUpTo S D) ⋯ ⋯ chi (fun n => W (↑n / X)) h‖ ^ 2 ≤
Cmean * X ^ (2 + theta + 2 * epsilon)V:𝓢(ℝ, ℂ)hV:∀ (x : ℝ), ‖V x‖ ≤ 1hVs:Function.support ⇑V ⊆ Set.Icc (1 / 2) 1hV0:V 0 = 0hVhat:paperRadialFourier (⇑V) 0 ≠ 0Cerror:ℝhCerror:0 < Cerrorherror:∀ {q : ℕ} (F : Finset (Ideal ActualEisensteinCubic.O)),
(∀ I ∈ F, I ≠ ⊥) →
∀ (χ : DirichletCharacter ℂ q) (W : ℕ → ℂ) (V : 𝓢(ℝ, ℂ)) (Y lengthScale G : ℝ),
0 < Y →
1 ≤ lengthScale →
0 ≤ G →
(∀ (n : ℕ), ‖W n‖ ≤ G) →
(∀ I ∈ F, W (Ideal.absNorm I) ≠ 0 → ↑(Ideal.absNorm I) ≤ lengthScale) →
‖∑ I ∈ F,
baseChangeWeight χ I * W (Ideal.absNorm I) *
maskedPrincipalRemainder (fun i => ↑i) (idealSupport F I) (⇑V) Y‖ ≤
Cerror * G * pvControl V * lengthScale ^ (1 + epsilon)hWcompact:HasCompactSupport WWs:𝓢(ℝ, ℂ) := hWcompact.toSchwartzMap hWG:ℝ := (SchwartzMap.seminorm ℝ 0 0) WssupportBound:ℝ := max 1 bError:ℝ := Cerror * G * pvControl V * supportBound ^ (1 + epsilon)Average:ℝ := √(768 * Cmean)alpha:ℝ := (1 + theta) / 6targetExponent:ℝ := (11 + 5 * theta) / 12 + epsilonaverageExponent:ℝ := alpha + targetExponentC:ℝ := (Average + Error) / ‖paperRadialFourier (⇑V) 0‖hG:0 ≤ GhSupportBound:1 ≤ supportBoundhError:0 ≤ ErrorhAverage:0 < Averagehhat:0 < ‖paperRadialFourier (⇑V) 0‖halpha:0 ≤ alphaD:ℕX:ℝhX:1 ≤ XhD:b * X ≤ ↑DhXpos:0 < XB:ℝ := X ^ alphahB:1 ≤ BhBpos:0 < BF:Finset (Ideal ConcretePrimeRowBridge.O) := outsideIdealsUpTo S DA:ActualEisensteinCubic.O → ℂ := idealRowSum F ⋯ ⋯ chi fun n => W (↑n / X)hBpower:B ^ 6 = X ^ (1 + theta)hsecondMoment:∑ h ∈ Finset.image (fun b => b ^ 6) (averagingRows B), ‖A h‖ ^ 2 ≤ Cmean * X ^ (2 + theta + 2 * epsilon)havgSquare:‖∑' (b : ActualEisensteinCubic.O), V (‖eisEmbedding b‖ ^ 2 / B) * A (b ^ 6)‖ ^ 2 ≤ (Average * X ^ averageExponent) ^ 2haverageIdentity:768 * B * (Cmean * X ^ (2 + theta + 2 * epsilon)) = (Average * X ^ averageExponent) ^ 2havg:‖∑' (b : ActualEisensteinCubic.O), V (‖eisEmbedding b‖ ^ 2 / B) * A (b ^ 6)‖ ≤ Average * X ^ averageExponenthremainder:‖∑ n ∈ F,
baseChangeWeight chi n * W (↑(Ideal.absNorm n) / X) *
maskedPrincipalRemainder (fun i => ↑i) (idealSupport F n) (⇑V) B‖ ≤
Error * X ^ (1 + epsilon)herrorExponent:X ^ (1 + epsilon) ≤ X ^ averageExponent⊢ ‖∑ n ∈ outsideIdealsUpTo S D, baseChangeWeight chi n * W (↑(Ideal.absNorm n) / X) * totientDensity n‖ ≤
C * X ^ ((11 + 5 * theta) / 12 + epsilon)
have hmain := totient_sum_normalized_bound F
(outsideIdealsUpTo_ne_bot S D) (outside_good S D hbad) chi
(fun n ↦ W (n / X)) V B hBpos q:ℕchi:DirichletCharacter ℂ qS:Finset (Ideal ActualEisensteinCubic.O)hbad:CanonicalQuadraticSieve.fixedBadPrimes ⊆ SW:ℝ → ℂa:ℝb:ℝ_ha:0 < ahsupport:Function.support W ⊆ Set.Icc a bhW:ContDiff ℝ ∞ Wtheta:ℝepsilon:ℝCmean:ℝhtheta:0 ≤ thetahepsilon:0 < epsilonhCmean:0 < Cmeanhmean:∀ (D : ℕ) (X : ℝ),
1 ≤ X →
b * X ≤ ↑D →
∀ (T : Finset ActualEisensteinCubic.O),
(∀ h ∈ T, ↑(Ideal.absNorm (Ideal.span {h})) ≤ X ^ (1 + theta)) →
(∀ h ∈ T, h ≠ 0) →
∑ h ∈ T, ‖idealRowSum (outsideIdealsUpTo S D) ⋯ ⋯ chi (fun n => W (↑n / X)) h‖ ^ 2 ≤
Cmean * X ^ (2 + theta + 2 * epsilon)V:𝓢(ℝ, ℂ)hV:∀ (x : ℝ), ‖V x‖ ≤ 1hVs:Function.support ⇑V ⊆ Set.Icc (1 / 2) 1hV0:V 0 = 0hVhat:paperRadialFourier (⇑V) 0 ≠ 0Cerror:ℝhCerror:0 < Cerrorherror:∀ {q : ℕ} (F : Finset (Ideal ActualEisensteinCubic.O)),
(∀ I ∈ F, I ≠ ⊥) →
∀ (χ : DirichletCharacter ℂ q) (W : ℕ → ℂ) (V : 𝓢(ℝ, ℂ)) (Y lengthScale G : ℝ),
0 < Y →
1 ≤ lengthScale →
0 ≤ G →
(∀ (n : ℕ), ‖W n‖ ≤ G) →
(∀ I ∈ F, W (Ideal.absNorm I) ≠ 0 → ↑(Ideal.absNorm I) ≤ lengthScale) →
‖∑ I ∈ F,
baseChangeWeight χ I * W (Ideal.absNorm I) *
maskedPrincipalRemainder (fun i => ↑i) (idealSupport F I) (⇑V) Y‖ ≤
Cerror * G * pvControl V * lengthScale ^ (1 + epsilon)hWcompact:HasCompactSupport WWs:𝓢(ℝ, ℂ) := hWcompact.toSchwartzMap hWG:ℝ := (SchwartzMap.seminorm ℝ 0 0) WssupportBound:ℝ := max 1 bError:ℝ := Cerror * G * pvControl V * supportBound ^ (1 + epsilon)Average:ℝ := √(768 * Cmean)alpha:ℝ := (1 + theta) / 6targetExponent:ℝ := (11 + 5 * theta) / 12 + epsilonaverageExponent:ℝ := alpha + targetExponentC:ℝ := (Average + Error) / ‖paperRadialFourier (⇑V) 0‖hG:0 ≤ GhSupportBound:1 ≤ supportBoundhError:0 ≤ ErrorhAverage:0 < Averagehhat:0 < ‖paperRadialFourier (⇑V) 0‖halpha:0 ≤ alphaD:ℕX:ℝhX:1 ≤ XhD:b * X ≤ ↑DhXpos:0 < XB:ℝ := X ^ alphahB:1 ≤ BhBpos:0 < BF:Finset (Ideal ConcretePrimeRowBridge.O) := outsideIdealsUpTo S DA:ActualEisensteinCubic.O → ℂ := idealRowSum F ⋯ ⋯ chi fun n => W (↑n / X)hBpower:B ^ 6 = X ^ (1 + theta)hsecondMoment:∑ h ∈ Finset.image (fun b => b ^ 6) (averagingRows B), ‖A h‖ ^ 2 ≤ Cmean * X ^ (2 + theta + 2 * epsilon)havgSquare:‖∑' (b : ActualEisensteinCubic.O), V (‖eisEmbedding b‖ ^ 2 / B) * A (b ^ 6)‖ ^ 2 ≤ (Average * X ^ averageExponent) ^ 2haverageIdentity:768 * B * (Cmean * X ^ (2 + theta + 2 * epsilon)) = (Average * X ^ averageExponent) ^ 2havg:‖∑' (b : ActualEisensteinCubic.O), V (‖eisEmbedding b‖ ^ 2 / B) * A (b ^ 6)‖ ≤ Average * X ^ averageExponenthremainder:‖∑ n ∈ F,
baseChangeWeight chi n * W (↑(Ideal.absNorm n) / X) *
maskedPrincipalRemainder (fun i => ↑i) (idealSupport F n) (⇑V) B‖ ≤
Error * X ^ (1 + epsilon)herrorExponent:X ^ (1 + epsilon) ≤ X ^ averageExponenthmain:B * ‖paperRadialFourier (⇑V) 0‖ * ‖∑ I ∈ F, baseChangeWeight chi I * W (↑(Ideal.absNorm I) / X) * totientDensity I‖ ≤
‖∑' (b : ActualEisensteinCubic.O),
V (‖eisEmbedding b‖ ^ 2 / B) * idealRowSum F ⋯ ⋯ chi (fun n => W (↑n / X)) (b ^ 6)‖ +
‖∑ I ∈ F,
baseChangeWeight chi I * W (↑(Ideal.absNorm I) / X) *
maskedPrincipalRemainder (fun i => ↑i) (idealSupport F I) (⇑V) B‖⊢ ‖∑ n ∈ outsideIdealsUpTo S D, baseChangeWeight chi n * W (↑(Ideal.absNorm n) / X) * totientDensity n‖ ≤
C * X ^ ((11 + 5 * theta) / 12 + epsilon)
have hbound :
B * ‖paperRadialFourier V 0‖ *
‖∑ n ∈ F,
baseChangeWeight chi n * W ((Ideal.absNorm n : ℝ) / X) *
totientDensity n‖ ≤
(Average + Error) * X ^ averageExponent := by q:ℕchi:DirichletCharacter ℂ qS:Finset (Ideal ActualEisensteinCubic.O)hbad:CanonicalQuadraticSieve.fixedBadPrimes ⊆ SW:ℝ → ℂa:ℝb:ℝ_ha:0 < ahsupport:Function.support W ⊆ Set.Icc a bhW:ContDiff ℝ ∞ Wtheta:ℝepsilon:ℝCmean:ℝhtheta:0 ≤ thetahepsilon:0 < epsilonhCmean:0 < Cmeanhmean:∀ (D : ℕ) (X : ℝ),
1 ≤ X →
b * X ≤ ↑D →
∀ (T : Finset ActualEisensteinCubic.O),
(∀ h ∈ T, ↑(Ideal.absNorm (Ideal.span {h})) ≤ X ^ (1 + theta)) →
(∀ h ∈ T, h ≠ 0) →
∑ h ∈ T, ‖idealRowSum (outsideIdealsUpTo S D) ⋯ ⋯ chi (fun n => W (↑n / X)) h‖ ^ 2 ≤
Cmean * X ^ (2 + theta + 2 * epsilon)⊢ ∃ C,
0 < C ∧
∀ (D : ℕ) (X : ℝ),
1 ≤ X →
b * X ≤ ↑D →
‖∑ n ∈ outsideIdealsUpTo S D, baseChangeWeight chi n * W (↑(Ideal.absNorm n) / X) * totientDensity n‖ ≤
C * X ^ ((11 + 5 * theta) / 12 + epsilon)
apply hmain.trans q:ℕchi:DirichletCharacter ℂ qS:Finset (Ideal ActualEisensteinCubic.O)hbad:CanonicalQuadraticSieve.fixedBadPrimes ⊆ SW:ℝ → ℂa:ℝb:ℝ_ha:0 < ahsupport:Function.support W ⊆ Set.Icc a bhW:ContDiff ℝ ∞ Wtheta:ℝepsilon:ℝCmean:ℝhtheta:0 ≤ thetahepsilon:0 < epsilonhCmean:0 < Cmeanhmean:∀ (D : ℕ) (X : ℝ),
1 ≤ X →
b * X ≤ ↑D →
∀ (T : Finset ActualEisensteinCubic.O),
(∀ h ∈ T, ↑(Ideal.absNorm (Ideal.span {h})) ≤ X ^ (1 + theta)) →
(∀ h ∈ T, h ≠ 0) →
∑ h ∈ T, ‖idealRowSum (outsideIdealsUpTo S D) ⋯ ⋯ chi (fun n => W (↑n / X)) h‖ ^ 2 ≤
Cmean * X ^ (2 + theta + 2 * epsilon)V:𝓢(ℝ, ℂ)hV:∀ (x : ℝ), ‖V x‖ ≤ 1hVs:Function.support ⇑V ⊆ Set.Icc (1 / 2) 1hV0:V 0 = 0hVhat:paperRadialFourier (⇑V) 0 ≠ 0Cerror:ℝhCerror:0 < Cerrorherror:∀ {q : ℕ} (F : Finset (Ideal ActualEisensteinCubic.O)),
(∀ I ∈ F, I ≠ ⊥) →
∀ (χ : DirichletCharacter ℂ q) (W : ℕ → ℂ) (V : 𝓢(ℝ, ℂ)) (Y lengthScale G : ℝ),
0 < Y →
1 ≤ lengthScale →
0 ≤ G →
(∀ (n : ℕ), ‖W n‖ ≤ G) →
(∀ I ∈ F, W (Ideal.absNorm I) ≠ 0 → ↑(Ideal.absNorm I) ≤ lengthScale) →
‖∑ I ∈ F,
baseChangeWeight χ I * W (Ideal.absNorm I) *
maskedPrincipalRemainder (fun i => ↑i) (idealSupport F I) (⇑V) Y‖ ≤
Cerror * G * pvControl V * lengthScale ^ (1 + epsilon)hWcompact:HasCompactSupport WWs:𝓢(ℝ, ℂ) := hWcompact.toSchwartzMap hWG:ℝ := (SchwartzMap.seminorm ℝ 0 0) WssupportBound:ℝ := max 1 bError:ℝ := Cerror * G * pvControl V * supportBound ^ (1 + epsilon)Average:ℝ := √(768 * Cmean)alpha:ℝ := (1 + theta) / 6targetExponent:ℝ := (11 + 5 * theta) / 12 + epsilonaverageExponent:ℝ := alpha + targetExponentC:ℝ := (Average + Error) / ‖paperRadialFourier (⇑V) 0‖hG:0 ≤ GhSupportBound:1 ≤ supportBoundhError:0 ≤ ErrorhAverage:0 < Averagehhat:0 < ‖paperRadialFourier (⇑V) 0‖halpha:0 ≤ alphaD:ℕX:ℝhX:1 ≤ XhD:b * X ≤ ↑DhXpos:0 < XB:ℝ := X ^ alphahB:1 ≤ BhBpos:0 < BF:Finset (Ideal ConcretePrimeRowBridge.O) := outsideIdealsUpTo S DA:ActualEisensteinCubic.O → ℂ := idealRowSum F ⋯ ⋯ chi fun n => W (↑n / X)hBpower:B ^ 6 = X ^ (1 + theta)hsecondMoment:∑ h ∈ Finset.image (fun b => b ^ 6) (averagingRows B), ‖A h‖ ^ 2 ≤ Cmean * X ^ (2 + theta + 2 * epsilon)havgSquare:‖∑' (b : ActualEisensteinCubic.O), V (‖eisEmbedding b‖ ^ 2 / B) * A (b ^ 6)‖ ^ 2 ≤ (Average * X ^ averageExponent) ^ 2haverageIdentity:768 * B * (Cmean * X ^ (2 + theta + 2 * epsilon)) = (Average * X ^ averageExponent) ^ 2havg:‖∑' (b : ActualEisensteinCubic.O), V (‖eisEmbedding b‖ ^ 2 / B) * A (b ^ 6)‖ ≤ Average * X ^ averageExponenthremainder:‖∑ n ∈ F,
baseChangeWeight chi n * W (↑(Ideal.absNorm n) / X) *
maskedPrincipalRemainder (fun i => ↑i) (idealSupport F n) (⇑V) B‖ ≤
Error * X ^ (1 + epsilon)herrorExponent:X ^ (1 + epsilon) ≤ X ^ averageExponenthmain:B * ‖paperRadialFourier (⇑V) 0‖ * ‖∑ I ∈ F, baseChangeWeight chi I * W (↑(Ideal.absNorm I) / X) * totientDensity I‖ ≤
‖∑' (b : ActualEisensteinCubic.O),
V (‖eisEmbedding b‖ ^ 2 / B) * idealRowSum F ⋯ ⋯ chi (fun n => W (↑n / X)) (b ^ 6)‖ +
‖∑ I ∈ F,
baseChangeWeight chi I * W (↑(Ideal.absNorm I) / X) *
maskedPrincipalRemainder (fun i => ↑i) (idealSupport F I) (⇑V) B‖⊢ ‖∑' (b : ActualEisensteinCubic.O), V (‖eisEmbedding b‖ ^ 2 / B) * idealRowSum F ⋯ ⋯ chi (fun n => W (↑n / X)) (b ^ 6)‖ +
‖∑ I ∈ F,
baseChangeWeight chi I * W (↑(Ideal.absNorm I) / X) *
maskedPrincipalRemainder (fun i => ↑i) (idealSupport F I) (⇑V) B‖ ≤
(Average + Error) * X ^ averageExponent
have hsum := add_le_add havg
(hremainder.trans (mul_le_mul_of_nonneg_left herrorExponent hError)) q:ℕchi:DirichletCharacter ℂ qS:Finset (Ideal ActualEisensteinCubic.O)hbad:CanonicalQuadraticSieve.fixedBadPrimes ⊆ SW:ℝ → ℂa:ℝb:ℝ_ha:0 < ahsupport:Function.support W ⊆ Set.Icc a bhW:ContDiff ℝ ∞ Wtheta:ℝepsilon:ℝCmean:ℝhtheta:0 ≤ thetahepsilon:0 < epsilonhCmean:0 < Cmeanhmean:∀ (D : ℕ) (X : ℝ),
1 ≤ X →
b * X ≤ ↑D →
∀ (T : Finset ActualEisensteinCubic.O),
(∀ h ∈ T, ↑(Ideal.absNorm (Ideal.span {h})) ≤ X ^ (1 + theta)) →
(∀ h ∈ T, h ≠ 0) →
∑ h ∈ T, ‖idealRowSum (outsideIdealsUpTo S D) ⋯ ⋯ chi (fun n => W (↑n / X)) h‖ ^ 2 ≤
Cmean * X ^ (2 + theta + 2 * epsilon)V:𝓢(ℝ, ℂ)hV:∀ (x : ℝ), ‖V x‖ ≤ 1hVs:Function.support ⇑V ⊆ Set.Icc (1 / 2) 1hV0:V 0 = 0hVhat:paperRadialFourier (⇑V) 0 ≠ 0Cerror:ℝhCerror:0 < Cerrorherror:∀ {q : ℕ} (F : Finset (Ideal ActualEisensteinCubic.O)),
(∀ I ∈ F, I ≠ ⊥) →
∀ (χ : DirichletCharacter ℂ q) (W : ℕ → ℂ) (V : 𝓢(ℝ, ℂ)) (Y lengthScale G : ℝ),
0 < Y →
1 ≤ lengthScale →
0 ≤ G →
(∀ (n : ℕ), ‖W n‖ ≤ G) →
(∀ I ∈ F, W (Ideal.absNorm I) ≠ 0 → ↑(Ideal.absNorm I) ≤ lengthScale) →
‖∑ I ∈ F,
baseChangeWeight χ I * W (Ideal.absNorm I) *
maskedPrincipalRemainder (fun i => ↑i) (idealSupport F I) (⇑V) Y‖ ≤
Cerror * G * pvControl V * lengthScale ^ (1 + epsilon)hWcompact:HasCompactSupport WWs:𝓢(ℝ, ℂ) := hWcompact.toSchwartzMap hWG:ℝ := (SchwartzMap.seminorm ℝ 0 0) WssupportBound:ℝ := max 1 bError:ℝ := Cerror * G * pvControl V * supportBound ^ (1 + epsilon)Average:ℝ := √(768 * Cmean)alpha:ℝ := (1 + theta) / 6targetExponent:ℝ := (11 + 5 * theta) / 12 + epsilonaverageExponent:ℝ := alpha + targetExponentC:ℝ := (Average + Error) / ‖paperRadialFourier (⇑V) 0‖hG:0 ≤ GhSupportBound:1 ≤ supportBoundhError:0 ≤ ErrorhAverage:0 < Averagehhat:0 < ‖paperRadialFourier (⇑V) 0‖halpha:0 ≤ alphaD:ℕX:ℝhX:1 ≤ XhD:b * X ≤ ↑DhXpos:0 < XB:ℝ := X ^ alphahB:1 ≤ BhBpos:0 < BF:Finset (Ideal ConcretePrimeRowBridge.O) := outsideIdealsUpTo S DA:ActualEisensteinCubic.O → ℂ := idealRowSum F ⋯ ⋯ chi fun n => W (↑n / X)hBpower:B ^ 6 = X ^ (1 + theta)hsecondMoment:∑ h ∈ Finset.image (fun b => b ^ 6) (averagingRows B), ‖A h‖ ^ 2 ≤ Cmean * X ^ (2 + theta + 2 * epsilon)havgSquare:‖∑' (b : ActualEisensteinCubic.O), V (‖eisEmbedding b‖ ^ 2 / B) * A (b ^ 6)‖ ^ 2 ≤ (Average * X ^ averageExponent) ^ 2haverageIdentity:768 * B * (Cmean * X ^ (2 + theta + 2 * epsilon)) = (Average * X ^ averageExponent) ^ 2havg:‖∑' (b : ActualEisensteinCubic.O), V (‖eisEmbedding b‖ ^ 2 / B) * A (b ^ 6)‖ ≤ Average * X ^ averageExponenthremainder:‖∑ n ∈ F,
baseChangeWeight chi n * W (↑(Ideal.absNorm n) / X) *
maskedPrincipalRemainder (fun i => ↑i) (idealSupport F n) (⇑V) B‖ ≤
Error * X ^ (1 + epsilon)herrorExponent:X ^ (1 + epsilon) ≤ X ^ averageExponenthmain:B * ‖paperRadialFourier (⇑V) 0‖ * ‖∑ I ∈ F, baseChangeWeight chi I * W (↑(Ideal.absNorm I) / X) * totientDensity I‖ ≤
‖∑' (b : ActualEisensteinCubic.O),
V (‖eisEmbedding b‖ ^ 2 / B) * idealRowSum F ⋯ ⋯ chi (fun n => W (↑n / X)) (b ^ 6)‖ +
‖∑ I ∈ F,
baseChangeWeight chi I * W (↑(Ideal.absNorm I) / X) *
maskedPrincipalRemainder (fun i => ↑i) (idealSupport F I) (⇑V) B‖hsum:‖∑' (b : ActualEisensteinCubic.O), V (‖eisEmbedding b‖ ^ 2 / B) * A (b ^ 6)‖ +
‖∑ n ∈ F,
baseChangeWeight chi n * W (↑(Ideal.absNorm n) / X) *
maskedPrincipalRemainder (fun i => ↑i) (idealSupport F n) (⇑V) B‖ ≤
Average * X ^ averageExponent + Error * X ^ averageExponent⊢ ‖∑' (b : ActualEisensteinCubic.O), V (‖eisEmbedding b‖ ^ 2 / B) * idealRowSum F ⋯ ⋯ chi (fun n => W (↑n / X)) (b ^ 6)‖ +
‖∑ I ∈ F,
baseChangeWeight chi I * W (↑(Ideal.absNorm I) / X) *
maskedPrincipalRemainder (fun i => ↑i) (idealSupport F I) (⇑V) B‖ ≤
(Average + Error) * X ^ averageExponent
simpa only [add_mul] using hsum q:ℕchi:DirichletCharacter ℂ qS:Finset (Ideal ActualEisensteinCubic.O)hbad:CanonicalQuadraticSieve.fixedBadPrimes ⊆ SW:ℝ → ℂa:ℝb:ℝ_ha:0 < ahsupport:Function.support W ⊆ Set.Icc a bhW:ContDiff ℝ ∞ Wtheta:ℝepsilon:ℝCmean:ℝhtheta:0 ≤ thetahepsilon:0 < epsilonhCmean:0 < Cmeanhmean:∀ (D : ℕ) (X : ℝ),
1 ≤ X →
b * X ≤ ↑D →
∀ (T : Finset ActualEisensteinCubic.O),
(∀ h ∈ T, ↑(Ideal.absNorm (Ideal.span {h})) ≤ X ^ (1 + theta)) →
(∀ h ∈ T, h ≠ 0) →
∑ h ∈ T, ‖idealRowSum (outsideIdealsUpTo S D) ⋯ ⋯ chi (fun n => W (↑n / X)) h‖ ^ 2 ≤
Cmean * X ^ (2 + theta + 2 * epsilon)V:𝓢(ℝ, ℂ)hV:∀ (x : ℝ), ‖V x‖ ≤ 1hVs:Function.support ⇑V ⊆ Set.Icc (1 / 2) 1hV0:V 0 = 0hVhat:paperRadialFourier (⇑V) 0 ≠ 0Cerror:ℝhCerror:0 < Cerrorherror:∀ {q : ℕ} (F : Finset (Ideal ActualEisensteinCubic.O)),
(∀ I ∈ F, I ≠ ⊥) →
∀ (χ : DirichletCharacter ℂ q) (W : ℕ → ℂ) (V : 𝓢(ℝ, ℂ)) (Y lengthScale G : ℝ),
0 < Y →
1 ≤ lengthScale →
0 ≤ G →
(∀ (n : ℕ), ‖W n‖ ≤ G) →
(∀ I ∈ F, W (Ideal.absNorm I) ≠ 0 → ↑(Ideal.absNorm I) ≤ lengthScale) →
‖∑ I ∈ F,
baseChangeWeight χ I * W (Ideal.absNorm I) *
maskedPrincipalRemainder (fun i => ↑i) (idealSupport F I) (⇑V) Y‖ ≤
Cerror * G * pvControl V * lengthScale ^ (1 + epsilon)hWcompact:HasCompactSupport WWs:𝓢(ℝ, ℂ) := hWcompact.toSchwartzMap hWG:ℝ := (SchwartzMap.seminorm ℝ 0 0) WssupportBound:ℝ := max 1 bError:ℝ := Cerror * G * pvControl V * supportBound ^ (1 + epsilon)Average:ℝ := √(768 * Cmean)alpha:ℝ := (1 + theta) / 6targetExponent:ℝ := (11 + 5 * theta) / 12 + epsilonaverageExponent:ℝ := alpha + targetExponentC:ℝ := (Average + Error) / ‖paperRadialFourier (⇑V) 0‖hG:0 ≤ GhSupportBound:1 ≤ supportBoundhError:0 ≤ ErrorhAverage:0 < Averagehhat:0 < ‖paperRadialFourier (⇑V) 0‖halpha:0 ≤ alphaD:ℕX:ℝhX:1 ≤ XhD:b * X ≤ ↑DhXpos:0 < XB:ℝ := X ^ alphahB:1 ≤ BhBpos:0 < BF:Finset (Ideal ConcretePrimeRowBridge.O) := outsideIdealsUpTo S DA:ActualEisensteinCubic.O → ℂ := idealRowSum F ⋯ ⋯ chi fun n => W (↑n / X)hBpower:B ^ 6 = X ^ (1 + theta)hsecondMoment:∑ h ∈ Finset.image (fun b => b ^ 6) (averagingRows B), ‖A h‖ ^ 2 ≤ Cmean * X ^ (2 + theta + 2 * epsilon)havgSquare:‖∑' (b : ActualEisensteinCubic.O), V (‖eisEmbedding b‖ ^ 2 / B) * A (b ^ 6)‖ ^ 2 ≤ (Average * X ^ averageExponent) ^ 2haverageIdentity:768 * B * (Cmean * X ^ (2 + theta + 2 * epsilon)) = (Average * X ^ averageExponent) ^ 2havg:‖∑' (b : ActualEisensteinCubic.O), V (‖eisEmbedding b‖ ^ 2 / B) * A (b ^ 6)‖ ≤ Average * X ^ averageExponenthremainder:‖∑ n ∈ F,
baseChangeWeight chi n * W (↑(Ideal.absNorm n) / X) *
maskedPrincipalRemainder (fun i => ↑i) (idealSupport F n) (⇑V) B‖ ≤
Error * X ^ (1 + epsilon)herrorExponent:X ^ (1 + epsilon) ≤ X ^ averageExponenthmain:B * ‖paperRadialFourier (⇑V) 0‖ * ‖∑ I ∈ F, baseChangeWeight chi I * W (↑(Ideal.absNorm I) / X) * totientDensity I‖ ≤
‖∑' (b : ActualEisensteinCubic.O),
V (‖eisEmbedding b‖ ^ 2 / B) * idealRowSum F ⋯ ⋯ chi (fun n => W (↑n / X)) (b ^ 6)‖ +
‖∑ I ∈ F,
baseChangeWeight chi I * W (↑(Ideal.absNorm I) / X) *
maskedPrincipalRemainder (fun i => ↑i) (idealSupport F I) (⇑V) B‖hbound:B * ‖paperRadialFourier (⇑V) 0‖ * ‖∑ n ∈ F, baseChangeWeight chi n * W (↑(Ideal.absNorm n) / X) * totientDensity n‖ ≤
(Average + Error) * X ^ averageExponent⊢ ‖∑ n ∈ outsideIdealsUpTo S D, baseChangeWeight chi n * W (↑(Ideal.absNorm n) / X) * totientDensity n‖ ≤
C * X ^ ((11 + 5 * theta) / 12 + epsilon)
have hfactor : X ^ averageExponent = B * X ^ targetExponent := by q:ℕchi:DirichletCharacter ℂ qS:Finset (Ideal ActualEisensteinCubic.O)hbad:CanonicalQuadraticSieve.fixedBadPrimes ⊆ SW:ℝ → ℂa:ℝb:ℝ_ha:0 < ahsupport:Function.support W ⊆ Set.Icc a bhW:ContDiff ℝ ∞ Wtheta:ℝepsilon:ℝCmean:ℝhtheta:0 ≤ thetahepsilon:0 < epsilonhCmean:0 < Cmeanhmean:∀ (D : ℕ) (X : ℝ),
1 ≤ X →
b * X ≤ ↑D →
∀ (T : Finset ActualEisensteinCubic.O),
(∀ h ∈ T, ↑(Ideal.absNorm (Ideal.span {h})) ≤ X ^ (1 + theta)) →
(∀ h ∈ T, h ≠ 0) →
∑ h ∈ T, ‖idealRowSum (outsideIdealsUpTo S D) ⋯ ⋯ chi (fun n => W (↑n / X)) h‖ ^ 2 ≤
Cmean * X ^ (2 + theta + 2 * epsilon)⊢ ∃ C,
0 < C ∧
∀ (D : ℕ) (X : ℝ),
1 ≤ X →
b * X ≤ ↑D →
‖∑ n ∈ outsideIdealsUpTo S D, baseChangeWeight chi n * W (↑(Ideal.absNorm n) / X) * totientDensity n‖ ≤
C * X ^ ((11 + 5 * theta) / 12 + epsilon)
dsimp only [averageExponent, B] q:ℕchi:DirichletCharacter ℂ qS:Finset (Ideal ActualEisensteinCubic.O)hbad:CanonicalQuadraticSieve.fixedBadPrimes ⊆ SW:ℝ → ℂa:ℝb:ℝ_ha:0 < ahsupport:Function.support W ⊆ Set.Icc a bhW:ContDiff ℝ ∞ Wtheta:ℝepsilon:ℝCmean:ℝhtheta:0 ≤ thetahepsilon:0 < epsilonhCmean:0 < Cmeanhmean:∀ (D : ℕ) (X : ℝ),
1 ≤ X →
b * X ≤ ↑D →
∀ (T : Finset ActualEisensteinCubic.O),
(∀ h ∈ T, ↑(Ideal.absNorm (Ideal.span {h})) ≤ X ^ (1 + theta)) →
(∀ h ∈ T, h ≠ 0) →
∑ h ∈ T, ‖idealRowSum (outsideIdealsUpTo S D) ⋯ ⋯ chi (fun n => W (↑n / X)) h‖ ^ 2 ≤
Cmean * X ^ (2 + theta + 2 * epsilon)V:𝓢(ℝ, ℂ)hV:∀ (x : ℝ), ‖V x‖ ≤ 1hVs:Function.support ⇑V ⊆ Set.Icc (1 / 2) 1hV0:V 0 = 0hVhat:paperRadialFourier (⇑V) 0 ≠ 0Cerror:ℝhCerror:0 < Cerrorherror:∀ {q : ℕ} (F : Finset (Ideal ActualEisensteinCubic.O)),
(∀ I ∈ F, I ≠ ⊥) →
∀ (χ : DirichletCharacter ℂ q) (W : ℕ → ℂ) (V : 𝓢(ℝ, ℂ)) (Y lengthScale G : ℝ),
0 < Y →
1 ≤ lengthScale →
0 ≤ G →
(∀ (n : ℕ), ‖W n‖ ≤ G) →
(∀ I ∈ F, W (Ideal.absNorm I) ≠ 0 → ↑(Ideal.absNorm I) ≤ lengthScale) →
‖∑ I ∈ F,
baseChangeWeight χ I * W (Ideal.absNorm I) *
maskedPrincipalRemainder (fun i => ↑i) (idealSupport F I) (⇑V) Y‖ ≤
Cerror * G * pvControl V * lengthScale ^ (1 + epsilon)hWcompact:HasCompactSupport WWs:𝓢(ℝ, ℂ) := hWcompact.toSchwartzMap hWG:ℝ := (SchwartzMap.seminorm ℝ 0 0) WssupportBound:ℝ := max 1 bError:ℝ := Cerror * G * pvControl V * supportBound ^ (1 + epsilon)Average:ℝ := √(768 * Cmean)alpha:ℝ := (1 + theta) / 6targetExponent:ℝ := (11 + 5 * theta) / 12 + epsilonaverageExponent:ℝ := alpha + targetExponentC:ℝ := (Average + Error) / ‖paperRadialFourier (⇑V) 0‖hG:0 ≤ GhSupportBound:1 ≤ supportBoundhError:0 ≤ ErrorhAverage:0 < Averagehhat:0 < ‖paperRadialFourier (⇑V) 0‖halpha:0 ≤ alphaD:ℕX:ℝhX:1 ≤ XhD:b * X ≤ ↑DhXpos:0 < XB:ℝ := X ^ alphahB:1 ≤ BhBpos:0 < BF:Finset (Ideal ConcretePrimeRowBridge.O) := outsideIdealsUpTo S DA:ActualEisensteinCubic.O → ℂ := idealRowSum F ⋯ ⋯ chi fun n => W (↑n / X)hBpower:B ^ 6 = X ^ (1 + theta)hsecondMoment:∑ h ∈ Finset.image (fun b => b ^ 6) (averagingRows B), ‖A h‖ ^ 2 ≤ Cmean * X ^ (2 + theta + 2 * epsilon)havgSquare:‖∑' (b : ActualEisensteinCubic.O), V (‖eisEmbedding b‖ ^ 2 / B) * A (b ^ 6)‖ ^ 2 ≤ (Average * X ^ averageExponent) ^ 2haverageIdentity:768 * B * (Cmean * X ^ (2 + theta + 2 * epsilon)) = (Average * X ^ averageExponent) ^ 2havg:‖∑' (b : ActualEisensteinCubic.O), V (‖eisEmbedding b‖ ^ 2 / B) * A (b ^ 6)‖ ≤ Average * X ^ averageExponenthremainder:‖∑ n ∈ F,
baseChangeWeight chi n * W (↑(Ideal.absNorm n) / X) *
maskedPrincipalRemainder (fun i => ↑i) (idealSupport F n) (⇑V) B‖ ≤
Error * X ^ (1 + epsilon)herrorExponent:X ^ (1 + epsilon) ≤ X ^ averageExponenthmain:B * ‖paperRadialFourier (⇑V) 0‖ * ‖∑ I ∈ F, baseChangeWeight chi I * W (↑(Ideal.absNorm I) / X) * totientDensity I‖ ≤
‖∑' (b : ActualEisensteinCubic.O),
V (‖eisEmbedding b‖ ^ 2 / B) * idealRowSum F ⋯ ⋯ chi (fun n => W (↑n / X)) (b ^ 6)‖ +
‖∑ I ∈ F,
baseChangeWeight chi I * W (↑(Ideal.absNorm I) / X) *
maskedPrincipalRemainder (fun i => ↑i) (idealSupport F I) (⇑V) B‖hbound:B * ‖paperRadialFourier (⇑V) 0‖ * ‖∑ n ∈ F, baseChangeWeight chi n * W (↑(Ideal.absNorm n) / X) * totientDensity n‖ ≤
(Average + Error) * X ^ averageExponent⊢ X ^ (alpha + targetExponent) = X ^ alpha * X ^ targetExponent
rw [← Real.rpow_add hXpos q:ℕchi:DirichletCharacter ℂ qS:Finset (Ideal ActualEisensteinCubic.O)hbad:CanonicalQuadraticSieve.fixedBadPrimes ⊆ SW:ℝ → ℂa:ℝb:ℝ_ha:0 < ahsupport:Function.support W ⊆ Set.Icc a bhW:ContDiff ℝ ∞ Wtheta:ℝepsilon:ℝCmean:ℝhtheta:0 ≤ thetahepsilon:0 < epsilonhCmean:0 < Cmeanhmean:∀ (D : ℕ) (X : ℝ),
1 ≤ X →
b * X ≤ ↑D →
∀ (T : Finset ActualEisensteinCubic.O),
(∀ h ∈ T, ↑(Ideal.absNorm (Ideal.span {h})) ≤ X ^ (1 + theta)) →
(∀ h ∈ T, h ≠ 0) →
∑ h ∈ T, ‖idealRowSum (outsideIdealsUpTo S D) ⋯ ⋯ chi (fun n => W (↑n / X)) h‖ ^ 2 ≤
Cmean * X ^ (2 + theta + 2 * epsilon)V:𝓢(ℝ, ℂ)hV:∀ (x : ℝ), ‖V x‖ ≤ 1hVs:Function.support ⇑V ⊆ Set.Icc (1 / 2) 1hV0:V 0 = 0hVhat:paperRadialFourier (⇑V) 0 ≠ 0Cerror:ℝhCerror:0 < Cerrorherror:∀ {q : ℕ} (F : Finset (Ideal ActualEisensteinCubic.O)),
(∀ I ∈ F, I ≠ ⊥) →
∀ (χ : DirichletCharacter ℂ q) (W : ℕ → ℂ) (V : 𝓢(ℝ, ℂ)) (Y lengthScale G : ℝ),
0 < Y →
1 ≤ lengthScale →
0 ≤ G →
(∀ (n : ℕ), ‖W n‖ ≤ G) →
(∀ I ∈ F, W (Ideal.absNorm I) ≠ 0 → ↑(Ideal.absNorm I) ≤ lengthScale) →
‖∑ I ∈ F,
baseChangeWeight χ I * W (Ideal.absNorm I) *
maskedPrincipalRemainder (fun i => ↑i) (idealSupport F I) (⇑V) Y‖ ≤
Cerror * G * pvControl V * lengthScale ^ (1 + epsilon)hWcompact:HasCompactSupport WWs:𝓢(ℝ, ℂ) := hWcompact.toSchwartzMap hWG:ℝ := (SchwartzMap.seminorm ℝ 0 0) WssupportBound:ℝ := max 1 bError:ℝ := Cerror * G * pvControl V * supportBound ^ (1 + epsilon)Average:ℝ := √(768 * Cmean)alpha:ℝ := (1 + theta) / 6targetExponent:ℝ := (11 + 5 * theta) / 12 + epsilonaverageExponent:ℝ := alpha + targetExponentC:ℝ := (Average + Error) / ‖paperRadialFourier (⇑V) 0‖hG:0 ≤ GhSupportBound:1 ≤ supportBoundhError:0 ≤ ErrorhAverage:0 < Averagehhat:0 < ‖paperRadialFourier (⇑V) 0‖halpha:0 ≤ alphaD:ℕX:ℝhX:1 ≤ XhD:b * X ≤ ↑DhXpos:0 < XB:ℝ := X ^ alphahB:1 ≤ BhBpos:0 < BF:Finset (Ideal ConcretePrimeRowBridge.O) := outsideIdealsUpTo S DA:ActualEisensteinCubic.O → ℂ := idealRowSum F ⋯ ⋯ chi fun n => W (↑n / X)hBpower:B ^ 6 = X ^ (1 + theta)hsecondMoment:∑ h ∈ Finset.image (fun b => b ^ 6) (averagingRows B), ‖A h‖ ^ 2 ≤ Cmean * X ^ (2 + theta + 2 * epsilon)havgSquare:‖∑' (b : ActualEisensteinCubic.O), V (‖eisEmbedding b‖ ^ 2 / B) * A (b ^ 6)‖ ^ 2 ≤ (Average * X ^ averageExponent) ^ 2haverageIdentity:768 * B * (Cmean * X ^ (2 + theta + 2 * epsilon)) = (Average * X ^ averageExponent) ^ 2havg:‖∑' (b : ActualEisensteinCubic.O), V (‖eisEmbedding b‖ ^ 2 / B) * A (b ^ 6)‖ ≤ Average * X ^ averageExponenthremainder:‖∑ n ∈ F,
baseChangeWeight chi n * W (↑(Ideal.absNorm n) / X) *
maskedPrincipalRemainder (fun i => ↑i) (idealSupport F n) (⇑V) B‖ ≤
Error * X ^ (1 + epsilon)herrorExponent:X ^ (1 + epsilon) ≤ X ^ averageExponenthmain:B * ‖paperRadialFourier (⇑V) 0‖ * ‖∑ I ∈ F, baseChangeWeight chi I * W (↑(Ideal.absNorm I) / X) * totientDensity I‖ ≤
‖∑' (b : ActualEisensteinCubic.O),
V (‖eisEmbedding b‖ ^ 2 / B) * idealRowSum F ⋯ ⋯ chi (fun n => W (↑n / X)) (b ^ 6)‖ +
‖∑ I ∈ F,
baseChangeWeight chi I * W (↑(Ideal.absNorm I) / X) *
maskedPrincipalRemainder (fun i => ↑i) (idealSupport F I) (⇑V) B‖hbound:B * ‖paperRadialFourier (⇑V) 0‖ * ‖∑ n ∈ F, baseChangeWeight chi n * W (↑(Ideal.absNorm n) / X) * totientDensity n‖ ≤
(Average + Error) * X ^ averageExponent⊢ X ^ (alpha + targetExponent) = X ^ (alpha + targetExponent)] q:ℕchi:DirichletCharacter ℂ qS:Finset (Ideal ActualEisensteinCubic.O)hbad:CanonicalQuadraticSieve.fixedBadPrimes ⊆ SW:ℝ → ℂa:ℝb:ℝ_ha:0 < ahsupport:Function.support W ⊆ Set.Icc a bhW:ContDiff ℝ ∞ Wtheta:ℝepsilon:ℝCmean:ℝhtheta:0 ≤ thetahepsilon:0 < epsilonhCmean:0 < Cmeanhmean:∀ (D : ℕ) (X : ℝ),
1 ≤ X →
b * X ≤ ↑D →
∀ (T : Finset ActualEisensteinCubic.O),
(∀ h ∈ T, ↑(Ideal.absNorm (Ideal.span {h})) ≤ X ^ (1 + theta)) →
(∀ h ∈ T, h ≠ 0) →
∑ h ∈ T, ‖idealRowSum (outsideIdealsUpTo S D) ⋯ ⋯ chi (fun n => W (↑n / X)) h‖ ^ 2 ≤
Cmean * X ^ (2 + theta + 2 * epsilon)V:𝓢(ℝ, ℂ)hV:∀ (x : ℝ), ‖V x‖ ≤ 1hVs:Function.support ⇑V ⊆ Set.Icc (1 / 2) 1hV0:V 0 = 0hVhat:paperRadialFourier (⇑V) 0 ≠ 0Cerror:ℝhCerror:0 < Cerrorherror:∀ {q : ℕ} (F : Finset (Ideal ActualEisensteinCubic.O)),
(∀ I ∈ F, I ≠ ⊥) →
∀ (χ : DirichletCharacter ℂ q) (W : ℕ → ℂ) (V : 𝓢(ℝ, ℂ)) (Y lengthScale G : ℝ),
0 < Y →
1 ≤ lengthScale →
0 ≤ G →
(∀ (n : ℕ), ‖W n‖ ≤ G) →
(∀ I ∈ F, W (Ideal.absNorm I) ≠ 0 → ↑(Ideal.absNorm I) ≤ lengthScale) →
‖∑ I ∈ F,
baseChangeWeight χ I * W (Ideal.absNorm I) *
maskedPrincipalRemainder (fun i => ↑i) (idealSupport F I) (⇑V) Y‖ ≤
Cerror * G * pvControl V * lengthScale ^ (1 + epsilon)hWcompact:HasCompactSupport WWs:𝓢(ℝ, ℂ) := hWcompact.toSchwartzMap hWG:ℝ := (SchwartzMap.seminorm ℝ 0 0) WssupportBound:ℝ := max 1 bError:ℝ := Cerror * G * pvControl V * supportBound ^ (1 + epsilon)Average:ℝ := √(768 * Cmean)alpha:ℝ := (1 + theta) / 6targetExponent:ℝ := (11 + 5 * theta) / 12 + epsilonaverageExponent:ℝ := alpha + targetExponentC:ℝ := (Average + Error) / ‖paperRadialFourier (⇑V) 0‖hG:0 ≤ GhSupportBound:1 ≤ supportBoundhError:0 ≤ ErrorhAverage:0 < Averagehhat:0 < ‖paperRadialFourier (⇑V) 0‖halpha:0 ≤ alphaD:ℕX:ℝhX:1 ≤ XhD:b * X ≤ ↑DhXpos:0 < XB:ℝ := X ^ alphahB:1 ≤ BhBpos:0 < BF:Finset (Ideal ConcretePrimeRowBridge.O) := outsideIdealsUpTo S DA:ActualEisensteinCubic.O → ℂ := idealRowSum F ⋯ ⋯ chi fun n => W (↑n / X)hBpower:B ^ 6 = X ^ (1 + theta)hsecondMoment:∑ h ∈ Finset.image (fun b => b ^ 6) (averagingRows B), ‖A h‖ ^ 2 ≤ Cmean * X ^ (2 + theta + 2 * epsilon)havgSquare:‖∑' (b : ActualEisensteinCubic.O), V (‖eisEmbedding b‖ ^ 2 / B) * A (b ^ 6)‖ ^ 2 ≤ (Average * X ^ averageExponent) ^ 2haverageIdentity:768 * B * (Cmean * X ^ (2 + theta + 2 * epsilon)) = (Average * X ^ averageExponent) ^ 2havg:‖∑' (b : ActualEisensteinCubic.O), V (‖eisEmbedding b‖ ^ 2 / B) * A (b ^ 6)‖ ≤ Average * X ^ averageExponenthremainder:‖∑ n ∈ F,
baseChangeWeight chi n * W (↑(Ideal.absNorm n) / X) *
maskedPrincipalRemainder (fun i => ↑i) (idealSupport F n) (⇑V) B‖ ≤
Error * X ^ (1 + epsilon)herrorExponent:X ^ (1 + epsilon) ≤ X ^ averageExponenthmain:B * ‖paperRadialFourier (⇑V) 0‖ * ‖∑ I ∈ F, baseChangeWeight chi I * W (↑(Ideal.absNorm I) / X) * totientDensity I‖ ≤
‖∑' (b : ActualEisensteinCubic.O),
V (‖eisEmbedding b‖ ^ 2 / B) * idealRowSum F ⋯ ⋯ chi (fun n => W (↑n / X)) (b ^ 6)‖ +
‖∑ I ∈ F,
baseChangeWeight chi I * W (↑(Ideal.absNorm I) / X) *
maskedPrincipalRemainder (fun i => ↑i) (idealSupport F I) (⇑V) B‖hbound:B * ‖paperRadialFourier (⇑V) 0‖ * ‖∑ n ∈ F, baseChangeWeight chi n * W (↑(Ideal.absNorm n) / X) * totientDensity n‖ ≤
(Average + Error) * X ^ averageExponenthfactor:X ^ averageExponent = B * X ^ targetExponent⊢ ‖∑ n ∈ outsideIdealsUpTo S D, baseChangeWeight chi n * W (↑(Ideal.absNorm n) / X) * totientDensity n‖ ≤
C * X ^ ((11 + 5 * theta) / 12 + epsilon)
apply (mul_le_mul_iff_right₀ (mul_pos hBpos hhat)).mp q:ℕchi:DirichletCharacter ℂ qS:Finset (Ideal ActualEisensteinCubic.O)hbad:CanonicalQuadraticSieve.fixedBadPrimes ⊆ SW:ℝ → ℂa:ℝb:ℝ_ha:0 < ahsupport:Function.support W ⊆ Set.Icc a bhW:ContDiff ℝ ∞ Wtheta:ℝepsilon:ℝCmean:ℝhtheta:0 ≤ thetahepsilon:0 < epsilonhCmean:0 < Cmeanhmean:∀ (D : ℕ) (X : ℝ),
1 ≤ X →
b * X ≤ ↑D →
∀ (T : Finset ActualEisensteinCubic.O),
(∀ h ∈ T, ↑(Ideal.absNorm (Ideal.span {h})) ≤ X ^ (1 + theta)) →
(∀ h ∈ T, h ≠ 0) →
∑ h ∈ T, ‖idealRowSum (outsideIdealsUpTo S D) ⋯ ⋯ chi (fun n => W (↑n / X)) h‖ ^ 2 ≤
Cmean * X ^ (2 + theta + 2 * epsilon)V:𝓢(ℝ, ℂ)hV:∀ (x : ℝ), ‖V x‖ ≤ 1hVs:Function.support ⇑V ⊆ Set.Icc (1 / 2) 1hV0:V 0 = 0hVhat:paperRadialFourier (⇑V) 0 ≠ 0Cerror:ℝhCerror:0 < Cerrorherror:∀ {q : ℕ} (F : Finset (Ideal ActualEisensteinCubic.O)),
(∀ I ∈ F, I ≠ ⊥) →
∀ (χ : DirichletCharacter ℂ q) (W : ℕ → ℂ) (V : 𝓢(ℝ, ℂ)) (Y lengthScale G : ℝ),
0 < Y →
1 ≤ lengthScale →
0 ≤ G →
(∀ (n : ℕ), ‖W n‖ ≤ G) →
(∀ I ∈ F, W (Ideal.absNorm I) ≠ 0 → ↑(Ideal.absNorm I) ≤ lengthScale) →
‖∑ I ∈ F,
baseChangeWeight χ I * W (Ideal.absNorm I) *
maskedPrincipalRemainder (fun i => ↑i) (idealSupport F I) (⇑V) Y‖ ≤
Cerror * G * pvControl V * lengthScale ^ (1 + epsilon)hWcompact:HasCompactSupport WWs:𝓢(ℝ, ℂ) := hWcompact.toSchwartzMap hWG:ℝ := (SchwartzMap.seminorm ℝ 0 0) WssupportBound:ℝ := max 1 bError:ℝ := Cerror * G * pvControl V * supportBound ^ (1 + epsilon)Average:ℝ := √(768 * Cmean)alpha:ℝ := (1 + theta) / 6targetExponent:ℝ := (11 + 5 * theta) / 12 + epsilonaverageExponent:ℝ := alpha + targetExponentC:ℝ := (Average + Error) / ‖paperRadialFourier (⇑V) 0‖hG:0 ≤ GhSupportBound:1 ≤ supportBoundhError:0 ≤ ErrorhAverage:0 < Averagehhat:0 < ‖paperRadialFourier (⇑V) 0‖halpha:0 ≤ alphaD:ℕX:ℝhX:1 ≤ XhD:b * X ≤ ↑DhXpos:0 < XB:ℝ := X ^ alphahB:1 ≤ BhBpos:0 < BF:Finset (Ideal ConcretePrimeRowBridge.O) := outsideIdealsUpTo S DA:ActualEisensteinCubic.O → ℂ := idealRowSum F ⋯ ⋯ chi fun n => W (↑n / X)hBpower:B ^ 6 = X ^ (1 + theta)hsecondMoment:∑ h ∈ Finset.image (fun b => b ^ 6) (averagingRows B), ‖A h‖ ^ 2 ≤ Cmean * X ^ (2 + theta + 2 * epsilon)havgSquare:‖∑' (b : ActualEisensteinCubic.O), V (‖eisEmbedding b‖ ^ 2 / B) * A (b ^ 6)‖ ^ 2 ≤ (Average * X ^ averageExponent) ^ 2haverageIdentity:768 * B * (Cmean * X ^ (2 + theta + 2 * epsilon)) = (Average * X ^ averageExponent) ^ 2havg:‖∑' (b : ActualEisensteinCubic.O), V (‖eisEmbedding b‖ ^ 2 / B) * A (b ^ 6)‖ ≤ Average * X ^ averageExponenthremainder:‖∑ n ∈ F,
baseChangeWeight chi n * W (↑(Ideal.absNorm n) / X) *
maskedPrincipalRemainder (fun i => ↑i) (idealSupport F n) (⇑V) B‖ ≤
Error * X ^ (1 + epsilon)herrorExponent:X ^ (1 + epsilon) ≤ X ^ averageExponenthmain:B * ‖paperRadialFourier (⇑V) 0‖ * ‖∑ I ∈ F, baseChangeWeight chi I * W (↑(Ideal.absNorm I) / X) * totientDensity I‖ ≤
‖∑' (b : ActualEisensteinCubic.O),
V (‖eisEmbedding b‖ ^ 2 / B) * idealRowSum F ⋯ ⋯ chi (fun n => W (↑n / X)) (b ^ 6)‖ +
‖∑ I ∈ F,
baseChangeWeight chi I * W (↑(Ideal.absNorm I) / X) *
maskedPrincipalRemainder (fun i => ↑i) (idealSupport F I) (⇑V) B‖hbound:B * ‖paperRadialFourier (⇑V) 0‖ * ‖∑ n ∈ F, baseChangeWeight chi n * W (↑(Ideal.absNorm n) / X) * totientDensity n‖ ≤
(Average + Error) * X ^ averageExponenthfactor:X ^ averageExponent = B * X ^ targetExponent⊢ B * ‖paperRadialFourier (⇑V) 0‖ *
‖∑ n ∈ outsideIdealsUpTo S D, baseChangeWeight chi n * W (↑(Ideal.absNorm n) / X) * totientDensity n‖ ≤
B * ‖paperRadialFourier (⇑V) 0‖ * (C * X ^ ((11 + 5 * theta) / 12 + epsilon))
apply hbound.trans_eq q:ℕchi:DirichletCharacter ℂ qS:Finset (Ideal ActualEisensteinCubic.O)hbad:CanonicalQuadraticSieve.fixedBadPrimes ⊆ SW:ℝ → ℂa:ℝb:ℝ_ha:0 < ahsupport:Function.support W ⊆ Set.Icc a bhW:ContDiff ℝ ∞ Wtheta:ℝepsilon:ℝCmean:ℝhtheta:0 ≤ thetahepsilon:0 < epsilonhCmean:0 < Cmeanhmean:∀ (D : ℕ) (X : ℝ),
1 ≤ X →
b * X ≤ ↑D →
∀ (T : Finset ActualEisensteinCubic.O),
(∀ h ∈ T, ↑(Ideal.absNorm (Ideal.span {h})) ≤ X ^ (1 + theta)) →
(∀ h ∈ T, h ≠ 0) →
∑ h ∈ T, ‖idealRowSum (outsideIdealsUpTo S D) ⋯ ⋯ chi (fun n => W (↑n / X)) h‖ ^ 2 ≤
Cmean * X ^ (2 + theta + 2 * epsilon)V:𝓢(ℝ, ℂ)hV:∀ (x : ℝ), ‖V x‖ ≤ 1hVs:Function.support ⇑V ⊆ Set.Icc (1 / 2) 1hV0:V 0 = 0hVhat:paperRadialFourier (⇑V) 0 ≠ 0Cerror:ℝhCerror:0 < Cerrorherror:∀ {q : ℕ} (F : Finset (Ideal ActualEisensteinCubic.O)),
(∀ I ∈ F, I ≠ ⊥) →
∀ (χ : DirichletCharacter ℂ q) (W : ℕ → ℂ) (V : 𝓢(ℝ, ℂ)) (Y lengthScale G : ℝ),
0 < Y →
1 ≤ lengthScale →
0 ≤ G →
(∀ (n : ℕ), ‖W n‖ ≤ G) →
(∀ I ∈ F, W (Ideal.absNorm I) ≠ 0 → ↑(Ideal.absNorm I) ≤ lengthScale) →
‖∑ I ∈ F,
baseChangeWeight χ I * W (Ideal.absNorm I) *
maskedPrincipalRemainder (fun i => ↑i) (idealSupport F I) (⇑V) Y‖ ≤
Cerror * G * pvControl V * lengthScale ^ (1 + epsilon)hWcompact:HasCompactSupport WWs:𝓢(ℝ, ℂ) := hWcompact.toSchwartzMap hWG:ℝ := (SchwartzMap.seminorm ℝ 0 0) WssupportBound:ℝ := max 1 bError:ℝ := Cerror * G * pvControl V * supportBound ^ (1 + epsilon)Average:ℝ := √(768 * Cmean)alpha:ℝ := (1 + theta) / 6targetExponent:ℝ := (11 + 5 * theta) / 12 + epsilonaverageExponent:ℝ := alpha + targetExponentC:ℝ := (Average + Error) / ‖paperRadialFourier (⇑V) 0‖hG:0 ≤ GhSupportBound:1 ≤ supportBoundhError:0 ≤ ErrorhAverage:0 < Averagehhat:0 < ‖paperRadialFourier (⇑V) 0‖halpha:0 ≤ alphaD:ℕX:ℝhX:1 ≤ XhD:b * X ≤ ↑DhXpos:0 < XB:ℝ := X ^ alphahB:1 ≤ BhBpos:0 < BF:Finset (Ideal ConcretePrimeRowBridge.O) := outsideIdealsUpTo S DA:ActualEisensteinCubic.O → ℂ := idealRowSum F ⋯ ⋯ chi fun n => W (↑n / X)hBpower:B ^ 6 = X ^ (1 + theta)hsecondMoment:∑ h ∈ Finset.image (fun b => b ^ 6) (averagingRows B), ‖A h‖ ^ 2 ≤ Cmean * X ^ (2 + theta + 2 * epsilon)havgSquare:‖∑' (b : ActualEisensteinCubic.O), V (‖eisEmbedding b‖ ^ 2 / B) * A (b ^ 6)‖ ^ 2 ≤ (Average * X ^ averageExponent) ^ 2haverageIdentity:768 * B * (Cmean * X ^ (2 + theta + 2 * epsilon)) = (Average * X ^ averageExponent) ^ 2havg:‖∑' (b : ActualEisensteinCubic.O), V (‖eisEmbedding b‖ ^ 2 / B) * A (b ^ 6)‖ ≤ Average * X ^ averageExponenthremainder:‖∑ n ∈ F,
baseChangeWeight chi n * W (↑(Ideal.absNorm n) / X) *
maskedPrincipalRemainder (fun i => ↑i) (idealSupport F n) (⇑V) B‖ ≤
Error * X ^ (1 + epsilon)herrorExponent:X ^ (1 + epsilon) ≤ X ^ averageExponenthmain:B * ‖paperRadialFourier (⇑V) 0‖ * ‖∑ I ∈ F, baseChangeWeight chi I * W (↑(Ideal.absNorm I) / X) * totientDensity I‖ ≤
‖∑' (b : ActualEisensteinCubic.O),
V (‖eisEmbedding b‖ ^ 2 / B) * idealRowSum F ⋯ ⋯ chi (fun n => W (↑n / X)) (b ^ 6)‖ +
‖∑ I ∈ F,
baseChangeWeight chi I * W (↑(Ideal.absNorm I) / X) *
maskedPrincipalRemainder (fun i => ↑i) (idealSupport F I) (⇑V) B‖hbound:B * ‖paperRadialFourier (⇑V) 0‖ * ‖∑ n ∈ F, baseChangeWeight chi n * W (↑(Ideal.absNorm n) / X) * totientDensity n‖ ≤
(Average + Error) * X ^ averageExponenthfactor:X ^ averageExponent = B * X ^ targetExponent⊢ (Average + Error) * X ^ averageExponent = B * ‖paperRadialFourier (⇑V) 0‖ * (C * X ^ ((11 + 5 * theta) / 12 + epsilon))
rw [hfactor q:ℕchi:DirichletCharacter ℂ qS:Finset (Ideal ActualEisensteinCubic.O)hbad:CanonicalQuadraticSieve.fixedBadPrimes ⊆ SW:ℝ → ℂa:ℝb:ℝ_ha:0 < ahsupport:Function.support W ⊆ Set.Icc a bhW:ContDiff ℝ ∞ Wtheta:ℝepsilon:ℝCmean:ℝhtheta:0 ≤ thetahepsilon:0 < epsilonhCmean:0 < Cmeanhmean:∀ (D : ℕ) (X : ℝ),
1 ≤ X →
b * X ≤ ↑D →
∀ (T : Finset ActualEisensteinCubic.O),
(∀ h ∈ T, ↑(Ideal.absNorm (Ideal.span {h})) ≤ X ^ (1 + theta)) →
(∀ h ∈ T, h ≠ 0) →
∑ h ∈ T, ‖idealRowSum (outsideIdealsUpTo S D) ⋯ ⋯ chi (fun n => W (↑n / X)) h‖ ^ 2 ≤
Cmean * X ^ (2 + theta + 2 * epsilon)V:𝓢(ℝ, ℂ)hV:∀ (x : ℝ), ‖V x‖ ≤ 1hVs:Function.support ⇑V ⊆ Set.Icc (1 / 2) 1hV0:V 0 = 0hVhat:paperRadialFourier (⇑V) 0 ≠ 0Cerror:ℝhCerror:0 < Cerrorherror:∀ {q : ℕ} (F : Finset (Ideal ActualEisensteinCubic.O)),
(∀ I ∈ F, I ≠ ⊥) →
∀ (χ : DirichletCharacter ℂ q) (W : ℕ → ℂ) (V : 𝓢(ℝ, ℂ)) (Y lengthScale G : ℝ),
0 < Y →
1 ≤ lengthScale →
0 ≤ G →
(∀ (n : ℕ), ‖W n‖ ≤ G) →
(∀ I ∈ F, W (Ideal.absNorm I) ≠ 0 → ↑(Ideal.absNorm I) ≤ lengthScale) →
‖∑ I ∈ F,
baseChangeWeight χ I * W (Ideal.absNorm I) *
maskedPrincipalRemainder (fun i => ↑i) (idealSupport F I) (⇑V) Y‖ ≤
Cerror * G * pvControl V * lengthScale ^ (1 + epsilon)hWcompact:HasCompactSupport WWs:𝓢(ℝ, ℂ) := hWcompact.toSchwartzMap hWG:ℝ := (SchwartzMap.seminorm ℝ 0 0) WssupportBound:ℝ := max 1 bError:ℝ := Cerror * G * pvControl V * supportBound ^ (1 + epsilon)Average:ℝ := √(768 * Cmean)alpha:ℝ := (1 + theta) / 6targetExponent:ℝ := (11 + 5 * theta) / 12 + epsilonaverageExponent:ℝ := alpha + targetExponentC:ℝ := (Average + Error) / ‖paperRadialFourier (⇑V) 0‖hG:0 ≤ GhSupportBound:1 ≤ supportBoundhError:0 ≤ ErrorhAverage:0 < Averagehhat:0 < ‖paperRadialFourier (⇑V) 0‖halpha:0 ≤ alphaD:ℕX:ℝhX:1 ≤ XhD:b * X ≤ ↑DhXpos:0 < XB:ℝ := X ^ alphahB:1 ≤ BhBpos:0 < BF:Finset (Ideal ConcretePrimeRowBridge.O) := outsideIdealsUpTo S DA:ActualEisensteinCubic.O → ℂ := idealRowSum F ⋯ ⋯ chi fun n => W (↑n / X)hBpower:B ^ 6 = X ^ (1 + theta)hsecondMoment:∑ h ∈ Finset.image (fun b => b ^ 6) (averagingRows B), ‖A h‖ ^ 2 ≤ Cmean * X ^ (2 + theta + 2 * epsilon)havgSquare:‖∑' (b : ActualEisensteinCubic.O), V (‖eisEmbedding b‖ ^ 2 / B) * A (b ^ 6)‖ ^ 2 ≤ (Average * X ^ averageExponent) ^ 2haverageIdentity:768 * B * (Cmean * X ^ (2 + theta + 2 * epsilon)) = (Average * X ^ averageExponent) ^ 2havg:‖∑' (b : ActualEisensteinCubic.O), V (‖eisEmbedding b‖ ^ 2 / B) * A (b ^ 6)‖ ≤ Average * X ^ averageExponenthremainder:‖∑ n ∈ F,
baseChangeWeight chi n * W (↑(Ideal.absNorm n) / X) *
maskedPrincipalRemainder (fun i => ↑i) (idealSupport F n) (⇑V) B‖ ≤
Error * X ^ (1 + epsilon)herrorExponent:X ^ (1 + epsilon) ≤ X ^ averageExponenthmain:B * ‖paperRadialFourier (⇑V) 0‖ * ‖∑ I ∈ F, baseChangeWeight chi I * W (↑(Ideal.absNorm I) / X) * totientDensity I‖ ≤
‖∑' (b : ActualEisensteinCubic.O),
V (‖eisEmbedding b‖ ^ 2 / B) * idealRowSum F ⋯ ⋯ chi (fun n => W (↑n / X)) (b ^ 6)‖ +
‖∑ I ∈ F,
baseChangeWeight chi I * W (↑(Ideal.absNorm I) / X) *
maskedPrincipalRemainder (fun i => ↑i) (idealSupport F I) (⇑V) B‖hbound:B * ‖paperRadialFourier (⇑V) 0‖ * ‖∑ n ∈ F, baseChangeWeight chi n * W (↑(Ideal.absNorm n) / X) * totientDensity n‖ ≤
(Average + Error) * X ^ averageExponenthfactor:X ^ averageExponent = B * X ^ targetExponent⊢ (Average + Error) * (B * X ^ targetExponent) =
B * ‖paperRadialFourier (⇑V) 0‖ * (C * X ^ ((11 + 5 * theta) / 12 + epsilon))] q:ℕchi:DirichletCharacter ℂ qS:Finset (Ideal ActualEisensteinCubic.O)hbad:CanonicalQuadraticSieve.fixedBadPrimes ⊆ SW:ℝ → ℂa:ℝb:ℝ_ha:0 < ahsupport:Function.support W ⊆ Set.Icc a bhW:ContDiff ℝ ∞ Wtheta:ℝepsilon:ℝCmean:ℝhtheta:0 ≤ thetahepsilon:0 < epsilonhCmean:0 < Cmeanhmean:∀ (D : ℕ) (X : ℝ),
1 ≤ X →
b * X ≤ ↑D →
∀ (T : Finset ActualEisensteinCubic.O),
(∀ h ∈ T, ↑(Ideal.absNorm (Ideal.span {h})) ≤ X ^ (1 + theta)) →
(∀ h ∈ T, h ≠ 0) →
∑ h ∈ T, ‖idealRowSum (outsideIdealsUpTo S D) ⋯ ⋯ chi (fun n => W (↑n / X)) h‖ ^ 2 ≤
Cmean * X ^ (2 + theta + 2 * epsilon)V:𝓢(ℝ, ℂ)hV:∀ (x : ℝ), ‖V x‖ ≤ 1hVs:Function.support ⇑V ⊆ Set.Icc (1 / 2) 1hV0:V 0 = 0hVhat:paperRadialFourier (⇑V) 0 ≠ 0Cerror:ℝhCerror:0 < Cerrorherror:∀ {q : ℕ} (F : Finset (Ideal ActualEisensteinCubic.O)),
(∀ I ∈ F, I ≠ ⊥) →
∀ (χ : DirichletCharacter ℂ q) (W : ℕ → ℂ) (V : 𝓢(ℝ, ℂ)) (Y lengthScale G : ℝ),
0 < Y →
1 ≤ lengthScale →
0 ≤ G →
(∀ (n : ℕ), ‖W n‖ ≤ G) →
(∀ I ∈ F, W (Ideal.absNorm I) ≠ 0 → ↑(Ideal.absNorm I) ≤ lengthScale) →
‖∑ I ∈ F,
baseChangeWeight χ I * W (Ideal.absNorm I) *
maskedPrincipalRemainder (fun i => ↑i) (idealSupport F I) (⇑V) Y‖ ≤
Cerror * G * pvControl V * lengthScale ^ (1 + epsilon)hWcompact:HasCompactSupport WWs:𝓢(ℝ, ℂ) := hWcompact.toSchwartzMap hWG:ℝ := (SchwartzMap.seminorm ℝ 0 0) WssupportBound:ℝ := max 1 bError:ℝ := Cerror * G * pvControl V * supportBound ^ (1 + epsilon)Average:ℝ := √(768 * Cmean)alpha:ℝ := (1 + theta) / 6targetExponent:ℝ := (11 + 5 * theta) / 12 + epsilonaverageExponent:ℝ := alpha + targetExponentC:ℝ := (Average + Error) / ‖paperRadialFourier (⇑V) 0‖hG:0 ≤ GhSupportBound:1 ≤ supportBoundhError:0 ≤ ErrorhAverage:0 < Averagehhat:0 < ‖paperRadialFourier (⇑V) 0‖halpha:0 ≤ alphaD:ℕX:ℝhX:1 ≤ XhD:b * X ≤ ↑DhXpos:0 < XB:ℝ := X ^ alphahB:1 ≤ BhBpos:0 < BF:Finset (Ideal ConcretePrimeRowBridge.O) := outsideIdealsUpTo S DA:ActualEisensteinCubic.O → ℂ := idealRowSum F ⋯ ⋯ chi fun n => W (↑n / X)hBpower:B ^ 6 = X ^ (1 + theta)hsecondMoment:∑ h ∈ Finset.image (fun b => b ^ 6) (averagingRows B), ‖A h‖ ^ 2 ≤ Cmean * X ^ (2 + theta + 2 * epsilon)havgSquare:‖∑' (b : ActualEisensteinCubic.O), V (‖eisEmbedding b‖ ^ 2 / B) * A (b ^ 6)‖ ^ 2 ≤ (Average * X ^ averageExponent) ^ 2haverageIdentity:768 * B * (Cmean * X ^ (2 + theta + 2 * epsilon)) = (Average * X ^ averageExponent) ^ 2havg:‖∑' (b : ActualEisensteinCubic.O), V (‖eisEmbedding b‖ ^ 2 / B) * A (b ^ 6)‖ ≤ Average * X ^ averageExponenthremainder:‖∑ n ∈ F,
baseChangeWeight chi n * W (↑(Ideal.absNorm n) / X) *
maskedPrincipalRemainder (fun i => ↑i) (idealSupport F n) (⇑V) B‖ ≤
Error * X ^ (1 + epsilon)herrorExponent:X ^ (1 + epsilon) ≤ X ^ averageExponenthmain:B * ‖paperRadialFourier (⇑V) 0‖ * ‖∑ I ∈ F, baseChangeWeight chi I * W (↑(Ideal.absNorm I) / X) * totientDensity I‖ ≤
‖∑' (b : ActualEisensteinCubic.O),
V (‖eisEmbedding b‖ ^ 2 / B) * idealRowSum F ⋯ ⋯ chi (fun n => W (↑n / X)) (b ^ 6)‖ +
‖∑ I ∈ F,
baseChangeWeight chi I * W (↑(Ideal.absNorm I) / X) *
maskedPrincipalRemainder (fun i => ↑i) (idealSupport F I) (⇑V) B‖hbound:B * ‖paperRadialFourier (⇑V) 0‖ * ‖∑ n ∈ F, baseChangeWeight chi n * W (↑(Ideal.absNorm n) / X) * totientDensity n‖ ≤
(Average + Error) * X ^ averageExponenthfactor:X ^ averageExponent = B * X ^ targetExponent⊢ (Average + Error) * (B * X ^ targetExponent) =
B * ‖paperRadialFourier (⇑V) 0‖ * (C * X ^ ((11 + 5 * theta) / 12 + epsilon))
dsimp only [C, targetExponent] q:ℕchi:DirichletCharacter ℂ qS:Finset (Ideal ActualEisensteinCubic.O)hbad:CanonicalQuadraticSieve.fixedBadPrimes ⊆ SW:ℝ → ℂa:ℝb:ℝ_ha:0 < ahsupport:Function.support W ⊆ Set.Icc a bhW:ContDiff ℝ ∞ Wtheta:ℝepsilon:ℝCmean:ℝhtheta:0 ≤ thetahepsilon:0 < epsilonhCmean:0 < Cmeanhmean:∀ (D : ℕ) (X : ℝ),
1 ≤ X →
b * X ≤ ↑D →
∀ (T : Finset ActualEisensteinCubic.O),
(∀ h ∈ T, ↑(Ideal.absNorm (Ideal.span {h})) ≤ X ^ (1 + theta)) →
(∀ h ∈ T, h ≠ 0) →
∑ h ∈ T, ‖idealRowSum (outsideIdealsUpTo S D) ⋯ ⋯ chi (fun n => W (↑n / X)) h‖ ^ 2 ≤
Cmean * X ^ (2 + theta + 2 * epsilon)V:𝓢(ℝ, ℂ)hV:∀ (x : ℝ), ‖V x‖ ≤ 1hVs:Function.support ⇑V ⊆ Set.Icc (1 / 2) 1hV0:V 0 = 0hVhat:paperRadialFourier (⇑V) 0 ≠ 0Cerror:ℝhCerror:0 < Cerrorherror:∀ {q : ℕ} (F : Finset (Ideal ActualEisensteinCubic.O)),
(∀ I ∈ F, I ≠ ⊥) →
∀ (χ : DirichletCharacter ℂ q) (W : ℕ → ℂ) (V : 𝓢(ℝ, ℂ)) (Y lengthScale G : ℝ),
0 < Y →
1 ≤ lengthScale →
0 ≤ G →
(∀ (n : ℕ), ‖W n‖ ≤ G) →
(∀ I ∈ F, W (Ideal.absNorm I) ≠ 0 → ↑(Ideal.absNorm I) ≤ lengthScale) →
‖∑ I ∈ F,
baseChangeWeight χ I * W (Ideal.absNorm I) *
maskedPrincipalRemainder (fun i => ↑i) (idealSupport F I) (⇑V) Y‖ ≤
Cerror * G * pvControl V * lengthScale ^ (1 + epsilon)hWcompact:HasCompactSupport WWs:𝓢(ℝ, ℂ) := hWcompact.toSchwartzMap hWG:ℝ := (SchwartzMap.seminorm ℝ 0 0) WssupportBound:ℝ := max 1 bError:ℝ := Cerror * G * pvControl V * supportBound ^ (1 + epsilon)Average:ℝ := √(768 * Cmean)alpha:ℝ := (1 + theta) / 6targetExponent:ℝ := (11 + 5 * theta) / 12 + epsilonaverageExponent:ℝ := alpha + targetExponentC:ℝ := (Average + Error) / ‖paperRadialFourier (⇑V) 0‖hG:0 ≤ GhSupportBound:1 ≤ supportBoundhError:0 ≤ ErrorhAverage:0 < Averagehhat:0 < ‖paperRadialFourier (⇑V) 0‖halpha:0 ≤ alphaD:ℕX:ℝhX:1 ≤ XhD:b * X ≤ ↑DhXpos:0 < XB:ℝ := X ^ alphahB:1 ≤ BhBpos:0 < BF:Finset (Ideal ConcretePrimeRowBridge.O) := outsideIdealsUpTo S DA:ActualEisensteinCubic.O → ℂ := idealRowSum F ⋯ ⋯ chi fun n => W (↑n / X)hBpower:B ^ 6 = X ^ (1 + theta)hsecondMoment:∑ h ∈ Finset.image (fun b => b ^ 6) (averagingRows B), ‖A h‖ ^ 2 ≤ Cmean * X ^ (2 + theta + 2 * epsilon)havgSquare:‖∑' (b : ActualEisensteinCubic.O), V (‖eisEmbedding b‖ ^ 2 / B) * A (b ^ 6)‖ ^ 2 ≤ (Average * X ^ averageExponent) ^ 2haverageIdentity:768 * B * (Cmean * X ^ (2 + theta + 2 * epsilon)) = (Average * X ^ averageExponent) ^ 2havg:‖∑' (b : ActualEisensteinCubic.O), V (‖eisEmbedding b‖ ^ 2 / B) * A (b ^ 6)‖ ≤ Average * X ^ averageExponenthremainder:‖∑ n ∈ F,
baseChangeWeight chi n * W (↑(Ideal.absNorm n) / X) *
maskedPrincipalRemainder (fun i => ↑i) (idealSupport F n) (⇑V) B‖ ≤
Error * X ^ (1 + epsilon)herrorExponent:X ^ (1 + epsilon) ≤ X ^ averageExponenthmain:B * ‖paperRadialFourier (⇑V) 0‖ * ‖∑ I ∈ F, baseChangeWeight chi I * W (↑(Ideal.absNorm I) / X) * totientDensity I‖ ≤
‖∑' (b : ActualEisensteinCubic.O),
V (‖eisEmbedding b‖ ^ 2 / B) * idealRowSum F ⋯ ⋯ chi (fun n => W (↑n / X)) (b ^ 6)‖ +
‖∑ I ∈ F,
baseChangeWeight chi I * W (↑(Ideal.absNorm I) / X) *
maskedPrincipalRemainder (fun i => ↑i) (idealSupport F I) (⇑V) B‖hbound:B * ‖paperRadialFourier (⇑V) 0‖ * ‖∑ n ∈ F, baseChangeWeight chi n * W (↑(Ideal.absNorm n) / X) * totientDensity n‖ ≤
(Average + Error) * X ^ averageExponenthfactor:X ^ averageExponent = B * X ^ targetExponent⊢ (Average + Error) * (B * X ^ ((11 + 5 * theta) / 12 + epsilon)) =
B * ‖paperRadialFourier (⇑V) 0‖ *
((Average + Error) / ‖paperRadialFourier (⇑V) 0‖ * X ^ ((11 + 5 * theta) / 12 + epsilon))
field_simp [hhat.ne'] All goals completed! 🐙endend ElevenTwelfths