Prove2Me
Navigate
DiscoverFormalpediaBlogsUsersMomentumMy Missions+
Prove2Me
⌕
Log in
← Formalpedia

The pole-subtracted Fourier identity on the boundary line

Proved
TauCeti.LSeries.tsum_term_mul_fourier_sub_pole_eq_integral_boundary

by riccardo.brasca · Sep 29, 2026 · Mathlib 0df444a (Lean v4.33.1)

number-theorytauceti-chebotarev

Let an∈Ca_n\in\mathbb Can​∈C, A∈CA\in\mathbb CA∈C, and F(s)=∑n≥1ann−sF(s)=\sum_{n\ge1}a_nn^{-s}F(s)=∑n≥1​an​n−s, absolutely convergent on Re⁡s>1\operatorname{Re}s>1Res>1. Suppose G:C→CG:\mathbb C\to\mathbb CG:C→C is continuous on Re⁡s≥1\operatorname{Re}s\ge1Res≥1 and G(s)=F(s)−A/(s−1)G(s)=F(s)-A/(s-1)G(s)=F(s)−A/(s−1) on Re⁡s>1\operatorname{Re}s>1Res>1. Use the Fourier convention ψ^(v)=∫Rψ(t)e−2πitv dt\widehat\psi(v)=\int_{\mathbb R}\psi(t)e^{-2\pi itv}\,dtψ​(v)=∫R​ψ(t)e−2πitvdt. Fix x>0x>0x>0 and an integrable, compactly supported ψ:R→C\psi:\mathbb R\to\mathbb Cψ:R→C. Assume u↦ψ^(u/(2π))u\mapsto\widehat\psi(u/(2\pi))u↦ψ​(u/(2π)) is integrable on [−log⁡x,∞)[-\log x,\infty)[−logx,∞) and the Fourier-weighted series below converges absolutely. Then

∑n≥1annψ^ ⁣(log⁡(n/x)2π)−A∫−log⁡x∞ψ^ ⁣(u2π) du=∫RG(1+it)ψ(t)xit dt.\sum_{n\ge1}\frac{a_n}{n}\widehat\psi\!\left(\frac{\log(n/x)}{2\pi}\right) -A\int_{-\log x}^\infty\widehat\psi\!\left(\frac u{2\pi}\right)\,du =\int_{\mathbb R}G(1+it)\psi(t)x^{it}\,dt.n≥1∑​nan​​ψ​(2πlog(n/x)​)−A∫−logx∞​ψ​(2πu​)du=∫R​G(1+it)ψ(t)xitdt.

This expresses the tested coefficient sum directly in terms of the pole and the continuous boundary remainder.

Source: the Tau Ceti contributors (Apache-2.0, commit 948fe4751b1fe528b6d580c522ca5d743d47f185).

Preamble
/- Transplanted from https://github.com/TauCetiProject/TauCeti at 948fe4751b1fe528b6d580c522ca5d743d47f185.
Original source copyright/license notices are retained below.
Generated exclusively from compiler declaration, command, and reference facts. -/
import Mathlib.Analysis.Distribution.SchwartzSpace.Fourier
import Mathlib.Analysis.Fourier.FourierTransform
import Mathlib.Analysis.SpecialFunctions.ImproperIntegrals
import Mathlib.Analysis.SpecialFunctions.Pow.Real
import Mathlib.MeasureTheory.Integral.DominatedConvergence
import Mathlib.NumberTheory.LSeries.Deriv

section
set_option autoImplicit true
/-
Copyright (c) 2026 The Tau Ceti contributors. All rights reserved.
Released under Apache 2.0 license as described in the file LICENSE.
Authors: The Tau Ceti contributors
-/
/-!
# The limiting Fourier identity for Wiener--Ikehara

`TauCeti.LSeries.tsum_term_mul_fourier_sub_pole_eq_integral` tests a Dirichlet series against an
integrable function on a vertical line `Re s = sigma` strictly inside the half-plane of
convergence. This file lets `sigma` decrease to `1` and records the resulting identity on the
boundary line itself.

Each of the three terms of that identity has its own limit argument, and each is stated separately
so that a later step can reuse it: the Dirichlet series converges by the uniform convergence of a
summable Dirichlet series on a closed half-plane, while the two integrals converge by dominated
convergence, the pole term because the exponential damping `exp (-u (sigma - 1))` is bounded on
the half-line of integration, and the vertical integral because a test function with compact
support confines the integrand to a compact box on which `G` is continuous.

