let
p_forall x p =
if
p_hasvar [x] p
then
Pforall
(x,p)
else
p