diff options
| author | Vincent Laporte | 2020-08-11 10:34:43 +0200 |
|---|---|---|
| committer | Vincent Laporte | 2020-08-11 10:34:43 +0200 |
| commit | 873130ae0e8f6079388f4be8259cd893f314e6d5 (patch) | |
| tree | 7e2ac6718a3e953754cec25db7b7c2a903c2d9a3 /plugins | |
| parent | 83ca3cb2e715b66e04987048ed6e4af1f7400d89 (diff) | |
| parent | 74932ad2ff431f49370d8bb0f730a588b192b484 (diff) | |
Merge PR #12815: [micromega] Fix bug#12790
Reviewed-by: vbgl
Diffstat (limited to 'plugins')
| -rw-r--r-- | plugins/micromega/certificate.ml | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/plugins/micromega/certificate.ml b/plugins/micromega/certificate.ml index 9eeba614c7..148c1772bf 100644 --- a/plugins/micromega/certificate.ml +++ b/plugins/micromega/certificate.ml @@ -1020,10 +1020,11 @@ let lia (can_enum : bool) (prfdepth : int) sys = p) sys end; + let bnd1 = bound_monomials sys in let sys = subst sys in - let bnd = bound_monomials sys in + let bnd2 = bound_monomials sys in (* To deal with non-linear monomials *) - let sys = bnd @ saturate_by_linear_equalities sys @ sys in + let sys = bnd1 @ bnd2 @ saturate_by_linear_equalities sys @ sys in let sys' = List.map (fun ((p, o), prf) -> (cstr_of_poly (p, o), prf)) sys in xlia (List.map fst sys) can_enum reduction_equations sys' |