Section adj_to_adj1.
Variables (C D : Category) (F : Functor D C) (G : Functor C D) (ad : Adj F G).
(* *)
Definition Unit_tau (d : D) := UA_mor (Unit ad d).
Canonical Structure Unit_NT := Build_NT Unit_nt_law.
(* *)
Definition CoUnit_tau (c : C) := CoUA_mor (CoUnit ad c).

Lemma CoUnit_nt_law : NT_law (F:=G o_F F) (G:=Id_CAT C) CoUnit_tau.