The Euclidean symmetry group of has exactly elements
ProvedCurveSymmetry.family_isometry_cardalgebraic-geometrycurve-symmetry-leanzariski-topology
Let be an integer, let satisfy and (so is not real), and let . Let be the group of all isometries of the Euclidean plane , orientation-preserving or not, with for every .
Then is finite and
This is the count of Euclidean symmetries in Theorem 2 of the note, where they are the rotations , , of equation (3). It supports Theorem 1, whose rotation bound is attained by the curves for , and it is used to count the symmetries of the quintic (2).
Formalization Note: The group is the subgroup of the isometries ℂ ≃ᵢ ℂ preserving the set , and the cardinality is Nat.card, so the statement includes finiteness.
Preamble
import Definitions.Def_CurveSymmetry_01_RealLoci import Definitions.Def_CurveSymmetry_02_FamilyBasics import Definitions.Def_CurveSymmetry_03_IsometriesAndCharts import Definitions.Def_CurveSymmetry_04_ProjectiveClosure import Mathlib.Algebra.MvPolynomial.Nilpotent import Mathlib.Algebra.MvPolynomial.NoZeroDivisors import Mathlib.Algebra.MvPolynomial.PDeriv import Mathlib.Algebra.Polynomial.FieldDivision import Mathlib.Algebra.Polynomial.Reverse import Mathlib.Analysis.Calculus.FDeriv.Analytic import Mathlib.Analysis.Calculus.FDeriv.Equiv import Mathlib.Analysis.Calculus.FDeriv.Mul import Mathlib.Analysis.Calculus.FDeriv.Pi 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.FieldTheory.Separable 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 import Mathlib.Topology.Algebra.Module.FiniteDimension import Mathlib.Topology.Compactification.OnePoint.ProjectiveLine open CurveSymmetry set_option autoImplicit false open OnePoint
Formal statement
theorem CurveSymmetry.family_isometry_card {m : ℕ} (hm : 2 ≤ m) {α : ℂ}
(ha : α ≠ star α) (hα : ‖α‖ = 1) :
Nat.card (isometrySetGroup (extremalCurve m α)) = 2 * m := by sorrySource
C. Perassi, Sharp symmetry bounds for real algebraic curves (note): lemma of the formalization, for Theorem 2, p. 2; proof of Theorem 2, p. 4, https://github.com/carlok/curve-symmetry-lean/blob/d99bc17a1c397956c05d7417de50f9beed56580f/sharp_symmetry_bounds.pdf. Lean: https://github.com/carlok/curve-symmetry-lean/blob/d99bc17a1c397956c05d7417de50f9beed56580f/lean/FamilyEuclidean.lean (C. Perassi)