(* equalizer de f et g *)
Definition Thl_d := E1_ob Thl_l_fg.
Definition Thl_e := E1_mor Thl_l_fg.
(* construction du limiting cone *)
Definition Thl_mu_tau (j : J) := Thl_e o Proj1 Thl_l_Fi j.

Lemma Thl_mu_cone_law : Cone_law Thl_mu_tau.
Definition Thl_mu := Build_Cone Thl_mu_cone_law.