diff options
| author | herbelin | 2001-10-12 09:37:58 +0000 |
|---|---|---|
| committer | herbelin | 2001-10-12 09:37:58 +0000 |
| commit | ade8d5b089ee10d3f17cebcbc883cbc6c7343539 (patch) | |
| tree | cc873bc984f2d6a001a28d8fe77452a60bbcc155 /kernel/names.mli | |
| parent | 7030dc49d4ddc107d131b2f199a5002a5d8e432e (diff) | |
Déplacement de global_reference dans Names pour pouvoir lier Nametab à grammar.cma
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@2112 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'kernel/names.mli')
| -rw-r--r-- | kernel/names.mli | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/kernel/names.mli b/kernel/names.mli index cdf8c8c83a..a50dc28c4d 100644 --- a/kernel/names.mli +++ b/kernel/names.mli @@ -111,13 +111,21 @@ module Spset : Set.S with type elt = section_path module Sppred : Predicate.S with type elt = section_path module Spmap : Map.S with type key = section_path -(*s Specific paths for declarations *) +(*s********************************************************************) +(* type of global reference *) + type variable = section_path type constant = section_path type inductive = section_path * int type constructor = inductive * int type mutual_inductive = section_path +type global_reference = + | VarRef of section_path + | ConstRef of constant + | IndRef of inductive + | ConstructRef of constructor + (* Hash-consing *) val hcons_names : unit -> (section_path -> section_path) * (section_path -> section_path) * |