From 1457d6a431755627e3b52eaf74ddd09c641a9fe3 Mon Sep 17 00:00:00 2001
From: barras <barras@85f007b7-540e-0410-9357-904b9bb8a0f7>
Date: Wed, 20 Oct 2004 13:48:09 +0000
Subject: 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
---
 kernel/univ.ml | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'kernel')

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)
-- 
cgit v1.2.3