For algebraic , every Möbius symmetry of is induced by a matrix with algebraic entries
ProvedCurveSymmetry.familyAmbientGroup_algebraic_representativeLet be an integer, let satisfy and (so is not real), and let . Let be the Riemann sphere and let be the closure of in . A matrix acts on by the Möbius transformation , with the usual conventions at and at the pole. Let be the group, under composition, of the bijections of that are induced by some matrix in and satisfy for every ; these are the holomorphic Möbius transformations mapping onto itself.
Suppose moreover that is algebraic over , and let . Then is induced by a matrix with algebraic entries: there is such that
where is the field of algebraic numbers and is the Möbius action of described above.
This is the algebraicity claim of Remark 5 of the note, that for algebraic all the maps of equation (3) have algebraic coefficients, stated directly for the elements of the group rather than for the normal forms of (3).
Formalization Note: The sphere is OnePoint ℂ. The group is a subgroup of the permutations of the sphere, namely the image of intersected with the stabilizer of , so proportional matrices give the same element; is the topological closure of the image of . Each of the four entries of is required to be algebraic over .
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.Algebraic.Integral 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
theorem CurveSymmetry.familyAmbientGroup_algebraic_representative {m : ℕ} (hm : 2 ≤ m)
{α : ℂ} (ha : α ≠ star α) (hα : ‖α‖ = 1) (halg : IsAlgebraic ℚ α)
(f : familyAmbientGroup m α) :
∃ h : MobiusMatrix, (∀ i j, IsAlgebraic ℚ (h i j)) ∧
∀ p : Sphere, h • p = f.val p := by sorryConfirmed by the mission captain (proposal self-audit).
Confirmed by the moderator at approval.