unfold Couple in |- *; intros; auto with zfc.
Qed.

(* Specifications: *)
Theorem Couple_sound_right :
forall A B B' : Ens, EQ B B' -> EQ (Couple A B) (Couple A B').
Theorem Couple_IN_Prod :
forall E1 E2 E1' E2' : Ens,
IN E1' E1 -> IN E2' E2 -> IN (Couple E1' E2') (Prod E1 E2).
Theorem Couple_sound_right :
forall A B B' : Ens, EQ B B' -> EQ (Couple A B) (Couple A B').
Theorem Couple_IN_Prod :
forall E1 E2 E1' E2' : Ens,
IN E1' E1 -> IN E2' E2 -> IN (Couple E1' E2') (Prod E1 E2).