For the curve has exactly orientation-preserving symmetries
ProvedCurveSymmetry.fermat_direct_cardcurve-symmetry-leanpolynomialsreal-algebraic-geometry
Identify the Euclidean plane with and use the complex coordinates , . Let be an integer and let be the real locus of . Let be the set of orientation-preserving isometries (, ) such that for all . Then
This is the rotation count of the sharpness examples in the proof of Theorem 1: with their reflections these curves attain , and their rotations attain the rotation bound for . For the curve is the example of Remark 5.
Formalization Note: isometries are recorded by their pairs , and the cardinality is the natural-number cardinality; since , the equality includes the finiteness of .
Preamble
import Definitions.Def_CurveSymmetry_01_RealLoci import Definitions.Def_CurveSymmetry_02_FamilyBasics import Mathlib.Algebra.MvPolynomial.Nilpotent import Mathlib.Algebra.MvPolynomial.NoZeroDivisors import Mathlib.Algebra.Polynomial.FieldDivision import Mathlib.Algebra.Polynomial.Reverse import Mathlib.Analysis.Complex.Polynomial.Basic 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.fermat_direct_card {d : ℕ} (hd : 2 ≤ d) :
Nat.card (DirectSymmetries (fermatPolynomial d)) = d := by sorrySource
C. Perassi, Sharp symmetry bounds for real algebraic curves (note): lemma of the formalization, for proof of Theorem 1, sharpness examples, p. 3; Remark 5, 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/Sharpness.lean (C. Perassi)