(* Id *)
(* P2 *)
(* P3 *)

(* Specifications: *)
Lemma Idl_PULB : Idl_law Comp_PULB Id_PULB.
Lemma Idr_PULB : Idr_law Comp_PULB Id_PULB.
Canonical Structure PULB := Build_Category Assoc_PULB Idl_PULB Idr_PULB.