diff options
author | 2001-01-27 17:27:31 +0000 | |
---|---|---|
committer | 2001-01-27 17:27:31 +0000 | |
commit | b84549caa97b373e5ccc5b6ad81592d0c2edb0bf (patch) | |
tree | 421ffd0d18753d2258fe76595d25974da2f957a8 /kernel | |
parent | 9c7027a1f668d4825a55b564c780651b2e7c8719 (diff) |
Ajout alias mutual_inductive_path = section_path
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@1282 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'kernel')
-rw-r--r-- | kernel/names.ml | 1 | ||||
-rw-r--r-- | kernel/names.mli | 1 |
2 files changed, 2 insertions, 0 deletions
diff --git a/kernel/names.ml b/kernel/names.ml index 4152ec39e..fa95bc203 100644 --- a/kernel/names.ml +++ b/kernel/names.ml @@ -366,6 +366,7 @@ type variable_path = section_path type constant_path = section_path type inductive_path = section_path * int type constructor_path = inductive_path * int +type mutual_inductive_path = section_path (* Hash-consing of identifier *) module Hident = Hashcons.Make( diff --git a/kernel/names.mli b/kernel/names.mli index 770bfe504..bd3d0e590 100644 --- a/kernel/names.mli +++ b/kernel/names.mli @@ -113,6 +113,7 @@ type variable_path = section_path type constant_path = section_path type inductive_path = section_path * int type constructor_path = inductive_path * int +type mutual_inductive_path = section_path (* Hash-consing *) val hcons_names : unit -> |