_MultiPoints ::
  (BaseType a, ListLike f (Geometry Point a)) =>
  Iso' (f (Geometry Point a)) (Geometry MultiPoint a)
_MultiPoints = iso
  (MultiPoint . foldMap (pure . review _Geometry))
  (foldMap (pure . Point)  . review _Geometry)
_MultiPoints ::
  (BaseType a, ListLike f (Geometry Point a)) =>
  Iso' (f (Geometry Point a)) (Geometry MultiPoint a)
_MultiPoints = iso
  (MultiPoint . foldMap (pure . review _Geometry))
  (foldMap (pure . Point)  . review _Geometry)
_MultiPoints = iso
  (MultiPoint . foldMap (pure . review _Geometry))
  (foldMap (pure . Point)  . review _Geometry)