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

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.