Documentation

LeanPool.CCDN.Determinant.PrimeAggregation

Simultaneous prime divisibility with arbitrary main and error coefficients.

general_determinant_log_lower_cutoff_congruence multiplies the local prime-power divisors of an integer D at the good primes up to x, together with prescribed divisors at a set P of excluded primes, and bounds log D from below. determinant_log_lower_of_local_divisors packages this for a local divisor oracle (for each good prime an exponent with the required lower bound) and absorbs the square-root error above a cutoff L ≥ d ^ 4; determinant_log_lower_of_local_divisors_degree_four is the case L = 27 d ^ 4.

theorem CCDN.general_determinant_log_lower_cutoff_congruence {x L C A E : ℝ} (hx : 1 ≤ x) (hL : 1 ≤ L) (hC : 0 ≤ C) (hA : 0 ≤ A) (hE : 0 ≤ E) (bad P : Finset ℕ) (hPbad : P ⊆ bad) (hP : ∀ p ∈ P, Nat.Prime p) (mass : ℕ → ℝ) (e v : ℕ → ℕ) {D : ℤ} (hD : 0 < D) (hmass : ∀ p ∈ Finset.filter Nat.Prime (Finset.Ioc 0 ⌊x⌋₊) \ bad, L < ↑p → 0 < mass p) (hupper : ∀ p ∈ Finset.filter Nat.Prime (Finset.Ioc 0 ⌊x⌋₊) \ bad, L < ↑p → mass p ≤ ↑p + C * √↑p) (he : ∀ p ∈ Finset.filter Nat.Prime (Finset.Ioc 0 ⌊x⌋₊) \ bad, L < ↑p → A / mass p - E ≤ ↑(e p)) (hdiv : ∀ p ∈ Finset.filter Nat.Prime (Finset.Ioc 0 ⌊x⌋₊) \ bad, L < ↑p → ↑p ^ e p ∣ D) (hcong : ∀ p ∈ P, ↑p ^ v p ∣ D) :
A * (Real.log x - Real.log L - 2 * mertensError - ∑ p ∈ bad, Real.log ↑p / ↑p - C * (2 * primeBlockMass / √L)) - E * ((Real.log 4 + 4) * x) + ∑ p ∈ P, ↑(v p) * Real.log ↑p ≤ Real.log ↑D

Prescribed primes excluded from the global sum contribute their entire local valuation, in addition to the global lower bound. A lower cutoff costs log L; perturbing p by C √p costs O(C / √L).

theorem CCDN.general_determinant_log_lower_cutoff {x L C A E : ℝ} (hx : 1 ≤ x) (hL : 1 ≤ L) (hC : 0 ≤ C) (hA : 0 ≤ A) (hE : 0 ≤ E) (B : Finset ℕ) (mass : ℕ → ℝ) (e : ℕ → ℕ) {D : ℤ} (hD : 0 < D) (hmass : ∀ p ∈ Finset.filter Nat.Prime (Finset.Ioc 0 ⌊x⌋₊) \ B, L < ↑p → 0 < mass p) (hupper : ∀ p ∈ Finset.filter Nat.Prime (Finset.Ioc 0 ⌊x⌋₊) \ B, L < ↑p → mass p ≤ ↑p + C * √↑p) (he : ∀ p ∈ Finset.filter Nat.Prime (Finset.Ioc 0 ⌊x⌋₊) \ B, L < ↑p → A / mass p - E ≤ ↑(e p)) (hdiv : ∀ p ∈ Finset.filter Nat.Prime (Finset.Ioc 0 ⌊x⌋₊) \ B, L < ↑p → ↑p ^ e p ∣ D) :
A * (Real.log x - Real.log L - 2 * mertensError - ∑ p ∈ B, Real.log ↑p / ↑p - C * (2 * primeBlockMass / √L)) - E * ((Real.log 4 + 4) * x) ≤ Real.log ↑D

A lower cutoff costs log(L); perturbing p by C sqrt(p) costs O(C/sqrt(L)). All selected prime-power divisors are multiplied into the integer D.

theorem CCDN.determinant_log_lower_of_local_divisors {x L K A E : ℝ} {d : ℕ} (hx : 1 ≤ x) (hd : 0 < d) (hdL : ↑d ^ 4 ≤ L) (hK : 0 ≤ K) (hA : 0 ≤ A) (hE : 0 ≤ E) (bad P : Finset ℕ) (hPbad : P ⊆ bad) (hP : ∀ p ∈ P, Nat.Prime p) (v : ℕ → ℕ) (mass : ℕ → ℝ) {D : ℤ} (hD : 0 < D) (hmass : ∀ p ∈ Finset.filter Nat.Prime (Finset.Ioc 0 ⌊x⌋₊) \ bad, L < ↑p → 0 < mass p) (hupper : ∀ p ∈ Finset.filter Nat.Prime (Finset.Ioc 0 ⌊x⌋₊) \ bad, L < ↑p → mass p ≤ ↑p + K * ↑d ^ 2 * √↑p) (hlocal : ∀ p ∈ Finset.filter Nat.Prime (Finset.Ioc 0 ⌊x⌋₊) \ bad, L < ↑p → ∃ (e : ℕ), A / mass p - E ≤ ↑e ∧ ↑p ^ e ∣ D) (hcong : ∀ p ∈ P, ↑p ^ v p ∣ D) :
A * (Real.log x - Real.log L - 2 * mertensError - ∑ p ∈ bad, Real.log ↑p / ↑p - 2 * K * primeBlockMass) - E * ((Real.log 4 + 4) * x) + ∑ p ∈ P, ↑(v p) * Real.log ↑p ≤ Real.log ↑D

Prime aggregation from a local divisor oracle. Every prime p > L up to x outside bad supplies an exponent e with A / mass p - E ≤ e and p ^ e ∣ D, where mass p ≤ p + K d² √p and d ^ 4 ≤ L; every p ∈ P ⊆ bad contributes p ^ v p ∣ D.

theorem CCDN.determinant_log_lower_of_local_divisors_degree_four {x K A E : ℝ} {d : ℕ} (hx : 1 ≤ x) (hd : 0 < d) (hK : 0 ≤ K) (hA : 0 ≤ A) (hE : 0 ≤ E) (bad P : Finset ℕ) (hPbad : P ⊆ bad) (hP : ∀ p ∈ P, Nat.Prime p) (v : ℕ → ℕ) {D : ℤ} (hD : 0 < D) (hlocal : ∀ p ∈ Finset.filter Nat.Prime (Finset.Ioc 0 ⌊x⌋₊) \ bad, stepanovThreshold ↑d < ↑p → ∃ (e : ℕ), A / (↑p + K * ↑d ^ 2 * √↑p) - E ≤ ↑e ∧ ↑p ^ e ∣ D) (hcong : ∀ p ∈ P, ↑p ^ v p ∣ D) :
A * (Real.log x - 4 * Real.log ↑d - Real.log 27 - 2 * mertensError - ∑ p ∈ bad, Real.log ↑p / ↑p - 2 * K * primeBlockMass) - E * ((Real.log 4 + 4) * x) + ∑ p ∈ P, ↑(v p) * Real.log ↑p ≤ Real.log ↑D

The case L = 27 d ^ 4 of determinant_log_lower_of_local_divisors, with local mass p + K d² √p: the cutoff costs 4 log d + log 27.