From ef64634b31a4cd999cd08636adbf117f81889fb1 Mon Sep 17 00:00:00 2001
From: letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7>
Date: Tue, 19 Feb 2013 16:55:18 +0000
Subject: Names: revised representation of constants and mutual_inductive

 - a module KernelPair for improving sharing between constant and mind
 - shorter representation than a pair when possible
 - exports comparisions on constant and mind and ...
 - a kn_equal function instead of Int.equal (kn_ord ...) 0

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16217 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 library/nametab.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'library/nametab.ml')

diff --git a/library/nametab.ml b/library/nametab.ml
index 9e0e38745..0d326a49c 100644
--- a/library/nametab.ml
+++ b/library/nametab.ml
@@ -284,7 +284,7 @@ end
 module KnEqual =
 struct
   type t = kernel_name
-  let equal kn1 kn2 = Int.equal (kn_ord kn1 kn2) 0
+  let equal = Names.kn_equal
 end
 
 module MPEqual =
-- 
cgit v1.2.3