diff options
| author |  delahaye <delahaye@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2001-04-24 19:48:47 +0000 |
|---|---|---|
| committer | delahaye <delahaye@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2001-04-24 19:48:47 +0000 |
| commit | ebf2a25f97c3ffc3376967d2841fbd681e6d69c2 (patch) | |
| tree | 0fad08b05e57a9c57911a6cf27649bb9be8da07c /parsing | |
| parent | 60e0c5e7018fd6532456c2c1909d537813469c85 (diff) | |
Les clauses de Rec doivent prendre des tactic_atom's
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@1701 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'parsing')
| -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 e32a649f0..bab0c5afa 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: |