(* End of proof of lem_rId_dom                                             *)

(***************************************************************************)
(* L'image de l'identite est a                                             *)
(***************************************************************************)
(*
Lemma lem_rId_Img :
  (a:E)(rImg (rId a) a a (lem_rId_rel_sig a))=a
.
*)
(***************************************************************************)
(* Complementaire d'une relation                                           *)
(***************************************************************************)
Definition rel_Comp (r a b : E) (rRel : rel_sig r a b) :=
  Comp (cartesien a b) r.

(* Specifications: *)
Lemma lem_rel_Comp_rel_sig : forall (r a b : E) (rRel : rel_sig r a b), rel_sig (rel_Comp r a b rRel) a b.