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).

(* Specifications: *)
Lemma Thl_diag3 : forall i : J, tau i =_S Thl_h o Proj1 Thl_l_Fi 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 *)
Lemma Thl_diag4 : Thl_h o Thl_f =_S Thl_h o Thl_g.
Definition Thl_diese := E1_diese Thl_l_fg (Prf_law1_fg Thl_diag4).