rightFace :: (SurfaceDiagram a) => Dart a t -> Face a t
rightFace = leftFace . opposite
rightFace :: (SurfaceDiagram a) => Dart a t -> Face a t
rightFace = leftFace . opposite
rightFace = leftFace . opposite