Anti-Möbius transport of the singular points of onto those of
ProvedCurveSymmetry.family_anti_mobius_projective_critical_transportLet be an integer and let with and ; no condition on their moduli is imposed. For let be the closure in the Riemann sphere of , and for , in let
the bihomogenization of . Let be the set of points at which , as a function on , vanishes together with its differential: the singular points of the curve by the Jacobian criterion, independently of the representatives.
Let with rows and be any invertible matrix, the Möbius transformation of it defines, and the matrix with conjugated entries; acts on by , and is complex conjugation on , with . Assume that for every . Then for every
In the proof of Theorem 2 an equivalence of the spherical real loci must preserve the singular points of and . This is that statement for anti-Möbius maps: the map of induced by matches the two singular loci. Only the inclusion of the spherical curves is assumed, with no condition on the form of .
Formalization Note: the conjugation of the sphere OnePoint ℂ is OnePoint.map star, and the singular locus is defined through HasFDerivAt at chosen representatives in Projectivization ℂ (Fin 2 → ℂ).
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.Equiv import Mathlib.Analysis.Calculus.FDeriv.Mul 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
theorem CurveSymmetry.family_anti_mobius_projective_critical_transport {m : ℕ} (hm : 0 < m)
{α β : ℂ} (ha : α ≠ star α) (hb : β ≠ star β) (g : MobiusMatrix)
(hmap : ∀ p ∈ sphericalFamily m α,
g • OnePoint.map (star : ℂ → ℂ) p ∈ sphericalFamily m β)
(p : ProjectiveLine × ProjectiveLine) :
complexifiedAntiMobius g p ∈ familyProjectiveCritical m β ↔
p ∈ familyProjectiveCritical m α := by sorry