A Möbius map with antidiagonal matrix acts on the whole sphere as with
ProvedCurveSymmetry.mobius_antidiagonal_actionalgebraic-geometrycurve-symmetry-leaneuclidean-geometry
Let be the Riemann sphere. A matrix with rows and acts on by the Möbius transformation , with the usual conventions: if then and , and if then . For let be the map with , and for .
Suppose that and . Then:
- ;
- agrees with at every point of the sphere:
Theorem 2 of the note lists the ambient symmetries of as maps and with constant , equation (3). This lemma identifies the Möbius maps with antidiagonal matrices with maps of the second kind, including their values at and ; the formalization uses it to bring Möbius maps that exchange and into this form.
Formalization Note: is OnePoint ℂ and is Mathlib's action of GL (Fin 2) ℂ on it; are the entries g 0 0, g 0 1, g 1 0, g 1 1.
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 import Mathlib.Topology.Compactification.OnePoint.ProjectiveLine open CurveSymmetry set_option autoImplicit false open OnePoint
Formal statement
theorem CurveSymmetry.mobius_antidiagonal_action (g : MobiusMatrix) (ha : g 0 0 = 0) (hd : g 1 1 = 0) :
g 0 1 / g 1 0 ≠ 0 ∧ ∀ p : Sphere, g • p = sphereInversion (g 0 1 / g 1 0) p := by sorrySource
C. Perassi, Sharp symmetry bounds for real algebraic curves (note): lemma of the formalization, used for Theorem 1 (p. 1), Theorem 2 (p. 2), Lemma 4 (p. 3), https://github.com/carlok/curve-symmetry-lean/blob/d99bc17a1c397956c05d7417de50f9beed56580f/sharp_symmetry_bounds.pdf. Lean: https://github.com/carlok/curve-symmetry-lean/blob/d99bc17a1c397956c05d7417de50f9beed56580f/lean/MobiusPair.lean (C. Perassi)