diff options
Diffstat (limited to 'library/libnames.ml')
| -rw-r--r-- | library/libnames.ml | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/library/libnames.ml b/library/libnames.ml index 79acb7231..dae3f1140 100644 --- a/library/libnames.ml +++ b/library/libnames.ml @@ -45,6 +45,14 @@ let constr_of_reference = function | ConstructRef sp -> mkConstruct sp | IndRef sp -> mkInd sp +module RefOrdered = + struct + type t = global_reference + let compare = Pervasives.compare + end + +module Refmap = Map.Make(RefOrdered) + (**********************************************) let pr_dirpath sl = (str (string_of_dirpath sl)) |