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

(* Specifications: *)
Lemma Thl_diag3 : forall i : J, tau i =_S Thl_h o Proj1 Thl_l_Fi i.
Lemma Thl_diag4 : Thl_h o Thl_f =_S Thl_h o Thl_g.