End set_diese.
(* universalite' *)

(* Specifications: *)
Lemma SET_coUAlaw1 :
forall (X : SET) (tau : Cone X F) (i : J) (x : X),
tau i x =_S SET_lcone_tau i (SET_diese tau x).
Lemma SET_coUAlaw2 :
forall (X : SET) (tau : Cone X F) (g : Map0'' X SET_lim),
(forall (i : J) (x : X), tau i x =_S SET_lcone_tau i (g x)) ->
forall x : X, g x =_S'' SET_diese tau x.