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