(<- (Complement ?S) (Setofall ?X (Not (Member ?X ?S)))) (=> (Complement $X $Y) (Set $Y)) (=> (Complement $X $Y) (Set $X))