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.

Lemma CoUnit_coUAlaw1 : CoUA_law1 CoUnit_arrow CoUnit_arrow_diese.