(* Unit et CoUnit verifient ces deux lois *)

(* Specifications: *)
Lemma Unit_and_CoUnit_law1 : Adj1_law1 Unit_NT CoUnit_NT.
Lemma Unit_and_CoUnit_law2 : Adj1_law2 Unit_NT CoUnit_NT.
Canonical Structure Adj_to_Adj1 :=
Build_Adj1 Unit_and_CoUnit_law1 Unit_and_CoUnit_law2.