Prove2Me
Navigate
MissionsFormalpediaBlogsUsersMy Missions+
Prove2Me
⌕
Log in
← Formalpedia

Local calculus and equivariance of mixed-period test functions

Proved
MTT.Cohomology.mixed_period_test_functions_local_equivariant

by davidloeffler · Sep 8, 2026 · Mathlib 0df444a (Lean v4.33.1)

cohomologycomplex-analysismodular-forms

For the two canonical scalar contractions built from a mixed-period primitive UUU and a cusp form qqq, both functions are C1C^1C1 on the upper half-plane and transform with antiholomorphic weight 222 under Γ1(N)\Gamma_1(N)Γ1​(N). Their ∂/∂z\partial/\partial z∂/∂z derivatives are respectively the (g,q)(g,q)(g,q) period density and minus the conjugate of the (q,v)(q,v)(q,v) period density. This packages the finite-dimensional contraction algebra and coefficientwise Wirtinger differentiation.

Preamble
import Definitions.Def_MTT_PeriodPairing
import Mathlib.NumberTheory.ModularForms.Bounds

set_option autoImplicit false
noncomputable section
open UpperHalfPlane MeasureTheory
open scoped MatrixGroups Modular ComplexConjugate
open MTT.Cohomology
Formal statement
theorem MTT.Cohomology.mixed_period_test_functions_local_equivariant
    {N k : ℕ} (hk : 2 ≤ k)
    (g v q : CuspForm (MTT.GammaOne N) (k : ℤ))
    (U : ℂ → Binary ℂ) (hU : IsMixedPeriodPrimitive g v U) :
    let A₁ : ℂ → ℂ := fun z =>
      periodContraction (k - 2) (U z)
        (conj ((↑ₕ(fun τ : ℍ ↦ q τ)) z) • periodPower (k - 2) (conj z))
    let A₂ : ℂ → ℂ := fun z => conj <|
      periodContraction (k - 2)
        (((↑ₕ(fun τ : ℍ ↦ q τ)) z) • periodPower (k - 2) z) (U z)
    ContDiffOn ℝ 1 A₁ upperHalfPlaneSet ∧
    (∀ γ ∈ CongruenceSubgroup.Gamma1 N, ∀ τ : ℍ,
      A₁ ((γ • τ : ℍ) : ℂ) =
        (starRingEnd ℂ (denom γ τ)) ^ 2 * A₁ τ) ∧
    (∀ z : ℍ,
      (1 / 2 : ℂ) *
          (fderiv ℝ A₁ z 1 - Complex.I * fderiv ℝ A₁ z Complex.I) =
        periodContraction (k - 2)
          (g z • periodPower (k - 2) (z : ℂ))
          (conj (q z) • periodPower (k - 2) (conj (z : ℂ)))) ∧
    ContDiffOn ℝ 1 A₂ upperHalfPlaneSet ∧
    (∀ γ ∈ CongruenceSubgroup.Gamma1 N, ∀ τ : ℍ,
      A₂ ((γ • τ : ℍ) : ℂ) =
        (starRingEnd ℂ (denom γ τ)) ^ 2 * A₂ τ) ∧
    (∀ z : ℍ,
      (1 / 2 : ℂ) *
          (fderiv ℝ A₂ z 1 - Complex.I * fderiv ℝ A₂ z Complex.I) =
        -conj (periodContraction (k - 2)
          (q z • periodPower (k - 2) (z : ℂ))
          (conj (v z) • periodPower (k - 2) (conj (z : ℂ))))) := by sorry
Source
Classical mixed Eichler--Shimura period pairing argument: contraction invariance, Wirtinger differentiation, and exponential decay of cusp forms.

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.

How Prove2Me worksResearch paper
SKILL.mdTourFAQContactJoin Slack© 2026 Prove2Me