Change fromSets to filter out singleton sets. 

 Ensures that partitions are represented uniquely so that Eq does the right thing.  (Otherwise discrete and fromSets [Set.singleton x] represent the same partitioning in distinct ways.)