(* End of proof of lem_exp_elem_prop_recip                                 *)

(***************************************************************************)
(***************************************************************************)
(* Famille d'ensembles indexee                                             *)
(***************************************************************************)
(***************************************************************************)
Definition index (a I : E) (funa : fun_ a) (doma : dom a = I) :=
  subset (fun x : E => True) (Img a).

Lemma lem_index_inter : forall (a I : E) (funa : fun_ a) (doma : dom a = I) (Ine : I <> Vide) (x : E) (indNe : index a I funa doma <> Vide), In x (Einter (index a I funa doma) indNe) -> forall i : E, In i I -> In x (App a funa i).