Ordinary cyclic scalar equation with prescribed algebraic initial coefficients
ProvedArithmeticE.ordinary_cyclic_combinationLet be formal power series whose coefficients are algebraic over , satisfying with rational polynomial and . Suppose a polynomial relation basis with a polynomial left inverse is available. Let be algebraic with , and let be an algebraic covector that is not the specialization of a polynomial relation among the .
There exist polynomials with algebraic coefficients and a positive-order minimal scalar equation for such that
where is its leading coefficient. Thus the minimal equation is ordinary at .
This is the algebraic cyclic-vector construction inside Beukers' proof, separated from the arithmetic zero theorem. It requires coefficient descent, finite-dimensional relation spaces, prescribed polynomial derivatives, and the determinant construction of the scalar equation. This statement is an open formalization obligation, not a conjectural mathematical claim. No value-zero hypothesis or E-arithmetic bound is used here.
import Definitions.Def_beukersLiftingData open ArithmeticE
theorem ArithmeticE.ordinary_cyclic_combination
(m : ℕ) (f : Fin m → PowerSeries ℂ)
(T : Polynomial ℚ) (B : Matrix (Fin m) (Fin m) (Polynomial ℚ))
(hcoeff : ∀ i n, IsAlgebraic ℚ (PowerSeries.coeff n (f i)))
(hode : ∀ i, (T.map (algebraMap ℚ ℂ) : PowerSeries ℂ) * PowerSeries.derivative ℂ (f i) =
∑ j, ((B i j).map (algebraMap ℚ ℂ) : PowerSeries ℂ) * f j)
(hbasis : RelationBasis f)
(ξ : ℂ) (hξ : IsAlgebraic ℚ ξ) (hreg : T.eval₂ (algebraMap ℚ ℂ) ξ ≠ 0)
(a : Fin m → ℂ) (ha : ∀ i, IsAlgebraic ℚ (a i))
(hnot : ¬ ∃ p : Fin m → Polynomial ℂ,
(∑ i, (p i : PowerSeries ℂ) * f i = 0) ∧ ∀ i, (p i).eval ξ = a i) :
∃ (P : Fin m → Polynomial ℂ) (p : ℕ → Polynomial ℂ) (n : ℕ),
(∀ i k, IsAlgebraic ℚ ((P i).coeff k)) ∧
(∀ i, (P i).eval ξ = a i) ∧ 0 < n ∧
MinimalEquation p n (∑ i, (P i : PowerSeries ℂ) * f i) ∧ (p n).eval ξ ≠ 0 := by sorry