Documentation

LeanPool.FLTEichlerShimura.Theorems.Thm_WLight_exists_monicRel_j_of_mdifferentiable_levelFraction

Integrality over ℂ[j] of pole-bounded level-N quotients #

Theorem statement: WLight.exists_monicRel_j_of_mdifferentiable_levelFraction (384ea021-4486-5798-8a93-9d7cb91a90f0), by Claude, 2026-09-05.

Proof: submission 179980d2-28fa-5428-819a-d48ea8decd60, by Claude, 2026-09-05 (ACCEPTED); locally adapted.

Fix a natural number $N \neq 0$. Let $L$ assign to each $\tau \in \mathbb{H}$ a period pair, subject to $(L\tau).\omega_1 = \tau$ and $(L\tau).\omega_2 = 1$; let $W$ be a family of functions on $\mathbb{H}$ indexed by $v \in (\mathbb{Z}/N)^2$ pinned pointwise by $W_v(\tau) = (2\pi i)^{-2}\,\wp_{L\tau}\big((\tilde v_0\tau + \tilde v_1)/N\big)$, where $\tilde v_i$ denotes the natural-number representative of $v_i$; let $\mathrm{fricke}$ be pinned pointwise by $\mathrm{fricke}_v(\tau) = -\big(E_4(\tau)E_6(\tau)/\Delta(\tau)\big)/2592 \cdot W_v(\tau)$; and let $jf$ be pinned pointwise by $jf(\tau) = E_4(\tau)^3/\Delta(\tau)$. Let $a, b, F : \mathbb{H} \to \mathbb{C}$, with $a$ and $b$ both lying in the $\mathbb{C}$-subalgebra of the pointwise ring of functions $\mathbb{H} \to \mathbb{C}$ generated by $jf$ together with all $\mathrm{fricke}_v$ for $v \neq 0$, with $b$ not the zero function, with $F$ holomorphic on $\mathbb{H}$ (as a map of complex manifolds), with $F \cdot b = a$ pointwise, and with the pole bound: for every $\gamma \in \mathrm{SL}_2(\mathbb{Z})$ there is $m \in \mathbb{N}$ such that $\tau \mapsto F(\gamma \cdot \tau)\,\Delta(\tau)^m$ is bounded as $\operatorname{im}\tau \to \infty$. Then there exist $d \in \mathbb{N}$ and polynomials $p_0,\dots,p_{d-1} \in \mathbb{C}[X]$ with $F(\tau)^d + \sum_{i<d} p_i(jf(\tau))\,F(\tau)^i = 0$ for all $\tau \in \mathbb{H}$.

This is the integrality half of the classical fact that a holomorphic modular function of level $N$ whose poles are confined to the cusps is integral over $\mathbb{C}[j]$; here the pole bound on all $\mathrm{SL}_2(\mathbb{Z})$-translates of $F$ is assumed rather than deduced from membership in the level-$N$ modular function field, so the statement is weaker than the classical one and each consumer verifies the bound for its own $F$. It is used in the study of $q$-expansion coefficients and rationality of Fricke functions on modular curves, and its proof cites the level-one hauptmodul package and the modularity package for the Fricke functions $\mathrm{fricke}_v$.

Explanation of the source proof #

Proof transplanted from the FLT repository: https://github.com/anthropics/fermats-last-theorem/blob/aa2d8b34692b16c70f699536de0d8e75b9a3e9ef/P2M/Sol/S_WLight_exists_monicRel_j_of_mdifferentiable_levelFraction.lean

<!-- Generated by add_prove2me_provenance.py -->

theorem WLight.exists_monicRel_j_of_mdifferentiable_levelFraction (N : ℕ) [NeZero N] (L : UpperHalfPlane → PeriodPair) (hL : ∀ (τ : UpperHalfPlane), (L τ).ω₁ = ↑τ ∧ (L τ).ω₂ = 1) (W : (Fin 2 → ZMod N) → UpperHalfPlane → ℂ) (hW : ∀ (v : Fin 2 → ZMod N) (τ : UpperHalfPlane), W v τ = ((2 * ↑Real.pi * Complex.I) ^ 2)⁻¹ * (L τ).weierstrassP ((↑(v 0).val * ↑τ + ↑(v 1).val) / ↑N)) (fricke : (Fin 2 → ZMod N) → UpperHalfPlane → ℂ) (hfricke : ∀ (v : Fin 2 → ZMod N) (τ : UpperHalfPlane), fricke v τ = -(ModularForm.E₄ τ * ModularForm.E₆ τ / ModularForm.discriminant τ) / 2592 * W v τ) (jf : UpperHalfPlane → ℂ) (hjf : ∀ (τ : UpperHalfPlane), jf τ = ModularForm.E₄ τ ^ 3 / ModularForm.discriminant τ) {a b F : UpperHalfPlane → ℂ} (ha : a ∈ Algebra.adjoin ℂ (insert jf {g : UpperHalfPlane → ℂ | ∃ (v : Fin 2 → ZMod N), v ≠ 0 ∧ g = fricke v})) (hb : b ∈ Algebra.adjoin ℂ (insert jf {g : UpperHalfPlane → ℂ | ∃ (v : Fin 2 → ZMod N), v ≠ 0 ∧ g = fricke v})) (hb0 : b ≠ 0) (hF : MDiff F) (hFb : F * b = a) (hpb : ∀ (γ : Matrix.SpecialLinearGroup (Fin 2) ℤ), ∃ (m : ℕ), UpperHalfPlane.IsBoundedAtImInfty ((F ∘ fun (x : UpperHalfPlane) => γ • x) * ModularForm.discriminant ^ m)) :
∃ (d : ℕ) (p : Fin d → Polynomial ℂ), ∀ (τ : UpperHalfPlane), F τ ^ d + ∑ i : Fin d, Polynomial.eval (jf τ) (p i) * F τ ^ ↑i = 0