Theorem 2 (the extremal family): is an infinite geometrically irreducible curve of degree
ProvedCurveSymmetry.paper_family_geometryLet be an integer and let be nonreal, that is, ; no condition on is imposed. Identify the real plane with through and let
A real polynomial has real zero set , and it is called geometrically irreducible if it is irreducible as an element of .
Then there exists a real polynomial with
such that:
- is geometrically irreducible;
- has total degree ;
- the set is infinite.
This is the opening assertion of Theorem 2 of the note, that is an infinite geometrically irreducible curve of degree , including the quartic case . The note states it for ; here is only assumed to be nonreal. Lemma 4 of the note contains the corresponding irreducibility and infinitude assertions.
Formalization Note: The curve is a subset of , its degree is the total degree of the real polynomial , and geometric irreducibility is irreducibility of the image of under .
import Definitions.Def_CurveSymmetry_01_RealLoci import Definitions.Def_CurveSymmetry_02_FamilyBasics import Definitions.Def_CurveSymmetry_03_IsometriesAndCharts import Mathlib.Algebra.MvPolynomial.Nilpotent import Mathlib.Algebra.MvPolynomial.NoZeroDivisors import Mathlib.Algebra.Polynomial.FieldDivision import Mathlib.Algebra.Polynomial.Reverse import Mathlib.Analysis.Complex.Isometry import Mathlib.Analysis.Complex.OperatorNorm import Mathlib.Analysis.Complex.Polynomial.Basic import Mathlib.Analysis.Normed.Affine.MazurUlam import Mathlib.Data.Complex.Basic import Mathlib.RingTheory.MvPolynomial.Homogeneous import Mathlib.RingTheory.MvPolynomial.IrreducibleQuadratic import Mathlib.RingTheory.Polynomial.Eisenstein.Criterion import Mathlib.RingTheory.Polynomial.GaussLemma import Mathlib.RingTheory.RootsOfUnity.Complex import Mathlib.RingTheory.RootsOfUnity.PrimitiveRoots import Mathlib.Tactic open CurveSymmetry set_option autoImplicit false
theorem CurveSymmetry.paper_family_geometry {m : ℕ} (hm : 2 ≤ m) {α : ℂ} (ha : α ≠ star α) :
∃ f : RPoly, GeometricallyIrreducible f ∧ f.totalDegree = m + 2 ∧
cartesianLocus f = extremalCurve m α ∧ (cartesianLocus f).Infinite := by sorryConfirmed by the mission captain (proposal self-audit).
Confirmed by the moderator at approval.