diff options
| author | ppedrot | 2013-06-27 16:51:52 +0000 |
|---|---|---|
| committer | ppedrot | 2013-06-27 16:51:52 +0000 |
| commit | a1596ac8127071db6c507909bd9723edc720542d (patch) | |
| tree | 854a8532246222a4fcff6818a1cfc7972155c86f /grammar | |
| parent | 67a755713eaabf37f4d8e5fd85b4fb04e316938a (diff) | |
Getting rid of IntroPatternArgType.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16610 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'grammar')
| -rw-r--r-- | grammar/argextend.ml4 | 1 | ||||
| -rw-r--r-- | grammar/q_coqast.ml4 | 1 |
2 files changed, 0 insertions, 2 deletions
diff --git a/grammar/argextend.ml4 b/grammar/argextend.ml4 index fd18dfdf1f..57cde5c8cd 100644 --- a/grammar/argextend.ml4 +++ b/grammar/argextend.ml4 @@ -34,7 +34,6 @@ let mk_extraarg s = let rec make_wit loc = function | IntOrVarArgType -> <:expr< Constrarg.wit_int_or_var >> - | IntroPatternArgType -> <:expr< Constrarg.wit_intro_pattern >> | IdentArgType b -> <:expr< Constrarg.wit_ident_gen $mlexpr_of_bool b$ >> | VarArgType -> <:expr< Constrarg.wit_var >> | RefArgType -> <:expr< Constrarg.wit_ref >> diff --git a/grammar/q_coqast.ml4 b/grammar/q_coqast.ml4 index 65aeef11e1..acb6c8347a 100644 --- a/grammar/q_coqast.ml4 +++ b/grammar/q_coqast.ml4 @@ -203,7 +203,6 @@ let mlexpr_of_red_expr = function let rec mlexpr_of_argtype loc = function | Genarg.IntOrVarArgType -> <:expr< Genarg.IntOrVarArgType >> | Genarg.RefArgType -> <:expr< Genarg.RefArgType >> - | Genarg.IntroPatternArgType -> <:expr< Genarg.IntroPatternArgType >> | Genarg.IdentArgType b -> <:expr< Genarg.IdentArgType $mlexpr_of_bool b$ >> | Genarg.VarArgType -> <:expr< Genarg.VarArgType >> | Genarg.QuantHypArgType -> <:expr< Genarg.QuantHypArgType >> |