(* un obj initial dans (x|G) est Un UA de x vers G *)
Variable axu : Initial (Comma G x).
Definition Com_diese (a' : A) (f : x --> G a') :=
Mor_com_arrow (MorI axu (Build_Com_ob f)).
Let axu_ob := Initial_ob axu.

(* Specifications: *)
Lemma Com_UAlaw1 : UA_law1 (Mor_com_ob axu_ob) Com_diese.
Lemma Com_UAlaw2 : UA_law2 (Mor_com_ob axu_ob) Com_diese.
Lemma Com_isUA : IsUA (Mor_com_ob axu_ob).