diff options
| -rw-r--r-- | parsing/g_tactic.ml4 | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/parsing/g_tactic.ml4 b/parsing/g_tactic.ml4 index 7cdf643980..621314137b 100644 --- a/parsing/g_tactic.ml4 +++ b/parsing/g_tactic.ml4 @@ -294,6 +294,10 @@ GEXTEND Gram [ [ "()" -> <:ast< (VOID) >> | n = pure_numarg -> n | id = identarg -> id + | "?" -> <:ast< (COMMAND (ISEVAR)) >> + | "?"; n = Prim.number -> <:ast< (COMMAND (META $n)) >> + | IDENT "Eval"; rtc = Tactic.red_tactic; "in"; c = Constr.constr -> + <:ast< (COMMAND (EVAL $c (REDEXP $rtc))) >> | "'"; c = constrarg -> (match c with | Coqast.Node(_,"COMMAND",[Coqast.Nvar(_,s)]) -> <:ast<($VAR $s)>> |