diff options
| author | letouzey | 2013-10-23 22:17:33 +0000 |
|---|---|---|
| committer | letouzey | 2013-10-23 22:17:33 +0000 |
| commit | bb5e6d7c39211349d460db0b61b2caf3d099d5b6 (patch) | |
| tree | e14b120edc5fedcb1a0a114218d1cdaa0f887ed4 /proofs | |
| parent | 4e20ed9e5c1608226f0d736df10bb82fc402e7a2 (diff) | |
cList: a few alternative to hashtbl-based uniquize, distinct, subset
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16924 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'proofs')
| -rw-r--r-- | proofs/logic.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/proofs/logic.ml b/proofs/logic.ml index f883317503..5a29c3b0ee 100644 --- a/proofs/logic.ml +++ b/proofs/logic.ml @@ -329,7 +329,7 @@ let collect_meta_variables c = List.rev (collrec false [] c) let check_meta_variables c = - if not (List.distinct (collect_meta_variables c)) then + if not (List.distinct_f Int.compare (collect_meta_variables c)) then raise (RefinerError (NonLinearProof c)) let check_conv_leq_goal env sigma arg ty conclty = |