If the infinite real locus of an irreducible lies in that of , then divides
ProvedCurveSymmetry.dvd_of_realLocus_subsetcurve-symmetry-leaneuclidean-geometryreal-algebraic-geometry
Identify the Euclidean plane with and use the complex coordinates , . For let and be their real loci. Assume that is irreducible in , that is infinite, and that . Then
This is the density step in the proof of Lemma 3, where an infinite real locus is Zariski dense in the irreducible complex curve. In the formalization it turns inclusions of real loci into polynomial identities, for instance to exclude translations, to show that a symmetry multiplies the equation by a constant, and to rule out the fixed line of a reflection as a component.
Preamble
import Definitions.Def_CurveSymmetry_01_RealLoci import Mathlib.Algebra.MvPolynomial.Nilpotent import Mathlib.Algebra.MvPolynomial.NoZeroDivisors import Mathlib.Algebra.Polynomial.FieldDivision import Mathlib.Analysis.Complex.Polynomial.Basic import Mathlib.Data.Complex.Basic import Mathlib.RingTheory.MvPolynomial.Homogeneous import Mathlib.RingTheory.Polynomial.GaussLemma import Mathlib.RingTheory.RootsOfUnity.PrimitiveRoots import Mathlib.Tactic open CurveSymmetry set_option autoImplicit false open MvPolynomial
Formal statement
theorem CurveSymmetry.dvd_of_realLocus_subset {P Q : BPoly} (hP : Irreducible P)
(hinf : (realLocus P).Infinite) (hsub : realLocus P ⊆ realLocus Q) : P ∣ Q := by sorrySource
C. Perassi, Sharp symmetry bounds for real algebraic curves (note): lemma of the formalization, for proof of Lemma 3, p. 2, https://github.com/carlok/curve-symmetry-lean/blob/d99bc17a1c397956c05d7417de50f9beed56580f/sharp_symmetry_bounds.pdf. Lean: https://github.com/carlok/curve-symmetry-lean/blob/d99bc17a1c397956c05d7417de50f9beed56580f/lean/Elimination.lean (C. Perassi)