Section taudiese.
(* construction de l'ope'ration # *)
Variables (c : C) (tau : Cone c F).
(* Bug trad *)
Definition Thl_h := Pd1_diese Thl_l_Fi (c:=c) (fun i : J => tau i).
(* hof = hog *)
(* hof = (IIFcodu)# (+) *)
(* tau(codu) = h o p(codu)   Thl_diag3 *)
(*           = h o f o p(u)  Thl_diag1 *)
(* on a (+) par unicite' de IIFcodu *)
(* hog = (IIFcodu)# (**) *)
(* p(domu) o Fu = g o p(u) Thl_diag2 *)
(* h o p(domu) o Fu = h o g o p(u) *)
(* tau(domu)   o Fu = h o g o p(u) Thl_diag3 *)
(* tau(codomu)      = h o f o p(u) tau est un cone *)
(* posons tau# = h# *)
Definition Thl_diese := E1_diese Thl_l_fg (Prf_law1_fg Thl_diag4).
End taudiese.
(* universalite' *)
(* hyp: t o mu(i) = tau(i) *)
(* s` prouver: t = tau# (=h#) *)
(* par universalite' de e, revient a` prouver: h = t o e or, (rappel) h =def (i|->tau(i))# pour ||Fi donc par universalite' de IIFi, revient a` prouver: qq i:Ob(J). tau(i) = t o e o p(i) vrai par hyp car mu(i) =def e o p(i) *)

Lemma Thl_limit2 : Limit_law2 Thl_mu Thl_diese.