diff options
| author | herbelin | 2002-02-01 22:08:39 +0000 |
|---|---|---|
| committer | herbelin | 2002-02-01 22:08:39 +0000 |
| commit | 6e78a98aaa51df2975595a6adcbe263febbccadc (patch) | |
| tree | c37ceecbc5fc2438f60a64e5e31b3eb87a780f6a /syntax | |
| parent | 22656ee48b22b4b34024cd4bf262d0de279540f9 (diff) | |
Ajout tactiques Rename et Pose; modifications pour Inversion
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@2449 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'syntax')
| -rw-r--r-- | syntax/PPTactic.v | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/syntax/PPTactic.v b/syntax/PPTactic.v index a149b0f070..517c522f4e 100644 --- a/syntax/PPTactic.v +++ b/syntax/PPTactic.v @@ -259,7 +259,9 @@ Syntax tactic | cut [<<(Cut $C)>>] -> ["Cut " $C] | truecutid [<<(TrueCut $C $id)>>] -> ["Assert " $id " : " $C] | truecut [<<(TrueCut $C)>>] -> ["Assert " $C] - | forward [<<(Forward $C $id)>>] -> ["Assert " $id " := " $C] + | forward [<<(Forward _ $C $id)>>] -> ["Assert " $id " := " $C] + | pose_named [<<(Forward "KeepBody" $C $id)>>] -> ["Pose " $id " := " $C] + | pose_anon [<<(Forward "KeepBody" $C)>>] -> ["Pose " $C] | lettac_cons [<<(LetTac $id $c (LETPATTERNS $p ($LIST $pl)))>>] -> ["LetTac" [1 1] $id ":=" $c [1 1] "in" [1 1] (LETPATTERNS $p ($LIST $pl))] |