(* 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.

Lemma Com_isUA : IsUA (Mor_com_ob axu_ob).