diff options
| author | Vincent Laporte | 2020-03-04 13:02:42 +0100 |
|---|---|---|
| committer | Vincent Laporte | 2020-03-04 13:02:42 +0100 |
| commit | cfecd54efac7191690f37af1edcc91389ae180e1 (patch) | |
| tree | 329b252c021704c0e800c792655f9ad2eb9db0e5 /plugins/micromega/polynomial.ml | |
| parent | 89f111f2e15d8cab61495a419f0c9f7ae95e086a (diff) | |
| parent | b389b6e3b6754f9f12190bfd2c0e7f68783b582f (diff) | |
Merge PR #11429: [zify] several efficiency enhancements
Reviewed-by: vbgl
Diffstat (limited to 'plugins/micromega/polynomial.ml')
| -rw-r--r-- | plugins/micromega/polynomial.ml | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/plugins/micromega/polynomial.ml b/plugins/micromega/polynomial.ml index b20213979b..f83b36d847 100644 --- a/plugins/micromega/polynomial.ml +++ b/plugins/micromega/polynomial.ml @@ -864,6 +864,12 @@ end module WithProof = struct type t = (LinPoly.t * op) * ProofFormat.prf_rule + (* The comparison ignores proofs on purpose *) + let compare : t -> t -> int = + fun ((lp1, o1), _) ((lp2, o2), _) -> + let c = Vect.compare lp1 lp2 in + if c = 0 then compare o1 o2 else c + let annot s (p, prf) = (p, ProofFormat.Annot (s, prf)) let output o ((lp, op), prf) = |