Structure > CoUA : Type :=
{CoUA_ob : A; CoUA_mor : F CoUA_ob --> b; Prf_IsCoUA :> IsCoUA CoUA_mor}.
(*** rewrite rules ***)

Lemma CoUA_unic :
forall (u : CoUA) (a' : A) (f : F a' --> b) (g : a' --> CoUA_ob u),
FMor F g o CoUA_mor u =_S f -> g =_S CoUA_diese u f.