Definition FS_cone := Build_Cone FS_cone_tau_cone_law.(* soit X un setoid, soit tau : cone(X,FoH) (i.e. Delta(X) -> FoH) 
    construisons tau# : X -> C(c,(Lim F))
    de'finissons tau#(x) par (Tx)# car l est une (Limit F) *)

  Definition FS_diese_mor := Lim_diese l FS_cone.

(* Specifications: *)
Lemma FS_diese_map_law : Map_law FS_diese_mor.