unfold Paire in |- *.
simpl in |- *.
intros; split.
simple induction x.
exists true; auto with zfc.
exists false; auto with zfc.
simple induction y; simpl in |- *.
exists true; auto with zfc.
exists false; auto with zfc.
Qed.

Theorem Paire_sound_rightC :
forall A B B' : Ens, EQC B B' -> EQC (Paire A B) (Paire A B').