diff options
| author | ppedrot | 2013-10-31 15:55:04 +0000 |
|---|---|---|
| committer | ppedrot | 2013-10-31 15:55:04 +0000 |
| commit | 33a4ccc10f1f697734418d4b0db19df2d7915cbf (patch) | |
| tree | 9cf74dd3e2641690d6957628a2d0001159aeb328 /kernel/names.ml | |
| parent | a46165247a22d9f1015dea81a17ee2f5c2ee6099 (diff) | |
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
Diffstat (limited to 'kernel/names.ml')
| -rw-r--r-- | kernel/names.ml | 6 |
1 files changed, 2 insertions, 4 deletions
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 |