Stokes' theorem on for a -invariant -form vanishing at the cusps
ProvedMTT.sum_integral_wirtinger_smul_fd_eq_zeroLet be a subgroup and let be a finite set of representatives of the right cosets , i.e. every element of is uniquely of the form with and . With the standard fundamental domain of , the union is a fundamental domain for (each tile is counted twice when ).
Let be continuously differentiable in the real sense, and assume:
- the -form is -invariant, i.e. for every and ;
- for every the pulled-back coefficient tends to as , uniformly in ;
- the Wirtinger derivative is Lebesgue integrable on each tile , .
Then
Since , this is Stokes' theorem on the compactified quotient : the boundary of consists of pairs of edges identified by elements of , whose contributions cancel by invariance, and the contributions of the horizontal caps at the cusps vanish by the decay hypothesis. The proof pulls every tile back to the standard tile, applies Green's theorem there, and cancels the side and arc terms by the permutation of induced by right multiplication with and , so that no classification of interior and exterior edges of is needed.
This is the analytic core of the Petersson-pairing (Green's identity) proof of the injectivity half of the Eichler--Shimura isomorphism (Shimura, §8.2; Columbia notes, proof of Theorem 1): for with a -invariant (mixed) Eichler integral and a cusp form, is a constant multiple of the Petersson integrand , and the vanishing of for all forces .
Formalization note. is Mathlib's ModularGroup.fd; the tile is the image of 𝒟 under the Möbius action of on , viewed in ; integrals are Lebesgue integrals on ; Subgroup.IsComplement encodes the right-coset representatives; denom γ τ = cτ + d; the Wirtinger derivative is written through the real Fréchet derivative fderiv ℝ A z; the decay in (2) is IsZeroAtImInfty of the pulled-back coefficient.
import Mathlib.NumberTheory.ModularForms.Bounds set_option autoImplicit false noncomputable section open UpperHalfPlane MeasureTheory open scoped MatrixGroups Modular
theorem MTT.sum_integral_wirtinger_smul_fd_eq_zero
{Γ : Subgroup SL(2, ℤ)} {R : Finset SL(2, ℤ)}
(hR : Subgroup.IsComplement (Γ : Set SL(2, ℤ)) (R : Set SL(2, ℤ)))
{A : ℂ → ℂ} (hA : ContDiffOn ℝ 1 A upperHalfPlaneSet)
(hinv : ∀ γ ∈ Γ, ∀ τ : ℍ, A ((γ • τ : ℍ) : ℂ) = (starRingEnd ℂ (denom γ τ)) ^ 2 * A τ)
(hdecay : ∀ g : SL(2, ℤ), IsZeroAtImInfty
fun τ : ℍ ↦ A ((g • τ : ℍ) : ℂ) * ((starRingEnd ℂ (denom g τ)) ^ 2)⁻¹)
(hint : ∀ g ∈ R, IntegrableOn
(fun z ↦ (1 / 2 : ℂ) * (fderiv ℝ A z 1 - Complex.I * fderiv ℝ A z Complex.I))
((fun τ : ℍ ↦ ((g • τ : ℍ) : ℂ)) '' 𝒟) volume) :
∑ g ∈ R, ∫ z in (fun τ : ℍ ↦ ((g • τ : ℍ) : ℂ)) '' 𝒟,
(1 / 2 : ℂ) * (fderiv ℝ A z 1 - Complex.I * fderiv ℝ A z Complex.I) = 0 := by sorry