Theorem 1 (the bounds): finite groups with and
ProvedCurveSymmetry.paper_sharp_boundsalgebraic-geometrycurve-symmetry-leaneuclidean-geometry
Let be irreducible in and of total degree . Identify with and let be the real zero set of . Assume that is infinite and is not a circle: there are no and real with . Let be the group of Euclidean isometries of with , and its subgroup of maps of the form with , the orientation-preserving ones.
Then:
- is finite;
- is finite;
- is cyclic;
- the orders of the two groups satisfy
These are the finiteness statement and the two bounds of Theorem 1, together with the finiteness and cyclicity assertions of Lemma 3. Sharpness and the equality case are stated separately.
Formalization Note: the curve is a subset of ; and are subgroups of the group ℂ ≃ᵢ ℂ of isometric bijections of , membership meaning for all ; orders are cardinalities (Nat.card).
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_sharp_bounds {f : RPoly} (hf : GeometricallyIrreducible f)
(hd : 2 ≤ f.totalDegree) (hinf : (cartesianLocus f).Infinite)
(hnc : ¬ ∃ c : ℂ, ∃ R : ℝ, 0 < R ∧ cartesianLocus f = Metric.sphere c R) :
Finite (isometrySetGroup (cartesianLocus f)) ∧
Finite (directIsometryGroup (cartesianLocus f)) ∧
IsCyclic (directIsometryGroup (cartesianLocus f)) ∧
Nat.card (directIsometryGroup (cartesianLocus f)) ≤ max f.totalDegree (2 * f.totalDegree - 4) ∧
Nat.card (isometrySetGroup (cartesianLocus f)) ≤ 2 * f.totalDegree := 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.