An integer combination of exponential monomials with small derivatives at the lattice points (4.16), and its growth
ProvedTranscendence.exists_exp_monomials_small_on_gridLet be a finite set, , , and , and let and () be vectors in with and , where is the sup norm. Let be integers, and real numbers, and put and . Assume
Then there are integers (, ), not all zero, with , such that the function
satisfies:
- at every point with , every derivative of along a list of coordinate directions has modulus at most ;
- whenever and .
The assumptions are those of Proposition 4.10 (Transcendence.siegel_small_values) for these monomials, with and the radii and . The first conclusion is (4.16), and the second is the growth bound that the Schwarz step of Transcendence.schneider_lang_cartesian needs.
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: step 3 of §4.6 of Waldschmidt's book and (4.16) (pp. 138–139), with and the book's radii , , where replaces . The bound has in place of the book's , which is at most . The contribution of this node is the formal proof.
import Mathlib
namespace Transcendence
/-- **An auxiliary function that is small on the grid** (Waldschmidt, *Diophantine Approximation on Linear
Algebraic Groups*, §4.6, step 3 and (4.16)). Let `n = |ι|`, `d₀ ≤ 1`, `d = d₀ + d₁`, `cx ≥ Σ_{i,ν} |x_{iν}|` and
`cy ≥ Σ_j ‖y_j‖`, and let `S₁, T ≥ 1`, `U, N > 0` and `E` satisfy the conditions of Prop. 4.10 for the radii
`r = (cy + 2) S₁` and `R = E r`: `12n² ≤ N + 2U`, `e ≤ E ≤ e^{(N + 2U)/6}`,
`(T+1)^d R^T e^{cx T R} ≤ e^U` and `(2(N + 2U))^{n+1} ≤ (T+1)^d N (log E)ⁿ`. Then there are integers `p_{τ,t}`
(`0 ≤ τ ≤ d₀T`, `t ∈ {0, …, T}^{d₁}`), not all zero, with `|p_{τ,t}| ≤ e^N`, such that the function
`F(z) = Σ p_{τ,t} · z_{k₀}^τ · exp ⟨t₁x₁ + ⋯ + t_{d₁}x_{d₁}, z⟩` has every mixed partial derivative of order `k`
at every lattice point `Σ_j s_j y_j` (`0 ≤ s_j < S₁`) bounded by `k! e^{-U}`, and
`|F(w)| ≤ (T+1)^d e^N ρ^T e^{cx T ρ}` whenever `‖w‖ ≤ ρ` and `ρ ≥ 1`. -/
theorem exists_exp_monomials_small_on_grid {ι : Type*} [Fintype ι] [DecidableEq ι] {d₁ : ℕ}
(x : Fin d₁ → ι → ℂ) (y : ι → ι → ℂ) (k₀ : ι) {d₀ : ℕ} (hd₀ : d₀ ≤ 1) {cx cy : ℝ}
(hcx : ∑ i, ∑ ν, ‖x i ν‖ ≤ cx) (hcy : ∑ j, ‖y j‖ ≤ cy) {S₁ T : ℕ} {E U N : ℝ}
(hS₁ : 1 ≤ S₁) (hT : 1 ≤ T) (hU : 0 < U) (hN : 0 < N)
(hSL : 12 * (Fintype.card ι : ℝ) ^ 2 ≤ N + U + U ∧ Real.exp 1 ≤ E ∧
E ≤ Real.exp ((N + U + U) / 6) ∧
((T : ℝ) + 1) ^ (d₀ + d₁) * (E * ((cy + 2) * S₁)) ^ T *
Real.exp (cx * T * (E * ((cy + 2) * S₁))) ≤ Real.exp U ∧
(2 * (N + U + U)) ^ (Fintype.card ι + 1) ≤
((T : ℝ) + 1) ^ (d₀ + d₁) * N * Real.log E ^ Fintype.card ι) :
∃ p : Fin (d₀ * T + 1) × (Fin d₁ → Fin (T + 1)) → ℤ, p ≠ 0 ∧
(∀ l, |(p l : ℝ)| ≤ Real.exp N) ∧
(∀ (s : ι → Fin S₁) (k : ℕ) (L : Fin k → ι),
‖iteratedFDeriv ℂ k (fun z : ι → ℂ => ∑ l, (p l : ℂ) * (z k₀ ^ (l.1 : ℕ) *
Complex.exp (∑ ν, (∑ i, ((l.2 i : ℕ) : ℂ) * x i ν) * z ν))) (∑ j, ((s j : ℕ) : ℂ) • y j)
(fun l => Pi.single (L l) 1)‖ ≤ k.factorial * Real.exp (-U)) ∧
∀ ρ : ℝ, 1 ≤ ρ → ∀ w : ι → ℂ, ‖w‖ ≤ ρ →
‖∑ l, (p l : ℂ) * (w k₀ ^ (l.1 : ℕ) *
Complex.exp (∑ ν, (∑ i, ((l.2 i : ℕ) : ℂ) * x i ν) * w ν))‖ ≤
((T : ℝ) + 1) ^ (d₀ + d₁) * Real.exp N * ρ ^ T * Real.exp (cx * T * ρ) := by
sorry
end Transcendence