Definition Comma_l_F := Build_IsLimit Tc_UA_law1 Tc_UA_law2.Definition Comma_l_F1 := Build_Limit Comma_l_F.

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