Module Set_lang.Raw

module Raw: sig .. end

type ('base, 'set) t = private 
| Base of 'base
| Set of 'set
| Union of ('base, 'set) t * ('base, 'set) t
| Inter of ('base, 'set) t * ('base, 'set) t
| Diff of ('base, 'set) t * ('base, 'set) t
val compare : ('base -> 'base -> int) ->
('set -> 'set -> int) ->
('base, 'set) t -> ('base, 'set) t -> int