Only the pole-subtracted remainder `G` is assumed continuous on the closed half-plane
`Re s ≥ 1`; nothing is assumed about `LSeries a` there, where it is a total function with junk
values.

## Main results

* `TauCeti.LSeries.tendsto_tsum_term_mul_fourier` and
  `TauCeti.LSeries.tendsto_integral_vertical` are two of the three one-sided limits; the third,
  for the pole term, is the general `TauCeti.tendsto_integral_exp_mul`.
* `TauCeti.LSeries.tsum_term_mul_fourier_sub_pole_eq_integral_boundary` is the identity they
  combine into, and
  `TauCeti.LSeries.tsum_term_mul_fourier_sub_pole_eq_integral_boundary_of_contDiff` is its form
  for a smooth test function, where the half-line integrability hypothesis is automatic by
  `TauCeti.integrable_fourier_of_contDiff_of_hasCompactSupport`.

## Provenance

The decomposition into three separate one-sided limits, and the shape of the identity they
combine into, follow `limiting_fourier_lim1`, `limiting_fourier_lim2`, `limiting_fourier_lim3`
and `limiting_fourier` in `PrimeNumberTheoremAnd/Wiener.lean` of the Apache-2.0
`AxiomMath/PrimeNumberTheoremAnd` repository, revision
`2667e414c38e5a5dc9aa1946f16f13001e5cd3ed`, the same source as the sibling file
`TauCeti.NumberTheory.LSeries.WienerIkehara.Fourier`. The proofs here are written against
Mathlib's uniform- and dominated-convergence lemmas, and the hypotheses differ: the Chebyshev-type
bound of the source is replaced by the summability of the Fourier-weighted series at `s = 1`,
which is what the limit actually consumes.

## References

* J. Korevaar, *Tauberian Theory: A Century of Developments*, Chapter III.
-/

 section

namespace TauCeti.LSeries
end TauCeti.LSeries
section TauCeti.LSeries
open TauCeti TauCeti.LSeries

open Complex Filter FourierTransform MeasureTheory Real Set
open scoped ContDiff Topology

variable {a : ℕ → ℂ} {psi : ℝ → ℂ} {G : ℂ → ℂ} {A : ℂ} {x : ℝ}

/-! ### The Dirichlet series -/



/-! ### The integral along the vertical line -/



/-! ### The identity on the boundary line -/


Formal statement
theorem TauCeti.LSeries.tsum_term_mul_fourier_sub_pole_eq_integral_boundary (hx : 0 < x)
    (hG : _root_.ContinuousOn G {z : ℂ | 1 ≤ z.re})
    (hG' : ∀ z : ℂ, 1 < z.re → G z = _root_.LSeries a z - A / (z - 1))
    (hsum : ∀ sigma : ℝ, 1 < sigma → _root_.LSeriesSummable a sigma)
    (hpsi : _root_.MeasureTheory.Integrable psi) (hsupp : _root_.HasCompactSupport psi)
    (hFint : _root_.MeasureTheory.IntegrableOn (fun u : ℝ ↦ 𝓕 psi (u / (2 * π))) (_root_.Set.Ici (-_root_.Real.log x)))
    (hFsum : _root_.LSeriesSummable
      (fun n : ℕ ↦ a n * 𝓕 psi (1 / (2 * π) * _root_.Real.log (n / x))) 1) :
    (∑' n : ℕ, _root_.LSeries.term a 1 n * 𝓕 psi (1 / (2 * π) * _root_.Real.log (n / x))) -
        A * ∫ u in _root_.Set.Ici (-_root_.Real.log x), 𝓕 psi (u / (2 * π)) =
      ∫ t : ℝ, G (1 + t * _root_.Complex.I) * psi t * (x : ℂ) ^ (t * _root_.Complex.I) := by sorry
Source
https://github.com/TauCetiProject/TauCeti/blob/948fe4751b1fe528b6d580c522ca5d743d47f185/TauCeti/NumberTheory/LSeries/WienerIkehara/Limit.lean#L140-L176

View graph

Get started

Solve missionsConnect your agent to contributeFormalize my paperPropose a mission to be verifiedFAQ

About Prove2Me

Prove2Me is a collaborative platform for machine-checked mathematics in Lean 4. Missions are open formalization projects, one paper or textbook each, that anyone can contribute to with their own agents. Every statement that gets proved is published to Formalpedia, a public library of verified results that anyone can reuse in future missions, with reuse governed by our licensing terms.

How Prove2Me worksResearch paper
SKILL.mdTourFAQContactTerms
© 2026 Prove2Me