Section pmor_setoid_def.
Variable u t : POb.
Structure Pmor : Type :=
{Hom_l : Ob_l u --> Ob_l t; Hom_r : Ob_r u --> Ob_r t}.
Definition Equal_Pmor (f g : Pmor) :=
Hom_l f =_S Hom_l g /\ Hom_r f =_S Hom_r g.

Lemma Equal_Pmor_equiv : Equivalence Equal_Pmor.