diff options
| -rw-r--r-- | checker/declarations.ml | 6 | ||||
| -rw-r--r-- | kernel/mod_subst.ml | 6 | ||||
| -rw-r--r-- | kernel/names.ml | 2 | ||||
| -rw-r--r-- | kernel/names.mli | 4 |
4 files changed, 5 insertions, 13 deletions
diff --git a/checker/declarations.ml b/checker/declarations.ml index 69dd261308..335aba520d 100644 --- a/checker/declarations.ml +++ b/checker/declarations.ml @@ -59,12 +59,6 @@ type delta_resolver = Deltamap.t let empty_delta_resolver = Deltamap.empty -module MBImap = Map.Make - (struct - type t = MBId.t - let compare = Pervasives.compare - end) - module Umap = struct type 'a t = 'a MPmap.t * 'a MBImap.t let empty = MPmap.empty, MBImap.empty 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 } *) |