diff options
| author | herbelin | 2004-03-02 09:13:39 +0000 |
|---|---|---|
| committer | herbelin | 2004-03-02 09:13:39 +0000 |
| commit | debb95371036f93504cfd49dc74839a9c7ed604e (patch) | |
| tree | 804938a0fcf4d6299bb0d6ae4315a64c08825bc6 /interp/genarg.ml | |
| parent | 26d73ca5440e45d7832935876fa8acdea6277df5 (diff) | |
Ajout d'une entrée hyp de type HypArgType pour parser et interpréter les noms d'hypothèses
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@5419 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'interp/genarg.ml')
| -rw-r--r-- | interp/genarg.ml | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/interp/genarg.ml b/interp/genarg.ml index 4ef21df452..d4df7de863 100644 --- a/interp/genarg.ml +++ b/interp/genarg.ml @@ -26,6 +26,7 @@ type argument_type = | PreIdentArgType | IntroPatternArgType | IdentArgType + | HypArgType | RefArgType (* Specific types *) | SortArgType @@ -115,6 +116,10 @@ let rawwit_ident = IdentArgType let globwit_ident = IdentArgType let wit_ident = IdentArgType +let rawwit_var = HypArgType +let globwit_var = HypArgType +let wit_var = HypArgType + let rawwit_ref = RefArgType let globwit_ref = RefArgType let wit_ref = RefArgType |