A Möbius map carrying into itself preserves it exactly
ProvedCurveSymmetry.family_mobius_self_mem_iffalgebraic-geometrycurve-symmetry-leanzariski-topology
Let be an integer and let with and . Let and let be its closure in the Riemann sphere . A matrix acts on by the Möbius transformation , with the usual conventions at the pole and at . Let satisfy .
Then for every ,
Equivalently, the preimage of under is : the one-sided inclusion is already an exact symmetry.
This is used for Theorem 2: a Möbius map carrying into itself is automatically a symmetry of , so that, together with the description of the self-inclusions in (3), it identifies the ambient Möbius symmetry group of .
Formalization Note: the Riemann sphere is the one-point compactification OnePoint ℂ and is the topological closure of in it; matrices act through Mathlib's identification of the sphere with the projective line.
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.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
Formal statement
theorem CurveSymmetry.family_mobius_self_mem_iff {m : ℕ} (hm : 2 ≤ m) {α : ℂ}
(ha : α ≠ star α) (hα : ‖α‖ = 1) (g : MobiusMatrix)
(hmap : ∀ p ∈ sphericalFamily m α, g • p ∈ sphericalFamily m α) (p : Sphere) :
g • p ∈ sphericalFamily m α ↔ p ∈ sphericalFamily m α := by sorrySource
C. Perassi, Sharp symmetry bounds for real algebraic curves (note): lemma of the formalization, for Theorem 2, p. 2, https://github.com/carlok/curve-symmetry-lean/blob/d99bc17a1c397956c05d7417de50f9beed56580f/sharp_symmetry_bounds.pdf. Lean: https://github.com/carlok/curve-symmetry-lean/blob/d99bc17a1c397956c05d7417de50f9beed56580f/lean/FamilySphereClassification.lean (C. Perassi)