module IntMap: Map.Make(sigtype t = int val compare : t -> t -> intend)
Map.Make
(
sig
type t = int
int
val compare : t -> t -> int
t -> t -> int
end
)