Definition Thl_mu := Build_Cone Thl_mu_cone_law.(* Bug trad *)

 Definition Thl_h := Pd1_diese Thl_l_Fi (c:=c) (fun i : J => tau i).

Lemma Thl_diag4 : Thl_h o Thl_f =_S Thl_h o Thl_g.