diff options
| author |  Arnaud Spiwack <arnaud@spiwack.net> | 2014-07-29 14:07:42 +0200 |
|---|---|---|
| committer | Arnaud Spiwack <arnaud@spiwack.net> | 2014-07-29 17:16:29 +0200 |
| commit | cf04daec997ae431b14dd3a3bbf0db22013b3c71 (patch) | |
| tree | 4c200f515b5dbb061133f38d7908157be400864d /parsing/g_ltac.ml4 | |
| parent | 9e8316d8fd6a13966c21ef77d5fcba270bc9a32a (diff) | |
Untyped terms in tactic: function [type_term c] to give a typed version of [c].
Diffstat (limited to 'parsing/g_ltac.ml4')
| -rw-r--r-- | parsing/g_ltac.ml4 | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/parsing/g_ltac.ml4 b/parsing/g_ltac.ml4 index 8b1a1979f..4be4aa4ae 100644 --- a/parsing/g_ltac.ml4 +++ b/parsing/g_ltac.ml4 @@ -138,7 +138,8 @@ GEXTEND Gram ; may_eval_arg: [ [ c = constr_eval -> ConstrMayEval c - | IDENT "fresh"; l = LIST0 fresh_id -> TacFreshId l ] ] + | IDENT "fresh"; l = LIST0 fresh_id -> TacFreshId l + | IDENT "type_term"; c=Constr.constr -> TacPretype c ] ] ; fresh_id: [ [ s = STRING -> ArgArg s | id = ident -> ArgVar (!@loc,id) ] ] |