End fs_diese.
(* ve'rifions que le # qu'on vient de construire peut former un (co)universal arrow *)
(* revient a` prouver: qq X un setoid, qq tau : cone(X,FoH) (i.e. Delta(X) -> FoH) qq i : J, qq x : |X|. tau(i)(x) = tau#(x) o mu(i) i.e. Tx(i) = (Tx)# o mu(i)  qui n'est rien d'autre que eq_Ucone pour le cone Tx *)

(* Specifications: *)
Lemma FS_limit1 : Limit_law1 FS_lcone FS_diese.
(* revient a` prouver que: f(x) o mu(i) = (Tx)i  => f(x) = (Tx)# correspondant a` l'axiome d'universalite' de l *)
Lemma FS_limit2 : Limit_law2 FS_lcone FS_diese.
Lemma FunSET_Preserves_l : Preserves_1limit (FunSET c) l.