(***************************************************************************)
(* Axiome de la paire                                                      *)
(***************************************************************************)
Parameter paire : E -> E -> E.Axiom
  axs_paire : forall v0 v1 v3 : E, In v3 (paire v0 v1) <-> v3 = v0 \/ v3 = v1.

(* Specifications: *)
Lemma lem_paire_unique : forall a b p : E, (forall y : E, In y p <-> y = a \/ y = b) -> p = paire a b.
Lemma lem_paire_sym : forall a b : E, paire a b = paire b a.
Lemma lem_paire_propertie : forall a0 b0 a1 b1 : E, paire a0 b0 = paire a1 b1 <-> a0 = a1 /\ b0 = b1 \/ a0 = b1 /\ b0 = a1.