module Binrel: sig end
sig end
type ('b, 'a) t =
'b, 'a
|
Same
Disjoint
Sub
Super
Singleton of 'a
'a
Overlap of 'b
'b