-\begin{code}
-pLit (PE pp _ _ _ _ _ _ _ _) = pp
-pCon (PE _ pp _ _ _ _ _ _ _) = pp
-pPrim (PE _ _ pp _ _ _ _ _ _) = pp
-pSCC (PE _ _ _ pp _ _ _ _ _) = pp
-
-pTyVarB (PE _ _ _ _ pp _ _ _ _) = pp
-pTyVarO (PE _ _ _ _ _ pp _ _ _) = pp
-pTy (PE _ _ _ _ _ _ pp _ _) = pp
-
-pValBndr (PE _ _ _ _ _ _ _ pp _) = pp
-pOcc (PE _ _ _ _ _ _ _ _ pp) = pp
-\end{code}