diff options
| author |  delahaye <delahaye@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2001-02-07 16:24:53 +0000 |
|---|---|---|
| committer | delahaye <delahaye@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2001-02-07 16:24:53 +0000 |
| commit | f493b6f2b103dd4e2d0b86acae2fcc7a2b76bdcf (patch) | |
| tree | 8e0f78d2e7a5eb74730374e635af9f3dcb70c1ca /parsing | |
| parent | 07947f6e3b3327f10f99d02227635eaedf615733 (diff) | |
Modif pour les patterns de sous-termes
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@1347 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'parsing')
| -rw-r--r-- | parsing/g_tactic.ml4 | 7 |
1 files changed, 1 insertions, 6 deletions
diff --git a/parsing/g_tactic.ml4 b/parsing/g_tactic.ml4 index 4daad6f5e..f4b0e01e5 100644 --- a/parsing/g_tactic.ml4 +++ b/parsing/g_tactic.ml4 @@ -231,12 +231,7 @@ GEXTEND Gram <:ast< (RECCLAUSE $name (FUNVAR ($LIST $it)) $body) >> ] ] ; match_pattern: - [ [ id = constrarg; "["; pc = constrarg; "]" -> - (match id with - | Coqast.Node(_,"COMMAND",[Coqast.Nvar(_,s)]) -> - <:ast< (SUBTERM ($VAR $s) $pc) >> - | _ -> - errorlabstrm "Gram.match_pattern" [<'sTR "Not a correct SUBTERM">]) + [ [ id = identarg; "["; pc = constrarg; "]" -> <:ast< (SUBTERM $id $pc) >> | "["; pc = constrarg; "]" -> <:ast< (SUBTERM $pc) >> | pc = constrarg -> <:ast< (TERM $pc) >> ] ] ; |