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.
Canonical Structure Tc_diese := Build_Com_arrow Tc_t_cone_com_law.
End ctdiese.

Lemma Tc_UA_law1 : Limit_law1 Tc_limconeF Tc_diese.