Finiteness of coefficient-polynomial roots
ProvedPachDeZeeuw.Algebraic.finite_coeff_roots_of_ne_zerocoefficient-ringsfinitenesspach-de-zeeuw-bezoutreal-algebraic-geometry
Let be a nonzero element of the coefficient ring (). Then its real root set is finite:
This is the univariate fact (a nonzero real polynomial has finitely many roots, transported across XCoeffEquiv) that makes every 'bad locus' argument work: resultants, leading coefficients, and discriminants each vanish at only finitely many coefficient values, so all but finitely many fibers are good.
Preamble
import Mathlib import Definitions.Def_PdzPrelim open EuclideanGeometry open scoped Topology open PachDeZeeuw.Algebraic open PachDeZeeuw.Algebraic.PlaneCurve
Formal statement
theorem PachDeZeeuw.Algebraic.finite_coeff_roots_of_ne_zero (r : XCoeff) (hr : r ≠ 0) :
(CoeffRootSet r).Finite := by sorry
Source
Standard algebra used in proving Bézout's inequality, Theorem 2.1 of Pach–de Zeeuw, Distinct distances on algebraic curves in the plane (arXiv:1308.0177), which cites Gibson, Elementary Geometry of Algebraic Curves, Lemma 14.4; this lemma is not stated in the paper; formalized in https://github.com/mysticflounder/lean-formalizations/blob/dd46c17a2a034d7bfa0df02e7f77834d35592864/lean/LeanFormalizations/PachDeZeeuw/AlgebraicPrelim.lean#L767-L798
Human review
Confirmed by the mission captain (proposal self-audit).