From 42cbb18f5b0e220a832ccf5db320d90be5ce0c8e Mon Sep 17 00:00:00 2001
From: letouzey
Date: Tue, 2 Apr 2013 22:08:28 +0000
Subject: Minor cleanup concerning Mod_subst.MBImap

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16380 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 kernel/mod_subst.ml | 6 ------
 kernel/names.ml     | 2 ++
 kernel/names.mli    | 4 +++-
 3 files changed, 5 insertions(+), 7 deletions(-)

(limited to 'kernel')

diff --git a/kernel/mod_subst.ml b/kernel/mod_subst.ml
index ed50c6d725..65d2b46d11 100644
--- a/kernel/mod_subst.ml
+++ b/kernel/mod_subst.ml
@@ -52,12 +52,6 @@ type delta_resolver = Deltamap.t
 
 let empty_delta_resolver = Deltamap.empty
 
-module MBImap = Map.Make
-  (struct
-    type t = MBId.t
-    let compare = MBId.compare
-   end)
-
 module Umap = struct
   type 'a t = 'a MPmap.t * 'a MBImap.t
   let empty = MPmap.empty, MBImap.empty
diff --git a/kernel/names.ml b/kernel/names.ml
index 18f2ef0dee..87249dec10 100644
--- a/kernel/names.ml
+++ b/kernel/names.ml
@@ -233,6 +233,8 @@ struct
 
 end
 
+module MBImap = Map.Make(MBId)
+
 (** {6 Names of structure elements } *)
 
 module Label =
diff --git a/kernel/names.mli b/kernel/names.mli
index 96a7dff099..f9fe89cde2 100644
--- a/kernel/names.mli
+++ b/kernel/names.mli
@@ -75,6 +75,8 @@ type name = Name.t = Name of Id.t | Anonymous
 type variable = Id.t
 type module_ident = Id.t
 
+module ModIdmap : Map.S with type key = module_ident
+
 (** {6 Directory paths = section names paths } *)
 
 module DirPath :
@@ -174,7 +176,7 @@ sig
 
 end
 
-module ModIdmap : Map.S with type key = module_ident
+module MBImap : Map.S with type key = MBId.t
 
 (** {6 The module part of the kernel name } *)
 
-- 
cgit v1.2.3