(* End of proof of lem_couple_propertie_rl                                 *)

(***************************************************************************)
(* Produit cartesien de deux ensembles                                     *)
(***************************************************************************)
Definition cartesien (a b : E) :=
  subset
    (fun u : E =>
     exists x : E, (exists y : E, In x a /\ In y b /\ u = couple x y))
    (parties (parties (union a b))).

Lemma lem_cartesian_cons : forall x y a b : E, In x a -> In y b -> In (couple x y) (cartesien a b).