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

(* Specifications: *)
Lemma Prf_isCoUA1_law1 : CoUA_law1 u CoUA1_diese.
Lemma Prf_isCoUA1_law2 : CoUA_law2 u CoUA1_diese.
Lemma IsCoUA1_to_IsCoUA : IsCoUA u.