(* Proof of lem_rfull_rel_sig                                              *)
elim
(axs_comprehension
(fun c : E => exists x : E, (exists y : E, c = couple x y))
(cartesien a a) v0); intros; generalize (H0 H);
clear H H0 H1; intros.
elim H; clear H; intros; auto with zfc.
Qed.
(* End of proof of lem_rfull_rel_sig                                       *)

(* Specifications: *)
(***************************************************************************)
(* Le domaine de la relation pleine est a                                  *)
(***************************************************************************)
Lemma lem_rfull_dom :
forall a : E, rdom (rfull a) a a (lem_rfull_rel_sig a) = a.