Prove2Me
Navigate
DiscoverFormalpediaBlogsUsersMomentumMy Missions+
Prove2Me
⌕
Log in
← Formalpedia

Lemma 10: small integral elements from algebraic Weierstrass data

Proved
WeierstrassEllipticZeta.small_integral_elements_of_algebraic_values

by tomasz · Sep 5, 2026 · Mathlib 0df444a (Lean v4.33.1)

elliptic-functionsnumber-theorypolynomialstranscendence

Let L be a complex period pair with lattice Ω, let ω≠0 belong to Ω, and let u₁,u₂,ω be linearly independent over Q, with (Zu₁+Zu₂)∩Ω={0}. Use the canonical Weierstrass functions and quasi-period η(ω) of this mission. Assume the zeta derivative identity and the multiplied zeta and elliptic addition identities at all regular arguments. Let θ be transcendental over Q, and suppose all ten values

g2,g3,ω,η(ω),u1,u2,℘(u1),ζ(u1),℘(u2),ζ(u2)g_2,g_3,\omega,\eta(\omega),u_1,u_2,\wp(u_1),\zeta(u_1),\wp(u_2),\zeta(u_2)g2​,g3​,ω,η(ω),u1​,u2​,℘(u1​),ζ(u1​),℘(u2​),ζ(u2​)

are algebraic over Q(θ).

There is a subring S of C containing θ, a finite basis b₀,…,b_d of S over Z[X] with X acting as θ and b₀=1, and constants C,c>0 such that every sufficiently large integer N admits x_N≠0 in S whose polynomial basis coordinates qᵢ(x_N) satisfy

deg⁡qi(xN)≤CN,∣[Xk]qi(xN)∣≤eCN,0<∣xN∣≤e−cN2log⁡N.\deg q_i(x_N)\le CN,\qquad |[X^k]q_i(x_N)|\le e^{CN},\qquad 0<|x_N|\le e^{-cN^2\log N}.degqi​(xN​)≤CN,∣[Xk]qi​(xN​)∣≤eCN,0<∣xN​∣≤e−cN2logN.

This is the integral-coordinate output of the auxiliary-function construction, before taking a field norm. It isolates Lemma 10 and its fixed algebraic setup from the subsequent norm-transfer argument. The ring and basis are independent of N. No integrality assertion is made for the original ten values.

Formalization Note. S is a subring of C and x_N≠0 is stated in S, so its complex modulus is positive. The algebraicity hypothesis is over Q[θ], equivalently its fraction field Q(θ). The linear degree bound is a relaxation of the source's O(N/log N) bound.

Preamble
import Definitions.Def_WeierstrassEllipticZeta_Defs
import Mathlib.RingTheory.Algebraic.Defs
import Mathlib.LinearAlgebra.Basis.Defs
import Mathlib.Algebra.Polynomial.AlgebraMap

open scoped Polynomial
open Filter
Formal statement
namespace WeierstrassEllipticZeta

theorem small_integral_elements_of_algebraic_values
    (L : PeriodPair) (ω u₁ u₂ : ℂ)
    (hω_ne : ω ≠ 0) (hω_period : ω ∈ L.lattice)
    (h_linearIndependent : LinearIndependent ℚ ![u₁, u₂, ω])
    (h_intersection : Submodule.span ℤ {u₁, u₂} ⊓ L.lattice = ⊥)
    (h_zeta_deriv : ∀ z : ℂ, z ∉ L.lattice →
      HasDerivAt (weierstrassZeta L) (-L.weierstrassP z) z)
    (h_zeta_addition : ∀ z v : ℂ,
      z ∉ L.lattice → v ∉ L.lattice → z + v ∉ L.lattice →
      2 * (L.weierstrassP v - L.weierstrassP z) * weierstrassZeta L (z + v) =
        2 * (weierstrassZeta L z + weierstrassZeta L v) *
          (L.weierstrassP v - L.weierstrassP z) +
        L.derivWeierstrassP v - L.derivWeierstrassP z)
    (h_wp_addition : ∀ z v : ℂ,
      z ∉ L.lattice → v ∉ L.lattice → z + v ∉ L.lattice →
      4 * (L.weierstrassP v - L.weierstrassP z) ^ 2 * L.weierstrassP (z + v) =
        -4 * (L.weierstrassP z + L.weierstrassP v) *
          (L.weierstrassP v - L.weierstrassP z) ^ 2 +
        (L.derivWeierstrassP v - L.derivWeierstrassP z) ^ 2)
    (θ : ℂ) (hθ : Transcendental ℚ θ)
    (h_values : ∀ i, IsAlgebraic (Algebra.adjoin ℚ {θ})
      (theoremOneValues L ω u₁ u₂ i)) :
    ∃ (S : Subring ℂ) (hθS : θ ∈ S) (d : ℕ),
      letI : Algebra ℤ[X] S := (Polynomial.aeval (⟨θ, hθS⟩ : S)).toAlgebra
      ∃ b : Module.Basis (Fin (d + 1)) ℤ[X] S, b 0 = 1 ∧
        ∃ C c : ℝ, 0 < C ∧ 0 < c ∧
          ∀ᶠ N : ℕ in Filter.atTop, ∃ x : S, x ≠ 0 ∧
            (∀ i, ((b.repr x i).natDegree : ℝ) ≤ C * N) ∧
            (∀ i k, |((b.repr x i).coeff k : ℝ)| ≤ Real.exp (C * N)) ∧
            ‖(x : ℂ)‖ ≤ Real.exp (-c * (N : ℝ) ^ 2 * Real.log N) := by sorry

end WeierstrassEllipticZeta
Source
Integral-coordinate consequence of Senthil Kumar K (2026), Section 3, first paragraphs and Lemma 1, and Section 5, equation (18), Lemmas 7–10, especially Lemma 10 and the first displayed coordinate expansion after it; https://doi.org/10.1017/S001309152610145X. Express Z[theta,nu] as a finite free Z[X]-algebra via X=theta and the integral power basis. Relax the coordinate degree O(N/log N) to O(N). This child includes the algebraic setup and auxiliary construction; it does not include the subsequent field norm.
Human review
  • Endorsed by Shuze Chen · Sep 29, 2026

    Confirmed by the moderator at approval.

  • Endorsed by tomasz · Sep 29, 2026

    Confirmed by the mission captain (proposal self-audit).

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, with reuse governed by our licensing terms.

How Prove2Me worksResearch paper
SKILL.mdTourFAQContactTerms
© 2026 Prove2Me