Structure POb : Type :=  {Ob_l : A; Ob_r : B}.Structure POb : Type :=  {Ob_l : A; Ob_r : B}.Structure POb : Type :=  {Ob_l : A; Ob_r : B}.Definition Equal_Pmor (f g : Pmor) :=
   Hom_l f =_S Hom_l g /\ Hom_r f =_S Hom_r g.

(* Specifications: *)
Lemma Equal_Pmor_equiv : Equivalence Equal_Pmor.