diff options
| author | Chantal Keller <Chantal.Keller@inria.fr> | 2020-05-15 14:07:48 +0200 |
|---|---|---|
| committer | Chantal Keller <Chantal.Keller@inria.fr> | 2020-05-15 14:07:48 +0200 |
| commit | cef01e0069b8e6a26a74f3c6bb825a9a3c46ef60 (patch) | |
| tree | 4e318f7bfb204beb6b176224cfac42634164fa4f | |
| parent | 80a54a0e1974729d4756d2cc8483a2548c8dd2d0 (diff) | |
| download | smtcoq-cef01e0069b8e6a26a74f3c6bb825a9a3c46ef60.tar.gz smtcoq-cef01e0069b8e6a26a74f3c6bb825a9a3c46ef60.zip | |
More precise call to Micromega
| -rw-r--r-- | src/lia/lia.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/lia/lia.ml b/src/lia/lia.ml index 53ee55d..4444816 100644 --- a/src/lia/lia.ml +++ b/src/lia/lia.ml @@ -197,7 +197,7 @@ let smt_clause_to_coq_micromega_formula tbl cl = (* val tauto_lia : Mc.z formula -> Certificate.Mc.zArithProof list option *) let tauto_lia ff = let prover = linear_Z in - let cnf_ff,_ = cnf Mc.negate Mc.normalise Mc.zunsat Mc.zdeduce ff in + let cnf_ff,_ = Structures.Micromega_plugin_Coq_micromega.cnf Mc.negate Mc.normalise Mc.zunsat Mc.zdeduce ff in match witness_list_tags [prover] cnf_ff with | None -> None | Some l -> Some (List.map fst l) |