Canonical Structure Unit := Build_UA Unit'.
(* Prouver que pour tout c, <G(c),phi-1(Id(G(c)))> est UA de c vers F *)
Variable c : C.
Definition CoUnit_ob := G c.
Definition CoUnit_arrow := ApAphi_inv ad (Id (G c)).
Definition CoUnit_arrow_diese (d : D) (f : F d --> c) := ApAphi ad f.

(* Specifications: *)
Lemma CoUnit_coUAlaw1 : CoUA_law1 CoUnit_arrow CoUnit_arrow_diese.
Lemma CoUnit_coUAlaw2 : CoUA_law2 CoUnit_arrow CoUnit_arrow_diese.
Canonical Structure CoUnit' := Build_IsCoUA CoUnit_coUAlaw1 CoUnit_coUAlaw2.