equalPK :: PublicKey t -> PublicKey t -> Bool
equalPK (PublicKey x) (PublicKey y) = equalBS x y
equalPK :: PublicKey t -> PublicKey t -> Bool
equalPK (PublicKey x) (PublicKey y) = equalBS x y
equalPK (PublicKey x) (PublicKey y) = equalBS x y