diff options
author | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2002-11-24 22:22:59 +0000 |
---|---|---|
committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2002-11-24 22:22:59 +0000 |
commit | e3038e0822548b90792903ccb460a0e61f1cadaf (patch) | |
tree | 30e5ebed674e6e0e985295f0bd887d88aed65f34 /library/libnames.ml | |
parent | 38c3baf926ce1248be7aca5288810e8c000bb55c (diff) |
Ajout Refmap
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@3266 85f007b7-540e-0410-9357-904b9bb8a0f7
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)) |