_khb_experiment/util.ml


1
2
3
4
5
6
7
8
9
10

module Int = struct
    type t = int
    let compare = Pervasives.compare
end

module Smap = Map.Make(String)
module Imap = Map.Make(Int)

let (^^) a b = (a || b) && (not (a && b))