(* 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_prop : forall a x y : E, In x a -> In y a -> In (couple x y) (rfull a).