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.
Definition Comma_l_F := Build_IsLimit Tc_UA_law1 Tc_UA_law2.
Definition Comma_l_F1 := Build_Limit Comma_l_F.
End comma_complete.

Lemma Comma_complete :
forall (X A : Category) (G : Functor A X),
Complete A -> Continuous G -> forall x : X, Complete (Comma G x).