Md.P
module G : Sig.P
type edgeset = (G.V.t * G.V.t) list
val md : G.t -> G.t * edgeset * G.V.t list
val triangulate : G.t -> G.t