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

Lemma Unit_nt_law : NT_law (F:=Id_CAT D) (G:=F o_F G) Unit_tau.