From 33a4ccc10f1f697734418d4b0db19df2d7915cbf Mon Sep 17 00:00:00 2001
From: ppedrot
Date: Thu, 31 Oct 2013 15:55:04 +0000
Subject: Fixing Kerpair.hash. Since the beginning, it dit not respect the type
 equality, maybe impeding hashconsing.

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16964 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 kernel/names.ml | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

(limited to 'kernel')

diff --git a/kernel/names.ml b/kernel/names.ml
index d02e0ce07e..e6c5686ed9 100644
--- a/kernel/names.ml
+++ b/kernel/names.ml
@@ -483,10 +483,8 @@ module KerPair = struct
   open Hashset.Combine
 
   let hash = function
-  | Same kn -> combinesmall 1 (KerName.hash kn)
-  | Dual (kn1, kn2) ->
-    let hk = combine (KerName.hash kn1) (KerName.hash kn2) in
-    combinesmall 2 hk
+  | Same kn -> KerName.hash kn
+  | Dual (kn, _) -> KerName.hash kn
 
   module Self_Hashcons =
     struct
-- 
cgit v1.2.3