sig
type t
val is_empty : t -> bool
val subset : t -> t -> bool option
val inter : t -> t -> t
val union : t -> t -> t
val compare : t -> t -> int
val string_of : t -> string
val normalize : t -> t
val diff : t -> t -> t
end