Functor Copy.Copy.I

module I: functor (Gf : Sig.G) -> functor (Gt : Sig.I) -> functor (M : sigval vertex : Gt.t -> Gf.V.t -> Gt.V.t

vertex g' v modifies the new graph and return the vertex 
	   corresponding to v in this graph.


val edge : Gt.t -> Gt.V.t -> Gt.V.t -> unit

edge g' v1' v2' modifies the new graph given the images of
	   two vertices that had an edge in the original graph


end) -> sig .. end

Imperative implementation

Parameters:

`Gf`	:	`Sig.G`
`Gt`	:	`Sig.I`
`M`	:	`sig (** [vertex g' v] modifies the new graph and return the vertex corresponding to [v] in this graph. ) val vertex : Gt.t -> Gf.V.t -> Gt.V.t (* [edge g' v1' v2'] modifies the new graph given the images of two vertices that had an edge in the original graph *) val edge : Gt.t -> Gt.V.t -> Gt.V.t -> unit end`

val copy : Gf.t -> Gt.t

copy g Copy the graph g using M.vertex and M.edge