diff options
| -rw-r--r-- | parsing/g_tactic.ml4 | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/parsing/g_tactic.ml4 b/parsing/g_tactic.ml4 index e32a649f05..bab0c5afa0 100644 --- a/parsing/g_tactic.ml4 +++ b/parsing/g_tactic.ml4 @@ -243,7 +243,7 @@ GEXTEND Gram | _ -> errorlabstrm "Gram.let_clause" [<'sTR "Not a COMMAND">]) ] ] ; rec_clause: - [ [ name = identarg; it = LIST1 input_fun; "->"; body = tactic_expr -> + [ [ name = identarg; it = LIST1 input_fun; "->"; body = tactic_atom -> <:ast< (RECCLAUSE $name (FUNVAR ($LIST $it)) $body) >> ] ] ; match_pattern: |