aboutsummaryrefslogtreecommitdiffhomepage
path: root/kernel
diff options
context:
space:
mode:
authorGravatar barras <barras@85f007b7-540e-0410-9357-904b9bb8a0f7>2004-10-20 13:48:09 +0000
committerGravatar barras <barras@85f007b7-540e-0410-9357-904b9bb8a0f7>2004-10-20 13:48:09 +0000
commit1457d6a431755627e3b52eaf74ddd09c641a9fe3 (patch)
tree59bee7179fca0f05b9f9b7343cb8550964ce740e /kernel
parent3c2ea907cd98bbd2c5c2b97bcf3cb5ae9a475e76 (diff)
bug in hashcons fun (List.for_all2 raises exn if given lists of <> lengths)
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@6244 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'kernel')
-rw-r--r--kernel/univ.ml3
1 files changed, 2 insertions, 1 deletions
diff --git a/kernel/univ.ml b/kernel/univ.ml
index b734877a5..9d38c78f5 100644
--- a/kernel/univ.ml
+++ b/kernel/univ.ml
@@ -458,7 +458,8 @@ module Huniv =
match u, v with
| Variable u, Variable v -> u == v
| Max (gel,gtl), Max (gel',gtl') ->
- (List.for_all2 (==) gel gel') && (List.for_all2 (==) gtl gtl')
+ (list_for_all2eq (==) gel gel') &&
+ (list_for_all2eq (==) gtl gtl')
| _ -> false
let hash = Hashtbl.hash
end)