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_diag3 : forall i : J, tau i =_S Thl_h o Proj1 Thl_l_Fi i.