∀ {V : Type u_1} {P : Type u_2} [inst : NormedAddCommGroup V] [inst_1 : InnerProductSpace ℝ V] [inst_2 : MetricSpace P]
  [inst_3 : NormedAddTorsor V P] {s : EuclideanGeometry.Sphere P} (p : P) {f : P ≃ᵃⁱ[ℝ] P},
  f s.center = s.center → AffineSubspace.map (↑f.toAffineEquiv) (s.orthRadius p) = s.orthRadius (f p)