(* *)
End coua_def.
(* 2nd def : par dualite' *)
Section coua_def1.
Variables (A B : Category) (b : B) (F : Functor A B).
Section iscoua_def1.
Variables (a : A) (u : F a --> b).
Definition IsCoUA1 := IsUA (G:=Dfunctor F) u.
Variable u1 : IsCoUA1.
Definition CoUA1_diese (a' : A) (f : F a' --> b) := UA_diese u1 f.

Lemma IsCoUA1_to_IsCoUA : IsCoUA u.