Theorem 1 (converse of the equality case): for and every nonreal
ProvedCurveSymmetry.paper_family_conversealgebraic-geometrycurve-symmetry-leaneuclidean-geometry
Let be an integer and let with ; no condition is imposed on . Let as in equation (1), and let be the group of orientation-preserving Euclidean isometries , , mapping onto itself.
Then there is a polynomial with the following properties:
- is irreducible in and has total degree ;
- the real zero set of is , that is, ;
- is infinite;
- is not a circle: there are no and real with ;
- the group has order :
This is the converse in Theorem 1: every curve of the family (1) with satisfies the hypotheses of that theorem in degree and attains the rotation bound . The statement requires only , while the family in the note also has .
Formalization Note: the curve is a subset of and is a subgroup of the group ℂ ≃ᵢ ℂ of isometric bijections; its order is Nat.card, so with finiteness is part of the conclusion.
Preamble
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
Formal statement
theorem CurveSymmetry.paper_family_converse {m : ℕ} (hm : 3 ≤ m) {α : ℂ} (ha : α ≠ star α) :
∃ f : RPoly, GeometricallyIrreducible f ∧ f.totalDegree = m + 2 ∧
cartesianLocus f = extremalCurve m α ∧ (cartesianLocus f).Infinite ∧
(¬ ∃ c : ℂ, ∃ R : ℝ, 0 < R ∧ cartesianLocus f = Metric.sphere c R) ∧
Nat.card (directIsometryGroup (cartesianLocus f)) = 2 * m := by sorrySource
C. Perassi, Sharp symmetry bounds for real algebraic curves (note), Theorem 1, p. 1, https://github.com/carlok/curve-symmetry-lean/blob/d99bc17a1c397956c05d7417de50f9beed56580f/sharp_symmetry_bounds.pdf. Lean: https://github.com/carlok/curve-symmetry-lean/blob/d99bc17a1c397956c05d7417de50f9beed56580f/lean/PaperBounds.lean (C. Perassi)
Human review
Confirmed by the mission captain (proposal self-audit).
Confirmed by the moderator at approval.