(* posons tau# = h# *)
End taudiese.
(* universalite' *)

(* Specifications: *)
Lemma Thl_limit1 : Limit_law1 Thl_mu Thl_diese.
(* hyp: t o mu(i) = tau(i) *)
(* s` prouver: t = tau# (=h#) *)
(* par universalite' de e, revient a` prouver: h = t o e or, (rappel) h =def (i|->tau(i))# pour ||Fi donc par universalite' de IIFi, revient a` prouver: qq i:Ob(J). tau(i) = t o e o p(i) vrai par hyp car mu(i) =def e o p(i) *)
Lemma Thl_limit2 : Limit_law2 Thl_mu Thl_diese.
Definition Thl_islimit := Build_IsLimit Thl_limit1 Thl_limit2.