>>> empty .== complement (full :: SSet Integer) True
>>> prove $ \(s :: SSet Integer) -> complement (complement s) .== s Q.E.D.