Canonical Structure Unit' := Build_IsUA Unit_UAlaw1 Unit_UAlaw2.Canonical Structure Unit := Build_UA Unit'.Definition CoUnit_ob := G c.Definition CoUnit_arrow := ApAphi_inv ad (Id (G c)).

(* Specifications: *)
Lemma CoUnit_coUAlaw1 : CoUA_law1 CoUnit_arrow CoUnit_arrow_diese.
Lemma CoUnit_coUAlaw2 : CoUA_law2 CoUnit_arrow CoUnit_arrow_diese.