include G
type t
val pred : t -> V.t -> V.t listval succ : t -> V.t -> V.t listval fold_vertex : (V.t -> 'a -> 'a) -> t -> 'a -> 'aval iter_vertex : (V.t -> unit) -> t -> unitval iter_succ : (V.t -> unit) -> t -> V.t -> unitval nb_vertex : t -> int
val empty : unit -> tval add_edge : t -> V.t -> V.t -> t