Skip to content

Commit dbff985

Browse files
committed
chore: fix some names around Eisenstein series (#35055)
Per the naming convention, - `eisensteinSeries_MF` should be `eisensteinSeriesMF`, - `eisensteinSeries_SIF` should be `eisensteinSeriesSIF`, and - `eisensteinSeries_SIF_MDifferentiable` should use suffix `_mdifferentiable`.
1 parent 6ccc013 commit dbff985

File tree

6 files changed

+36
-23
lines changed

6 files changed

+36
-23
lines changed

Mathlib/NumberTheory/ModularForms/EisensteinSeries/Basic.lean

Lines changed: 8 additions & 6 deletions
Original file line numberDiff line numberDiff line change
@@ -30,19 +30,21 @@ open EisensteinSeries CongruenceSubgroup Matrix.SpecialLinearGroup
3030

3131
/-- This defines Eisenstein series as modular forms of weight `k`, level `Γ(N)` and congruence
3232
condition given by `a : Fin 2 → ZMod N`. -/
33-
def eisensteinSeries_MF {k : ℤ} {N : ℕ} [NeZero N] (hk : 3 ≤ k) (a : Fin 2 → ZMod N) :
33+
def eisensteinSeriesMF {k : ℤ} {N : ℕ} [NeZero N] (hk : 3 ≤ k) (a : Fin 2 → ZMod N) :
3434
ModularForm Γ(N) k where
35-
toFun := eisensteinSeries_SIF a k
36-
slash_action_eq' := (eisensteinSeries_SIF a k).slash_action_eq'
37-
holo' := eisensteinSeries_SIF_MDifferentiable hk a
35+
toFun := eisensteinSeriesSIF a k
36+
slash_action_eq' := (eisensteinSeriesSIF a k).slash_action_eq'
37+
holo' := eisensteinSeriesSIF_mdifferentiable hk a
3838
bdd_at_cusps' {c} hc := by
3939
rw [Subgroup.IsArithmetic.isCusp_iff_isCusp_SL2Z] at hc
4040
rw [OnePoint.isBoundedAt_iff_forall_SL2Z hc]
41-
exact fun γ hγ ↦ isBoundedAtImInfty_eisensteinSeries_SIF a hk γ
41+
exact fun γ hγ ↦ isBoundedAtImInfty_eisensteinSeriesSIF a hk γ
42+
43+
@[deprecated (since := "2026-02-10")] noncomputable alias eisensteinSeries_MF := eisensteinSeriesMF
4244

4345
/-- Normalised Eisenstein series of level 1 and weight `k`,
4446
here they have been scaled by `1/2` since we sum over coprime pairs. -/
4547
noncomputable def E {k : ℕ} (hk : 3 ≤ k) : ModularForm Γ(1) k :=
46-
(1 / 2 : ℂ) • eisensteinSeries_MF (mod_cast hk) 0
48+
(1 / 2 : ℂ) • eisensteinSeriesMF (mod_cast hk) 0
4749

4850
end ModularForm

Mathlib/NumberTheory/ModularForms/EisensteinSeries/Defs.lean

Lines changed: 10 additions & 5 deletions
Original file line numberDiff line numberDiff line change
@@ -214,15 +214,20 @@ lemma eisensteinSeries_slash_apply (k : ℤ) (γ : SL(2, ℤ)) :
214214
congr 1
215215
exact (gammaSetEquiv a γ).tsum_eq (eisSummand k · z)
216216

217-
/-- The SlashInvariantForm defined by an Eisenstein series of weight `k : ℤ`, level `Γ(N)`,
218-
and congruence condition given by `a : Fin 2 → ZMod N`. -/
219-
def eisensteinSeries_SIF (k : ℤ) : SlashInvariantForm (Gamma N) k where
217+
/-- The `SlashInvariantForm` defined by an Eisenstein series of weight `k : ℤ`, level `Γ(N)`,
218+
and congruence condition given by `a : Fin 2 → ZMod N`. -/
219+
def eisensteinSeriesSIF (k : ℤ) : SlashInvariantForm (Gamma N) k where
220220
toFun := eisensteinSeries a k
221221
slash_action_eq' A hA := by
222222
obtain ⟨A, (hA : A ∈ Γ(N)), rfl⟩ := hA
223223
simp [SpecialLinearGroup.mapGL, ← SL_slash, eisensteinSeries_slash_apply, Gamma_mem'.mp hA]
224224

225-
lemma eisensteinSeries_SIF_apply (k : ℤ) (z : ℍ) :
226-
eisensteinSeries_SIF a k z = eisensteinSeries a k z := rfl
225+
@[deprecated (since := "2026-02-10")]
226+
noncomputable alias eisensteinSeries_SIF := eisensteinSeriesSIF
227+
228+
lemma eisensteinSeriesSIF_apply (k : ℤ) (z : ℍ) :
229+
eisensteinSeriesSIF a k z = eisensteinSeries a k z := rfl
230+
231+
@[deprecated (since := "2026-02-10")] alias eisensteinSeries_SIF_apply := eisensteinSeriesSIF_apply
227232

228233
end EisensteinSeries

Mathlib/NumberTheory/ModularForms/EisensteinSeries/IsBoundedAtImInfty.lean

Lines changed: 8 additions & 5 deletions
Original file line numberDiff line numberDiff line change
@@ -54,14 +54,14 @@ lemma norm_le_tsum_norm (N : ℕ) (a : Fin 2 → ZMod N) (k : ℤ) (hk : 3 ≤ k
5454
(summable_norm_eisSummand hk z))
5555

5656
/-- Eisenstein series are bounded at infinity. -/
57-
theorem isBoundedAtImInfty_eisensteinSeries_SIF {N : ℕ} [NeZero N] (a : Fin 2 → ZMod N) {k : ℤ}
58-
(hk : 3 ≤ k) (A : SL(2, ℤ)) : IsBoundedAtImInfty (eisensteinSeries_SIF a k ∣[k] A) := by
59-
simp_rw [UpperHalfPlane.isBoundedAtImInfty_iff, eisensteinSeries_SIF] at *
57+
theorem isBoundedAtImInfty_eisensteinSeriesSIF {N : ℕ} [NeZero N] (a : Fin 2 → ZMod N) {k : ℤ}
58+
(hk : 3 ≤ k) (A : SL(2, ℤ)) : IsBoundedAtImInfty (eisensteinSeriesSIF a k ∣[k] A) := by
59+
simp_rw [UpperHalfPlane.isBoundedAtImInfty_iff, eisensteinSeriesSIF] at *
6060
refine ⟨∑'(x : Fin 2 → ℤ), r ⟨⟨N, 2⟩, Nat.ofNat_pos⟩ ^ (-k) * ‖x‖ ^ (-k), 2, ?_⟩
6161
intro z hz
6262
obtain ⟨n, hn⟩ := (ModularGroup_T_zpow_mem_verticalStrip z (NeZero.pos N))
63-
rw [SlashInvariantForm.coe_mk, eisensteinSeries_slash_apply, ← eisensteinSeries_SIF_apply,
64-
← T_zpow_width_invariant N k n (eisensteinSeries_SIF (a ᵥ* A) k) z]
63+
rw [SlashInvariantForm.coe_mk, eisensteinSeries_slash_apply, ← eisensteinSeriesSIF_apply,
64+
← T_zpow_width_invariant N k n (eisensteinSeriesSIF (a ᵥ* A) k) z]
6565
apply le_trans (norm_le_tsum_norm N (a ᵥ* A) k hk _)
6666
have hk' : (2 : ℝ) < k := by norm_cast
6767
apply (summable_norm_eisSummand hk _).tsum_le_tsum _
@@ -72,4 +72,7 @@ theorem isBoundedAtImInfty_eisensteinSeries_SIF {N : ℕ} [NeZero N] (a : Fin 2
7272
summand_bound_of_mem_verticalStrip (lt_trans two_pos hk').le x two_pos
7373
(verticalStrip_anti_right N hz hn)
7474

75+
@[deprecated (since := "2026-02-10")]
76+
alias isBoundedAtImInfty_eisensteinSeries_SIF := isBoundedAtImInfty_eisensteinSeriesSIF
77+
7578
end EisensteinSeries

Mathlib/NumberTheory/ModularForms/EisensteinSeries/MDifferentiable.lean

Lines changed: 7 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -49,15 +49,18 @@ lemma eisSummand_extension_differentiableOn (k : ℤ) (a : Fin 2 → ℤ) :
4949
apply comp_ofComplex
5050

5151
/-- Eisenstein series are MDifferentiable (i.e. holomorphic functions from `ℍ → ℂ`). -/
52-
theorem eisensteinSeries_SIF_MDifferentiable {k : ℤ} {N : ℕ} (hk : 3 ≤ k) (a : Fin 2 → ZMod N) :
53-
MDifferentiable 𝓘(ℂ) 𝓘(ℂ) (eisensteinSeries_SIF a k) := by
52+
theorem eisensteinSeriesSIF_mdifferentiable {k : ℤ} {N : ℕ} (hk : 3 ≤ k) (a : Fin 2 → ZMod N) :
53+
MDifferentiable 𝓘(ℂ) 𝓘(ℂ) (eisensteinSeriesSIF a k) := by
5454
intro τ
55-
suffices DifferentiableAt ℂ (↑ₕeisensteinSeries_SIF a k) τ.1 by
55+
suffices DifferentiableAt ℂ (↑ₕeisensteinSeriesSIF a k) τ.1 by
5656
convert MDifferentiableAt.comp τ (DifferentiableAt.mdifferentiableAt this) τ.mdifferentiable_coe
57-
exact funext fun z ↦ (comp_ofComplex (eisensteinSeries_SIF a k) z).symm
57+
exact funext fun z ↦ (comp_ofComplex (eisensteinSeriesSIF a k) z).symm
5858
refine DifferentiableOn.differentiableAt ?_ (isOpen_upperHalfPlaneSet.mem_nhds τ.2)
5959
exact (eisensteinSeries_tendstoLocallyUniformlyOn hk a).differentiableOn
6060
(Eventually.of_forall fun s ↦ DifferentiableOn.fun_sum
6161
fun _ _ ↦ eisSummand_extension_differentiableOn _ _) isOpen_upperHalfPlaneSet
6262

63+
@[deprecated (since := "2026-02-09")]
64+
alias eisensteinSeries_SIF_MDifferentiable := eisensteinSeriesSIF_mdifferentiable
65+
6366
end EisensteinSeries

Mathlib/NumberTheory/ModularForms/EisensteinSeries/QExpansion.lean

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -270,8 +270,8 @@ lemma tsum_eisSummand_eq_riemannZeta_mul_eisensteinSeries {k : ℕ} (hk : 3 ≤
270270
lemma EisensteinSeries.q_expansion_riemannZeta {k : ℕ} (hk : 3 ≤ k) (hk2 : Even k) (z : ℍ) :
271271
E hk z = 1 + (riemannZeta k)⁻¹ * (-2 * π * I) ^ k / (k - 1)! *
272272
∑' n : ℕ+, σ (k - 1) n * cexp (2 * π * I * z) ^ (n : ℤ) := by
273-
have : eisensteinSeries_MF (Int.toNat_le.mp hk) 0 z = eisensteinSeries_SIF (N := 1) 0 k z := rfl
274-
rw [E, ModularForm.IsGLPos.smul_apply, this, eisensteinSeries_SIF_apply 0 k z, eisensteinSeries]
273+
have : eisensteinSeriesMF (Int.toNat_le.mp hk) 0 z = eisensteinSeriesSIF (N := 1) 0 k z := rfl
274+
rw [E, ModularForm.IsGLPos.smul_apply, this, eisensteinSeriesSIF_apply 0 k z, eisensteinSeries]
275275
have HE1 := tsum_eisSummand_eq_tsum_sigma_mul_cexp_pow hk hk2 z
276276
have HE2 := tsum_eisSummand_eq_riemannZeta_mul_eisensteinSeries hk z
277277
have z2 : riemannZeta k ≠ 0 := riemannZeta_ne_zero_of_one_lt_re <| by norm_cast; grind

Mathlib/NumberTheory/ModularForms/EisensteinSeries/UniformConvergence.lean

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -58,7 +58,7 @@ theorem eisensteinSeries_tendstoLocallyUniformly {k : ℤ} (hk : 3 ≤ k) {N :
5858
nice to have for holomorphicity later. -/
5959
lemma eisensteinSeries_tendstoLocallyUniformlyOn {k : ℤ} {N : ℕ} (hk : 3 ≤ k)
6060
(a : Fin 2 → ZMod N) : TendstoLocallyUniformlyOn (fun (s : Finset (gammaSet N 1 a)) ↦
61-
↑ₕ(fun (z : ℍ) ↦ ∑ x ∈ s, eisSummand k x z)) (↑ₕ(eisensteinSeries_SIF a k))
61+
↑ₕ(fun (z : ℍ) ↦ ∑ x ∈ s, eisSummand k x z)) (↑ₕ(eisensteinSeriesSIF a k))
6262
Filter.atTop {z : ℂ | 0 < z.im} := by
6363
rw [← upperHalfPlaneSet, ← range_coe, ← image_univ]
6464
apply TendstoLocallyUniformlyOn.comp (s := ⊤) _ _ _ (OpenPartialHomeomorph.continuousOn_symm _)

0 commit comments

Comments
 (0)