(* qq u. gu : IIi Fi --p(domu)--> F(domu) --Fu--> ku (= F(codomu)) *)
(* donc E! g : IIi Fi -> ||u F(codomu) tq ... *)
Definition Thl_g := Pd1_diese Thl_l_Fu Thl_gu.

Lemma Thl_diag2 : forall u : Arrs J, Thl_gu u =_S Thl_g o Proj1 Thl_l_Fu u.
Definition Thl_l_fg := Limit2_fg Thl_f Thl_g.