(***************************************************************************)
(***************************************************************************)
(* Une relation est un ensemble de couples                                 *)
(* Nous nous interessons ici aux relations binaires.                       *)
(***************************************************************************)
(***************************************************************************)
Definition rel (r : E) :=
  forall c : E, In c r -> exists x : E, (exists y : E, c = couple x y).Definition rel_sig (r a b : E) := inc r (cartesien a b).

Lemma lem_rel_to_rel_sig : forall r : E, rel r -> exists a : E, (exists b : E, rel_sig r a b).