(* End of proof of lem_Vide_Img                                            *)

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

Lemma lem_rfull_dom : forall a : E, rdom (rfull a) a a (lem_rfull_rel_sig a) = a.