diff options
| author |  Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2014-09-30 09:50:07 +0200 |
|---|---|---|
| committer | Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2014-09-30 10:02:47 +0200 |
| commit | a1be9ce30ed0c59d3cd8651ff0c624a24a6d3fc9 (patch) | |
| tree | a2d0ce66634899dd71d5abb8e525cf1a7ebad7cb /grammar/q_coqast.ml4 | |
| parent | 538b77dbb3b7799dc4d2e18033fc4fbf2eb26f7f (diff) | |
Seeing IntroWildcard as an action intro pattern rather than as a naming pattern
(the action is "clear").
Added subst_intropattern which was missing since the introduction of
ApplyOn intro patterns.
Still to do: make "intros _ ?id" working without interferences when
"id" is precisely the internal name used for hypotheses to discard.
Diffstat (limited to 'grammar/q_coqast.ml4')
| -rw-r--r-- | grammar/q_coqast.ml4 | 1 |
1 files changed, 0 insertions, 1 deletions
diff --git a/grammar/q_coqast.ml4 b/grammar/q_coqast.ml4 index 25d4c0b23..1eadf7dfd 100644 --- a/grammar/q_coqast.ml4 +++ b/grammar/q_coqast.ml4 @@ -62,7 +62,6 @@ let mlexpr_of_intro_pattern_disjunctive = function _ -> failwith "mlexpr_of_intro_pattern_disjunctive: TODO" let mlexpr_of_intro_pattern_naming = function - | Misctypes.IntroWildcard -> <:expr< Misctypes.IntroWildcard >> | Misctypes.IntroAnonymous -> <:expr< Misctypes.IntroAnonymous >> | Misctypes.IntroFresh id -> <:expr< Misctypes.IntroFresh (mlexpr_of_ident $dloc$ id) >> | Misctypes.IntroIdentifier id -> |