diff options
| author | herbelin | 2000-12-06 11:41:18 +0000 |
|---|---|---|
| committer | herbelin | 2000-12-06 11:41:18 +0000 |
| commit | 939668713c09820b39436029e20bf69d0452bb29 (patch) | |
| tree | 7f08409a707b969d38f999da65040f0a9686e7f9 | |
| parent | 10efe99cd5d19ad5e643b50234e38a8384f0657f (diff) | |
Extension de la syntaxe de LetTac
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@1068 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | parsing/g_tactic.ml4 | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/parsing/g_tactic.ml4 b/parsing/g_tactic.ml4 index 3f01b81ff4..134287b3ed 100644 --- a/parsing/g_tactic.ml4 +++ b/parsing/g_tactic.ml4 @@ -75,8 +75,9 @@ GEXTEND Gram | IDENT "Goal" -> <:ast< (CCLPATTERN) >> | id = identarg -> <:ast< (HYPPATTERN $id) >> ] ] ; - ne_pattern_hyp_list: - [ [ l = LIST1 pattern_occ_hyp -> l ] ] + clause_pattern: + [ [ "in"; l = LIST1 pattern_occ_hyp -> <:ast< (LETPATTERNS ($LIST $l)) >> + | -> <:ast< (LETPATTERNS) >> ] ] ; one_intropattern: [ [ p= ne_intropattern -> <:ast< (INTROPATTERN $p)>> ]] @@ -397,9 +398,8 @@ GEXTEND Gram <:ast< (Generalize ($LIST $lc)) >> | IDENT "Generalize"; IDENT "Dependent"; c = constrarg -> <:ast< (GeneralizeDep $c) >> - | IDENT "LetTac"; s = identarg; ":="; c = constrarg; "in"; - l = ne_pattern_hyp_list -> - <:ast< (LetTac $s $c (LETPATTERNS ($LIST $l))) >> + | IDENT "LetTac"; s = identarg; ":="; c = constrarg; p = clause_pattern-> + <:ast< (LetTac $s $c $p) >> | IDENT "LApply"; c = constrarg -> <:ast< (CutAndApply $c) >> | IDENT "Clear"; l = ne_identarg_list -> <:ast< (Clear (CLAUSE ($LIST $l))) >> |