End set_diese.
(* universalite' *)

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.