WitnessUtilmodule NH : sig ... endmodule NS : sig ... endval find_main_entry : ((MyCFG.node * 'a) * 'b) list -> MyCFG.node * 'aval find_loop_heads : (module MyCFG.CfgForward) -> Cil.file -> unit NH.tmodule HashedPair
(M1 : Hashtbl.HashedType)
(M2 : Hashtbl.HashedType) :
Hashtbl.HashedType with type t = M1.t * M2.tmodule HashedList
(M : Hashtbl.HashedType) :
Hashtbl.HashedType with type t = M.t list