(* operation # *)
Section ctdiese.
Variables (axf : Comma G x) (t : Cone axf F).
Definition Tc_t_tau (i : J) := Mor_com_arrow (t i).

(* Specifications: *)
Lemma Tc_t_tau_cone_law : Cone_law (c:=Ob_com_ob axf) (F:=F') Tc_t_tau.
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).