Structure > UA : Type :=
{UA_ob : A; UA_mor : b --> G UA_ob; Prf_IsUA :> IsUA UA_mor}.
(*** rewrite rules ***)

(* Specifications: *)
Lemma UA_diag :
forall (u : UA) (a' : A) (f : b --> G a'),
UA_mor u o FMor G (UA_diese u f) =_S f.
Lemma UA_diag1 :
forall (u : UA) (a' : A) (f : b --> G a'),
f =_S UA_mor u o FMor G (UA_diese u f).
Lemma UA_unic :
forall (u : UA) (a' : A) (f : b --> G a') (g : UA_ob u --> a'),
UA_mor u o FMor G g =_S f -> g =_S UA_diese u f.
Lemma UA_unic1 :
forall (u : UA) (a' : A) (f : b --> G a') (g : UA_ob u --> a'),
UA_mor u o FMor G g =_S f -> UA_diese u f =_S g.