pParam :: IdentPred -> QParameter -> Bool
pParam identp (Param ident _ _ _) = identp ident
pParam :: IdentPred -> QParameter -> Bool
pParam identp (Param ident _ _ _) = identp ident
pParam identp (Param ident _ _ _) = identp ident