Section ctdiese.
Variables (axf : Comma G x) (t : Cone axf F).
Definition Tc_t_tau (i : J) := Mor_com_arrow (t i).
Definition Tc_t_cone := Build_Cone Tc_t_tau_cone_law.

Lemma Tc_t_cone_com_law :
Com_law (axf:=axf) (bxg:=Tc_limF) (Lim_diese l_F' Tc_t_cone).