theorem
MathlibNt.AnalyticNumberTheory.LargeSieve.LiLiuPrereqFouvry.wellFactorable_signedError_sq_le_floor_extracted_kscale
{ι : Type u_1}
{κ k i j : ℕ}
(A : ℕ)
{T : ι → ℝ}
{N : ι → Finset ℕ}
{β : ι → ℕ → ℝ}
(hSW : BetaCoprimeSWFamily κ T N β)
(hT : ∀ (z : ι), 1 ≤ T z)
(hN : ∀ (z : ι), ∀ n ∈ N z, T z ≤ ↑n ∧ ↑n ≤ 2 * T z)
(hβ : ∀ (z : ι), ∀ n ∈ N z, |β z n| ≤ ↑((fouvryTau k) n))
{Cscale ε η : ℝ}
(hCscale : 1 ≤ Cscale)
(hε : 0 < ε)
(hη : 0 < η)
:
∀ᶠ (x : ℝ) in Filter.atTop, ∀ (z : ι) (M ν : ℝ),
1 ≤ M →
4 * M * T z = x →
ε ≤ ν →
ν ≤ 1 / 10 + ε / 10 →
T z = x ^ ν →
∀ (U : Finset ℕ),
(∀ m ∈ U, M ≤ ↑m ∧ ↑m ≤ 2 * M) →
∀ (α c : ℕ → ℝ),
(∀ m ∈ U, |α m| ≤ ↑((fouvryTau i) m)) →
SignedWellFactorable j (x ^ ((5 - 5 * ν) / 9 - ε)) c →
have L := x ^ ((5 - 5 * ν) / 9 - ε);
have R₀ := x ^ c2RExponent ν ε;
have S₀ := x ^ c2SExponent ν ε;
R₀ * S₀ = L ∧ ∃ (γ : ℕ → ℝ) (ζ : ℕ → ℝ),
factorSupported R₀ γ ∧ factorSupported S₀ ζ ∧ (∀ (r : ℕ), |γ r| ≤ ↑((fouvryTau j) r)) ∧ (∀ (s : ℕ), |ζ s| ≤ ↑((fouvryTau j) s)) ∧ c = factorConvolution γ ζ ∧ ∀ (a : ℤ),
a ≠ 0 →
|↑a| ≤ Cscale * x →
signedError U (N z) (Finset.Ioc 0 ⌊L⌋₊) α (β z) c a ^ 2 ≤ (8 * ∑ m ∈ U, α m ^ 2) * wMaskedFactorExtractedTruncated M (wFloorCutoff M (x ^ η)) (N z)
(Finset.Ioc 0 ⌊L⌋₊) (betaClean (β z) a)
(factorConvolution γ (betaLowOmega ζ (highOmegaCutoff x))) γ ζ a
(c2FiveSmallMask x η) R₀ S₀ (highOmegaCutoff x) + x ^ 2 / Real.log x ^ A
Inspect dependencies
MathlibNt.AnalyticNumberTheory.LargeSieve.LiLiuPrereqFouvry.wellFactorable_signedError_sq_le_floor_extracted_kscale · compiled type and proof/definition references.
theorem
MathlibNt.AnalyticNumberTheory.LargeSieve.LiLiuPrereqFouvry.wellFactorable_signedError_sq_le_floor_key_kscale
{ι : Type u_1}
{κ k i j : ℕ}
(A : ℕ)
{T : ι → ℝ}
{N : ι → Finset ℕ}
{β : ι → ℕ → ℝ}
(hSW : BetaCoprimeSWFamily κ T N β)
(hT : ∀ (z : ι), 1 ≤ T z)
(hN : ∀ (z : ι), ∀ n ∈ N z, T z ≤ ↑n ∧ ↑n ≤ 2 * T z)
(hβ : ∀ (z : ι), ∀ n ∈ N z, |β z n| ≤ ↑((fouvryTau k) n))
{Cscale ε η : ℝ}
(hCscale : 1 ≤ Cscale)
(hε : 0 < ε)
(hη : 0 < η)
:
∀ᶠ (x : ℝ) in Filter.atTop, ∀ (z : ι) (M ν : ℝ),
1 ≤ M →
4 * M * T z = x →
ε ≤ ν →
ν ≤ 1 / 10 + ε / 10 →
T z = x ^ ν →
∀ (U : Finset ℕ),
(∀ m ∈ U, M ≤ ↑m ∧ ↑m ≤ 2 * M) →
∀ (α c : ℕ → ℝ),
(∀ m ∈ U, |α m| ≤ ↑((fouvryTau i) m)) →
SignedWellFactorable j (x ^ ((5 - 5 * ν) / 9 - ε)) c →
have L := x ^ ((5 - 5 * ν) / 9 - ε);
have R₀ := x ^ c2RExponent ν ε;
have S₀ := x ^ c2SExponent ν ε;
have J := Nat.log 2 ⌈L ^ 2 / M * x ^ η⌉₊;
R₀ * S₀ = L ∧ ∃ (γ : ℕ → ℝ) (ζ : ℕ → ℝ),
factorSupported R₀ γ ∧ factorSupported S₀ ζ ∧ (∀ (r : ℕ), |γ r| ≤ ↑((fouvryTau j) r)) ∧ (∀ (s : ℕ), |ζ s| ≤ ↑((fouvryTau j) s)) ∧ c = factorConvolution γ ζ ∧ ∀ (a : ℤ),
a ≠ 0 →
|↑a| ≤ Cscale * x →
∃ b ≤ J,
∃ y ∈ Set.Icc (1 / 2) 3,
∃ K ∈ wExtractedKeyBox (x ^ η),
signedError U (N z) (Finset.Ioc 0 ⌊L⌋₊) α (β z) c a ^ 2 ≤ (3072 * M * ∑ m ∈ U, α m ^ 2) * ↑(J + 1) * (x ^ η) ^ 7 * ‖wExtractedKeyExponential (wFloorCutoff M (x ^ η)) (N z)
(Finset.Ioc 0 ⌊L⌋₊) (betaClean (β z) a)
(factorConvolution γ (betaLowOmega ζ (highOmegaCutoff x))) γ
ζ a (c2FiveSmallMask x η) R₀ S₀ (highOmegaCutoff x) b K
(M * y)‖ + x ^ 2 / Real.log x ^ A
The corrected original-error endpoint with the same explicit six-key and shell costs. The selected fiber has a genuinely bounded Fourier scale.
Inspect dependencies
MathlibNt.AnalyticNumberTheory.LargeSieve.LiLiuPrereqFouvry.wellFactorable_signedError_sq_le_floor_key_kscale · compiled type and proof/definition references.