Instance respectful_set_proper {A B: Type}: Proper (Same_set ==> pointwise_relation A (@eq B) ==> Same_set) respectful_set.Instance image_set_proper2 {A B: Type}: Proper (Same_set ==> eq ==> Same_set) (@image_set A B).

Lemma resp_Complement: forall {A B: Type} (X: Ensemble B) (f: A -> B), Same_set (respectful_set (Complement _ X) f) (Complement _ (respectful_set X f)).