diff options
| author |  barras <barras@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2004-10-20 13:48:09 +0000 |
|---|---|---|
| committer | barras <barras@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2004-10-20 13:48:09 +0000 |
| commit | 1457d6a431755627e3b52eaf74ddd09c641a9fe3 (patch) | |
| tree | 59bee7179fca0f05b9f9b7343cb8550964ce740e /kernel | |
| parent | 3c2ea907cd98bbd2c5c2b97bcf3cb5ae9a475e76 (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.ml | 3 |
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) |