Documentation

TauCeti.Analysis.Complex.Fuchsian.Cusp.Laurent

Laurent expansions at a Fuchsian cusp #

Let D be normalized cusp data of width w, and suppose that an invariant holomorphic function f grows no faster than exp (2 * π * k * y / w) in the scaling coordinate. Multiplication by the k-th power of the q-coordinate gives a bounded holomorphic function. Its Taylor series at zero, shifted down by k, is the Laurent expansion of f at the cusp.

This file packages that construction as a formal LaurentSeries ℂ. It proves that all coefficients below exponent -k vanish and, more importantly, that the resulting Laurent series converges to the descended function throughout the punctured unit disc. Thus the formal series is connected to the actual quotient function rather than merely recording its coefficients. The coefficients are uniquely characterized by this convergence together with the prescribed lower support bound, so the resulting series is independent of the valid growth bound k used to construct it.

Main declarations #

References #

The Taylor series at zero of the q-extension obtained after twisting by q^k. Under the hypotheses of hasSum_twistedQExpansion (invariance, holomorphy, and the growth bound for k), this series converges on the open unit disc to twistedExtension D k f.

Equations
Instances For

    The twisted q-expansion is Mathlib's q-expansion of the twist in the scaling coordinate.

    The coefficients of the twisted q-expansion are the Taylor coefficients of the twisted extension at the cusp.

    @[simp]

    The constant coefficient of the twisted q-expansion is the value of the twisted extension at the cusp.

    The Taylor series of the twisted extension, shifted by X⁻ᵏ, so that it is supported in exponents at least -k. Under the growth bound for k, it is independent of k by laurentQExpansion_eq.

    Equations
    Instances For

      The Laurent q-expansion is the twisted q-expansion shifted down by k.

      The coefficient of the Laurent q-expansion at an arbitrary integer exponent.

      @[simp]

      The coefficient of exponent n - k in the Laurent expansion is the n-th coefficient of the Taylor series of the twisted extension.

      @[simp]

      There are no Laurent coefficients below the prescribed lower exponent -k.

      @[simp]

      The coefficient at the lowest permitted exponent is the value of the twisted extension at the cusp.

      theorem TauCeti.Subgroup.CuspDatum.hasSum_twistedQExpansion {Γ : Subgroup (Matrix.ProjectiveSpecialLinearGroup (Fin 2) ℝ)} (D : Γ.CuspDatum) (k : ℤ) (f : UpperHalfPlane → ℂ) (hf : ∀ (g : ↥(MulAction.stabilizer (↥Γ) D.cusp)) (z : UpperHalfPlane), f (g • z) = f z) (hhol : MDiff f) (hbound : (fun (z : UpperHalfPlane) => f (D.scaling⁻¹ • z)) =O[UpperHalfPlane.atImInfty] fun (z : UpperHalfPlane) => Real.exp (2 * Real.pi * ↑k * z.im / D.width)) {q : ℂ} (hq_norm : ‖q‖ < 1) :
      HasSum (fun (n : ℕ) => (PowerSeries.coeff n) (twistedQExpansion D k f) * q ^ n) (twistedExtension D k f q)

      Under the exponential bound corresponding to k, the Taylor series of the twisted extension converges to that extension at every point of the open unit disc.

      The coefficient at the lowest permitted exponent -k is the limiting value of the twisted function in the scaling coordinate.

      theorem TauCeti.Subgroup.CuspDatum.hasSum_laurentQExpansion_natCast_sub {Γ : Subgroup (Matrix.ProjectiveSpecialLinearGroup (Fin 2) ℝ)} (D : Γ.CuspDatum) (k : ℤ) (f : UpperHalfPlane → ℂ) (hf : ∀ (g : ↥(MulAction.stabilizer (↥Γ) D.cusp)) (z : UpperHalfPlane), f (g • z) = f z) (hhol : MDiff f) (hbound : (fun (z : UpperHalfPlane) => f (D.scaling⁻¹ • z)) =O[UpperHalfPlane.atImInfty] fun (z : UpperHalfPlane) => Real.exp (2 * Real.pi * ↑k * z.im / D.width)) {q : ℂ} (hq : q ≠ 0) (hq_norm : ‖q‖ < 1) :
      HasSum (fun (n : ℕ) => (laurentQExpansion D k f).coeff (↑n - k) * q ^ (↑n - k)) (cuspExtension D f q)

      The Laurent q-expansion converges to the cusp extension throughout the punctured unit disc, when reindexed over its potentially nonzero coefficients.

      theorem TauCeti.Subgroup.CuspDatum.hasSum_laurentQExpansion_natCast_sub_iff {Γ : Subgroup (Matrix.ProjectiveSpecialLinearGroup (Fin 2) ℝ)} (D : Γ.CuspDatum) {k k' : ℤ} (hkk' : k ≤ k') (f : UpperHalfPlane → ℂ) {q s : ℂ} :
      HasSum (fun (j : ℤ) => (laurentQExpansion D k f).coeff j * q ^ j) s ↔ HasSum (fun (n : ℕ) => (laurentQExpansion D k f).coeff (↑n - k') * q ^ (↑n - k')) s

      Reindex a Laurent q-expansion supported in exponents at least -k by n - k', for any k' at least k.

      theorem TauCeti.Subgroup.CuspDatum.hasSum_laurentQExpansion {Γ : Subgroup (Matrix.ProjectiveSpecialLinearGroup (Fin 2) ℝ)} (D : Γ.CuspDatum) (k : ℤ) (f : UpperHalfPlane → ℂ) (hf : ∀ (g : ↥(MulAction.stabilizer (↥Γ) D.cusp)) (z : UpperHalfPlane), f (g • z) = f z) (hhol : MDiff f) (hbound : (fun (z : UpperHalfPlane) => f (D.scaling⁻¹ • z)) =O[UpperHalfPlane.atImInfty] fun (z : UpperHalfPlane) => Real.exp (2 * Real.pi * ↑k * z.im / D.width)) {q : ℂ} (hq : q ≠ 0) (hq_norm : ‖q‖ < 1) :
      HasSum (fun (j : ℤ) => (laurentQExpansion D k f).coeff j * q ^ j) (cuspExtension D f q)

      The Laurent q-expansion, summed over all integer exponents, converges to the cusp extension throughout the punctured unit disc.

      theorem TauCeti.Subgroup.CuspDatum.hasSum_laurentQExpansion_coordinate_natCast_sub {Γ : Subgroup (Matrix.ProjectiveSpecialLinearGroup (Fin 2) ℝ)} (D : Γ.CuspDatum) (k : ℤ) (f : UpperHalfPlane → ℂ) (hf : ∀ (g : ↥(MulAction.stabilizer (↥Γ) D.cusp)) (z : UpperHalfPlane), f (g • z) = f z) (hhol : MDiff f) (hbound : (fun (z : UpperHalfPlane) => f (D.scaling⁻¹ • z)) =O[UpperHalfPlane.atImInfty] fun (z : UpperHalfPlane) => Real.exp (2 * Real.pi * ↑k * z.im / D.width)) (z : UpperHalfPlane) :
      HasSum (fun (n : ℕ) => (laurentQExpansion D k f).coeff (↑n - k) * coordinate D z ^ (↑n - k)) (f z)

      Pulling the Laurent q-expansion back by the normalized cusp coordinate gives the original function on the upper half-plane, when reindexed over its potentially nonzero coefficients.

      theorem TauCeti.Subgroup.CuspDatum.hasSum_laurentQExpansion_coordinate {Γ : Subgroup (Matrix.ProjectiveSpecialLinearGroup (Fin 2) ℝ)} (D : Γ.CuspDatum) (k : ℤ) (f : UpperHalfPlane → ℂ) (hf : ∀ (g : ↥(MulAction.stabilizer (↥Γ) D.cusp)) (z : UpperHalfPlane), f (g • z) = f z) (hhol : MDiff f) (hbound : (fun (z : UpperHalfPlane) => f (D.scaling⁻¹ • z)) =O[UpperHalfPlane.atImInfty] fun (z : UpperHalfPlane) => Real.exp (2 * Real.pi * ↑k * z.im / D.width)) (z : UpperHalfPlane) :
      HasSum (fun (j : ℤ) => (laurentQExpansion D k f).coeff j * coordinate D z ^ j) (f z)

      Summing the Laurent q-expansion over every integer exponent after pullback by the normalized cusp coordinate gives the original function on the upper half-plane.

      theorem TauCeti.Subgroup.CuspDatum.laurentQExpansion_coeff_unique {Γ : Subgroup (Matrix.ProjectiveSpecialLinearGroup (Fin 2) ℝ)} (D : Γ.CuspDatum) (k : ℤ) (f : UpperHalfPlane → ℂ) (hf : ∀ (g : ↥(MulAction.stabilizer (↥Γ) D.cusp)) (z : UpperHalfPlane), f (g • z) = f z) (hhol : MDiff f) (hbound : (fun (z : UpperHalfPlane) => f (D.scaling⁻¹ • z)) =O[UpperHalfPlane.atImInfty] fun (z : UpperHalfPlane) => Real.exp (2 * Real.pi * ↑k * z.im / D.width)) {c : ℤ → ℂ} (hc : ∀ j < -k, c j = 0) (hsum : ∀ (z : UpperHalfPlane), HasSum (fun (j : ℤ) => c j * coordinate D z ^ j) (f z)) (j : ℤ) :
      c j = (laurentQExpansion D k f).coeff j

      A Laurent series supported in exponents at least -k and converging to f in the cusp coordinate has the coefficients of laurentQExpansion D k f.

      theorem TauCeti.Subgroup.CuspDatum.laurentQExpansion_eq_of_le {Γ : Subgroup (Matrix.ProjectiveSpecialLinearGroup (Fin 2) ℝ)} (D : Γ.CuspDatum) {k k' : ℤ} (f : UpperHalfPlane → ℂ) (hkk' : k ≤ k') (hf : ∀ (g : ↥(MulAction.stabilizer (↥Γ) D.cusp)) (z : UpperHalfPlane), f (g • z) = f z) (hhol : MDiff f) (hbound : (fun (z : UpperHalfPlane) => f (D.scaling⁻¹ • z)) =O[UpperHalfPlane.atImInfty] fun (z : UpperHalfPlane) => Real.exp (2 * Real.pi * ↑k * z.im / D.width)) :

      Increasing a valid exponential growth rate does not change the Laurent q-expansion.

      theorem TauCeti.Subgroup.CuspDatum.laurentQExpansion_coeff_natCast_sub_of_le {Γ : Subgroup (Matrix.ProjectiveSpecialLinearGroup (Fin 2) ℝ)} (D : Γ.CuspDatum) {k k' : ℤ} (hkk' : k ≤ k') (f : UpperHalfPlane → ℂ) (hf : ∀ (g : ↥(MulAction.stabilizer (↥Γ) D.cusp)) (z : UpperHalfPlane), f (g • z) = f z) (hhol : MDiff f) (hbound : (fun (z : UpperHalfPlane) => f (D.scaling⁻¹ • z)) =O[UpperHalfPlane.atImInfty] fun (z : UpperHalfPlane) => Real.exp (2 * Real.pi * ↑k * z.im / D.width)) (n : ℕ) :

      If k ≤ k', the coefficients of the Laurent expansion constructed using the k-bound, reindexed by n - k', are the Taylor coefficients of the k'-twisted extension.

      theorem TauCeti.Subgroup.CuspDatum.laurentQExpansion_eq {Γ : Subgroup (Matrix.ProjectiveSpecialLinearGroup (Fin 2) ℝ)} (D : Γ.CuspDatum) (k k' : ℤ) (f : UpperHalfPlane → ℂ) (hf : ∀ (g : ↥(MulAction.stabilizer (↥Γ) D.cusp)) (z : UpperHalfPlane), f (g • z) = f z) (hhol : MDiff f) (hbound : (fun (z : UpperHalfPlane) => f (D.scaling⁻¹ • z)) =O[UpperHalfPlane.atImInfty] fun (z : UpperHalfPlane) => Real.exp (2 * Real.pi * ↑k * z.im / D.width)) (hbound' : (fun (z : UpperHalfPlane) => f (D.scaling⁻¹ • z)) =O[UpperHalfPlane.atImInfty] fun (z : UpperHalfPlane) => Real.exp (2 * Real.pi * ↑k' * z.im / D.width)) :

      The Laurent q-expansion is independent of which valid exponential growth bound is used to construct it.