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