diff options
author | letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-04-02 22:08:28 +0000 |
---|---|---|
committer | letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-04-02 22:08:28 +0000 |
commit | 42cbb18f5b0e220a832ccf5db320d90be5ce0c8e (patch) | |
tree | e009842c2be91301343ac1fe23e54b7480ff6736 /kernel | |
parent | 8211140b73a3e1132ab70d8d75d4debc6e48ea4f (diff) |
Minor cleanup concerning Mod_subst.MBImap
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16380 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'kernel')
-rw-r--r-- | kernel/mod_subst.ml | 6 | ||||
-rw-r--r-- | kernel/names.ml | 2 | ||||
-rw-r--r-- | kernel/names.mli | 4 |
3 files changed, 5 insertions, 7 deletions
diff --git a/kernel/mod_subst.ml b/kernel/mod_subst.ml index ed50c6d72..65d2b46d1 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 18f2ef0de..87249dec1 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 96a7dff09..f9fe89cde 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 } *) |