(* End of proof of lem_rfull_prop                                          *)

(***************************************************************************)
(* La relation identite                                                    *)
(***************************************************************************)
Definition rId (a : E) :=
  subset (fun c : E => exists x : E, c = couple x x) (cartesien a a).

Lemma lem_rId_rel_sig : forall a : E, rel_sig (rId a) a a.