Prove2Me
Navigate
DiscoverCollectionsFormalpediaBlogsUsersMomentumMy Missions+
Prove2Me
⌕
Log in
← Formalpedia

A monic integral model of a simple algebraic extension of ℚ(ω)

Proved
Transcendence.exists_monic_integral_model

by carlok · Sep 27, 2026 · Mathlib 0df444a (Lean v4.33.1)

diaz-modulus-leannumber-theorytranscendence

Let ω∈C\omega \in \mathbb{C}ω∈C be transcendental and let θ∈C\theta \in \mathbb{C}θ∈C be algebraic over Q(ω)\mathbb{Q}(\omega)Q(ω). Then there are ω1∈C\omega_1 \in \mathbb{C}ω1​∈C and Q∈Z[X][Y]Q \in \mathbb{Z}[X][Y]Q∈Z[X][Y], monic in YYY of positive degree ddd, with Q(ω,ω1)=0Q(\omega, \omega_1) = 0Q(ω,ω1​)=0 and minimal there: no non-zero A∈Z[X][Y]A \in \mathbb{Z}[X][Y]A∈Z[X][Y] of YYY-degree less than ddd vanishes at (ω,ω1)(\omega, \omega_1)(ω,ω1​), together with v∈Z[X]v \in \mathbb{Z}[X]v∈Z[X] such that v(ω)≠0v(\omega) \neq 0v(ω)=0 and ω1=v(ω) θ\omega_1 = v(\omega)\,\thetaω1​=v(ω)θ.

Clear the denominators of the minimal polynomial of θ\thetaθ over Q(ω)\mathbb{Q}(\omega)Q(ω) with one v∈Z[X]v \in \mathbb{Z}[X]v∈Z[X] and rescale θ\thetaθ. A pair (ω,ω1)(\omega, \omega_1)(ω,ω1​) with such a QQQ is the setting the four exponentials nodes assume.

Preamble
import Mathlib
Formal statement
namespace Transcendence

/-- A monic integral model of a simple algebraic extension of `ℚ(ω)`.

Let `ω` be transcendental and `θ` algebraic over `ℚ(ω)`, with minimal polynomial `m` of degree `d`.
Clearing the denominators of the coefficients of `m` with one `v ∈ ℤ[X]`, and rescaling
`ω₁ = v(ω) θ`, gives a polynomial `Q ∈ ℤ[X][Y]`, monic of degree `d` in `Y`, with `Q(ω, ω₁) = 0`.
Since `ω₁` also has degree `d` over `ℚ(ω)` and `ω` is transcendental, no non-zero `A ∈ ℤ[X][Y]` of
`Y`-degree below `d` vanishes at `(ω, ω₁)`. -/
theorem exists_monic_integral_model (ω θ : ℂ) (hω : Transcendental ℚ ω)
    (hθ : IsAlgebraic (IntermediateField.adjoin ℚ ({ω} : Set ℂ)) θ) :
    ∃ (ω₁ : ℂ) (Q : Polynomial (Polynomial ℤ)), Q.Monic ∧ 0 < Q.natDegree ∧
      Polynomial.eval₂ (Polynomial.eval₂RingHom (Int.castRingHom ℂ) ω) ω₁ Q = 0 ∧
      (∀ A : Polynomial (Polynomial ℤ), A.natDegree < Q.natDegree →
        Polynomial.eval₂ (Polynomial.eval₂RingHom (Int.castRingHom ℂ) ω) ω₁ A = 0 → A = 0) ∧
      ∃ v : Polynomial ℤ, Polynomial.aeval ω v ≠ 0 ∧ ω₁ = Polynomial.aeval ω v * θ := by
  sorry

end Transcendence
Source
Standard. The normalisation at the start of §III of M. Waldschmidt, Solution du huitième problème de Schneider, J. Number Theory 5 (1973), 191–202. Formal proof: Diaz modulus mission, 27 September 2026 (C. Perassi).

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