diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2002-02-01 22:08:39 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2002-02-01 22:08:39 +0000 |
| commit | 6e78a98aaa51df2975595a6adcbe263febbccadc (patch) | |
| tree | c37ceecbc5fc2438f60a64e5e31b3eb87a780f6a /parsing | |
| 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 'parsing')
| -rw-r--r-- | parsing/g_tactic.ml4 | 13 |
1 files changed, 11 insertions, 2 deletions
diff --git a/parsing/g_tactic.ml4 b/parsing/g_tactic.ml4 index 4d0a80bdd..5c1199550 100644 --- a/parsing/g_tactic.ml4 +++ b/parsing/g_tactic.ml4 @@ -317,11 +317,18 @@ GEXTEND Gram | Coqast.Node(_,"COMMAND",[c]) -> coerce_to_var c | _ -> assert false in <:ast< (TrueCut $t $id) >> - | IDENT "Assert"; c = constrarg; ":="; t = constrarg -> + | IDENT "Assert"; c = constrarg; ":="; b = constrarg -> let id = match c with | Coqast.Node(_,"COMMAND",[c]) -> coerce_to_var c | _ -> assert false in - <:ast< (Forward $t $id) >> + <:ast< (Forward "HideBody" $b $id) >> + | IDENT "Pose"; c = constrarg; ":="; b = constrarg -> + let id = match c with + | Coqast.Node(_,"COMMAND",[c]) -> coerce_to_var c + | _ -> assert false in + <:ast< (Forward "KeepBody" $b $id) >> + | IDENT "Pose"; b = constrarg -> + <:ast< (Forward "KeepBody" $b) >> | IDENT "Specialize"; n = pure_numarg; lcb = constrarg_binding_list -> <:ast< (Specialize $n ($LIST $lcb))>> | IDENT "Specialize"; lcb = constrarg_binding_list -> @@ -339,6 +346,8 @@ GEXTEND Gram <:ast< (ClearBody (CLAUSE ($LIST $l))) >> | IDENT "Move"; id1 = identarg; IDENT "after"; id2 = identarg -> <:ast< (MoveDep $id1 $id2) >> + | IDENT "Rename"; id1 = identarg; IDENT "into"; id2 = identarg -> + <:ast< (Rename $id1 $id2) >> (*To do: put Abstract in Refiner*) | IDENT "Abstract"; tc = tactic_expr -> <:ast< (ABSTRACT (TACTIC $tc)) >> | IDENT "Abstract"; tc = tactic_expr; "using"; s=identarg -> |