module type With_Intersects = sig .. end
sig
end
type t
val intersects : t -> t -> bool
t -> t -> bool