(* End of proof of lem_comp_intermed                                       *)

(***************************************************************************)
(***************************************************************************)
(* Redefinissons maintenant une application dans le style f(x) = y         *)
(***************************************************************************)
(***************************************************************************)
Definition App (f : E) (Af : fun_ f) (x : E) :=
  subset (fun z : E => exists y : E, In (couple x y) f /\ In z y)
    (reunion (Img f)).

Lemma lem_eval_propertie : forall (f x y : E) (Af : fun_ f), In (couple x y) f -> y = App f Af x.