let p_forall_vars vars (p: pred) : pred =
    let vars, p = fresh_vars_in_pred vars p in
      List.fold_left (fun p v -> p_forall v p) p vars