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.ml | |
| 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.ml')
| -rw-r--r-- | kernel/names.ml | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/kernel/names.ml b/kernel/names.ml index 811672ba3d..3aa20400a1 100644 --- a/kernel/names.ml +++ b/kernel/names.ml @@ -314,7 +314,8 @@ module Spset = Set.Make(SpOrdered) module Sppred = Predicate.Make(SpOrdered) module Spmap = Map.Make(SpOrdered) -(* Special references for inductive objects *) +(*s********************************************************************) +(* type of global reference *) type variable = section_path type constant = section_path @@ -322,6 +323,12 @@ 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 of name objects *) module Hname = Hashcons.Make( struct |