Derivatives of an exponential monomial with algebraic data: an algebraic number of controlled house and denominator
ProvedTranscendence.exp_monomial_derivsLet be a number field with an embedding , let , , , and . Let and with if . Suppose , every has house at most , has house at most , and and are algebraic integers for an integer . Then for every list of directions of length , the mixed derivative of at along equals for some with
where the house of an algebraic number is the largest modulus of its conjugates.
This is Lemma 4.9 of Waldschmidt's book in the form needed for the Liouville step of §4.6.
It is one step of the proof of Baker's theorem formalised in this mission, which follows Chapter 4 of Waldschmidt's book: Baker's theorem from the criterion of Schneider–Lang for Cartesian products, as observed by Bertrand and Masser (1980).
Novelty. None. The contribution of this node is the formal proof.
import Mathlib
open NumberField
namespace Transcendence
/-- **Derivatives of exponential monomials at algebraic points** (Waldschmidt, *Diophantine Approximation on
Linear Algebraic Groups*, Lemma 4.9, in the form used by the Liouville step of §4.6). Let `K` be a number field
embedded in `ℂ` by `φ`, let `w ∈ K^ι`, and let `g(z) = z_{k₀}^τ · exp(Σ_ν φ(w_ν) z_ν)` on `ℂ^ι`. Let `q ∈ ℂ^ι` be a
point whose coordinate `q_{k₀}` is `φ(v)` with `v ∈ K` (this is only needed when `τ > 0`). Then the mixed partial
derivative of `g` at `q` along the coordinate directions `L 0, …, L (k-1)` is `φ(γ) · exp(Σ_ν φ(w_ν) q_ν)` for
some `γ ∈ K` (explicitly, a polynomial with non-negative integer coefficients in the `w_ν` and `v`) such that
* `house γ ≤ A^k (B + k)^τ`, if `1 ≤ A`, every `house w_ν ≤ A`, and `house v ≤ B`;
* `δ^{k+τ} γ` is an algebraic integer, if `δ ∈ ℤ` makes every `δ w_ν` and `δ v` an algebraic integer. -/
theorem exp_monomial_derivs {K : Type*} [Field K] [NumberField K] (φ : K →+* ℂ)
{ι : Type*} [Fintype ι] [DecidableEq ι] (k₀ : ι) (τ : ℕ) (w : ι → K) (v : K) (q : ι → ℂ)
(hv : 0 < τ → φ v = q k₀) {A B : ℝ} (hA : 1 ≤ A) (hw : ∀ ν, house (w ν) ≤ A)
(hB : house v ≤ B) (δ : ℤ) (hδw : ∀ ν, IsIntegral ℤ ((δ : K) * w ν))
(hδv : IsIntegral ℤ ((δ : K) * v)) (k : ℕ) (L : Fin k → ι) :
∃ γ : K, iteratedFDeriv ℂ k (fun z : ι → ℂ => z k₀ ^ τ * Complex.exp (∑ ν, φ (w ν) * z ν)) q
(fun l => Pi.single (L l) 1) = φ γ * Complex.exp (∑ ν, φ (w ν) * q ν) ∧
house γ ≤ A ^ k * (B + k) ^ τ ∧ IsIntegral ℤ ((δ : K) ^ (k + τ) * γ) := by
sorry
end Transcendence