(* Contribution to the Coq Library   V6.3 (July 1999)                    *)
(***************************************************************************)
(* File: couples.v                                                         *)
(* auteur: alex@sysal.ibp.fr                                               *)
(* date: 19/10/95                                                          *)
(***************************************************************************)
Require Export axs_remplacement.
Definition couple (a b : E) := paire (singleton a) (paire a b).

(***************************************************************************)
(* Un lemme intermediaire sur les paires : {a,b}={a,c} ==> b=c             *)
(***************************************************************************)
Lemma lem_paire_prop2 : forall a b c : E, paire a b = paire a c <-> b = c.
intros; unfold iff in |- *; split; intros.