Two sets are disjoint if and only if there is no object that is a member of both sets.
(<=> (Disjoint ?S1 ?S2) (Empty (Intersection ?S1 ?S2)))