diff options
Diffstat (limited to 'proofs/clenv.ml')
| -rw-r--r-- | proofs/clenv.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/proofs/clenv.ml b/proofs/clenv.ml index b75c675297..0df882b2b3 100644 --- a/proofs/clenv.ml +++ b/proofs/clenv.ml @@ -379,7 +379,7 @@ let clenv_independent clenv = List.filter (fun mv -> not (Metaset.mem mv deps)) mvs let check_bindings bl = - match List.duplicates (List.map pi2 bl) with + match List.duplicates Pervasives.(=) (List.map pi2 bl) with (* FIXME *) | NamedHyp s :: _ -> errorlabstrm "" (str "The variable " ++ pr_id s ++ |