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