A monic integral model of a simple algebraic extension of ℚ(ω)
ProvedTranscendence.exists_monic_integral_modeldiaz-modulus-leannumber-theorytranscendence
Let be transcendental and let be algebraic over . Then there are and , monic in of positive degree , with and minimal there: no non-zero of -degree less than vanishes at , together with such that and .
Clear the denominators of the minimal polynomial of over with one and rescale . A pair with such a 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).