include sig ... end
val equal : t -> t -> boolval compare : t -> t -> intval name : unit -> stringval arbitrary : unit -> t QCheck.arbitraryval leq : 'a -> 'b -> boolval join : 'a -> 'b -> 'aval widen : 'a -> 'b -> 'aval meet : 'a -> 'b -> 'aval narrow : 'a -> 'b -> 'a