module type S =sig..end
module Tree:DGraphSubTree.Treewith type E.label = unit
type t
val get_structure : t -> Tree.tval get_root : t -> Tree.V.tval get_tree_vertices : Tree.V.label ->
t -> Tree.V.t listval is_ghost_node : Tree.V.t -> t -> boolval is_ghost_edge : Tree.E.t -> t -> boolexception Ghost_node
val get_graph_vertex : Tree.V.t -> t -> Tree.V.label