module type With_Intersects = Lattice_type.With_Intersects
Lattice_type.With_Intersects
type t
val intersects : t -> t -> bool
t -> t -> bool
intersects t1 t2 returns true iff the intersection of t1 and t2 is non-empty.
intersects t1 t2
true
t1
t2