let pexists (v,_ty,p) = let v' = fresh_var v in let p = subst_in_predicate v (Tvar v') p in Pexists(v', p)