使用Z3进行线性算术查询的性能问题

Question

我正在编写一个静态分析工具，需要对oracle执行一些查询来解决线性整数算术问题。对于我的第一个版本，我在OCaml中实现了Presburger算法的决策程序（为了好玩和利润）。在大型程序上，我的决策程序成为瓶颈，所以我决定转到Z3。

我的第一个结果令人失望，所以我认为我在使用Z3 API做错了。我观察到，在简单的程序中，Z3的分析速度比我天真的自制实现慢100多倍。经过一些微不足道的基准测试后，我认为罪魁祸首是：

let unsat ps =
  let open Z3.Solver in
  let solver = mk_solver ctx None in
  add solver [ps];
  check solver [] <> SATISFIABLE

我使用此功能数百次（大型程序上有数千次）。以ps编码的问题的格式为(not (implies (and X X X X X) Y))，其中连词通常少于10个合取，X和Y是简单的线性不等式。这些问题很容易解决，所以我认为我的性能问题更多地与脚手架代码有关。

我的问题是，如何降低每个unsat函数调用的成本？