Hermite division of an entire function at nodes in a disc of radius r, with bounds on the disc of radius R ≥ 5r (Step 2.4 of the proof of Lemma 4.8)
ProvedTranscendence.hermite_division_boundLet and , let be a finite multiset of complex numbers with , put and , and let be an entire function with on the closed disc of radius . Then there are a polynomial of degree less than and an entire function with
such that whenever is less than the multiplicity of in , and
In one variable, this is the existence part of Lemma 4.8 c) and d) of Waldschmidt's book, with the bounds proved in Step 2.4 of its proof. It is the division step of Transcendence.coord_hermite_step.
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: and are the book's and , built by the same induction on the nodes (Step 2.4, pp. 125–126). The bound is the form that this induction carries; it is slightly sharper than the book's . The contribution of this node is the formal proof.
import Mathlib
open Polynomial
namespace Transcendence
/-- **Hermite division with bounds** (Waldschmidt, *Diophantine Approximation on Linear Algebraic Groups*,
proof of Prop. 4.7, Step 2.4). Let `u` be an entire function with `|u| ≤ M` on the closed disc of radius `R`,
and let `Z` be a multiset of nodes in the closed disc of radius `r > 0`, where `R ≥ 5r`. Then `u = ρ + P·q`
with `P(x) = ∏_{ζ ∈ Z} (x - ζ)`, where `ρ` is a polynomial of degree `< |Z|` whose derivatives of order `< m`
at a node of multiplicity `m` are those of `u`, and `q` is entire; on the closed disc of radius `R`,
`2|ρ| + M ≤ 3^|Z|·M` and `|q| ≤ (3/R)^|Z|·M`. -/
theorem hermite_division_bound {r R : ℝ} (hr : 0 < r) (hR : 5 * r ≤ R) (Z : Multiset ℂ)
(hZ : ∀ ζ ∈ Z, ‖ζ‖ ≤ r) {u : ℂ → ℂ} (hu : Differentiable ℂ u) {M : ℝ}
(hM : ∀ w ∈ Metric.closedBall (0 : ℂ) R, ‖u w‖ ≤ M) :
∃ (ρ : ℂ[X]) (q : ℂ → ℂ), ρ ∈ degreeLT ℂ (Multiset.card Z) ∧ Differentiable ℂ q ∧
(∀ x, u x = ρ.eval x + (Z.map fun ζ => x - ζ).prod * q x) ∧
(∀ ζ, ∀ k < Z.count ζ, (derivative^[k] ρ).eval ζ = iteratedDeriv k u ζ) ∧
∀ x ∈ Metric.closedBall (0 : ℂ) R,
2 * ‖ρ.eval x‖ + M ≤ 3 ^ Multiset.card Z * M ∧ ‖q x‖ ≤ (3 / R) ^ Multiset.card Z * M := by
sorry
end Transcendence