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

Lemma Thl_diag3 : forall i : J, tau i =_S Thl_h o Proj1 Thl_l_Fi i.