An irreducible polynomial in is a nonzero multiple of
ProvedCurveSymmetry.irreducible_radial_formcurve-symmetry-leaneuclidean-geometryreal-algebraic-geometry
Let be irreducible in and radial, meaning that only when , so that is a polynomial in . Then there exist with such that
In the proof of Theorem 1, when a rotation of order greater than the degree fixes the equation, every exponent has and ; this is the step at which irreducibility forces to be linear.
Preamble
import Definitions.Def_CurveSymmetry_01_RealLoci import Mathlib.Algebra.MvPolynomial.Nilpotent import Mathlib.Algebra.MvPolynomial.NoZeroDivisors import Mathlib.Analysis.Complex.Polynomial.Basic import Mathlib.Data.Complex.Basic import Mathlib.RingTheory.MvPolynomial.Homogeneous import Mathlib.RingTheory.RootsOfUnity.PrimitiveRoots import Mathlib.Tactic open CurveSymmetry set_option autoImplicit false open MvPolynomial
Formal statement
theorem CurveSymmetry.irreducible_radial_form {P : BPoly} (hirr : Irreducible P)
(hdiag : ∀ s ∈ P.support, s 0 = s 1) :
∃ a r : ℂ, a ≠ 0 ∧ P = C a * ((X 0 : BPoly) * X 1 - C r) := by sorrySource
C. Perassi, Sharp symmetry bounds for real algebraic curves (note): lemma of the formalization, for proof of Theorem 1, p. 3, https://github.com/carlok/curve-symmetry-lean/blob/d99bc17a1c397956c05d7417de50f9beed56580f/sharp_symmetry_bounds.pdf. Lean: https://github.com/carlok/curve-symmetry-lean/blob/d99bc17a1c397956c05d7417de50f9beed56580f/lean/Irreducibility.lean (C. Perassi)