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).
Canonical Structure CoUnit_NT := Build_NT CoUnit_nt_law.
(* Unit et CoUnit verifient ces deux lois *)

Lemma Unit_and_CoUnit_law2 : Adj1_law2 Unit_NT CoUnit_NT.