Source file `id.ml`

1
2
3
4
5
6
7
8
9
10
11
module Key = struct
  type t = < >
  let compare = compare
end

type t = Key.t
let mint () = object end
let equal = (=)

module Set = Set.Make(Key)
module Map = Map.Make(Key)