Dominator.Make_graphtype t = G.ttype vertex = G.V.tmodule S : sig ... endtype dom_graph = unit -> ttype dom_functions = {idom : idom;idoms : idoms;dom_tree : dom_tree;dominators : dominators;dom : dom;sdom : sdom;dom_frontier : dom_frontier;dom_graph : dom_graph;}val compute_all : G.t -> vertex -> dom_functions