prenex (Forall x p)  = let Prenex quantsp' p' = prenex p
                       in Prenex (QForall x:quantsp') p'
prenex (Forall x p)  = let Prenex quantsp' p' = prenex p
                       in Prenex (QForall x:quantsp') p'
prenex (Forall x p)  = let Prenex quantsp' p' = prenex p
                       in Prenex (QForall x:quantsp') p'