fact: Definition S1_Ensemble := [s : @ProductTopology2 RTop RTop | let (x, y) := s in x² + y² = 1].
imports: Coq(Reals.Ratan Lia Lra Logic.IndefiniteDescription Program.Subset) ZornsLemma(Quotients) Topology(ProductTopology AdjunctionSpace SubspaceTopology RTopology RFuncContinuity Homeomorphisms)