diff options
author | 2016-04-27 22:13:04 +0200 | |
---|---|---|
committer | 2016-04-27 22:13:04 +0200 | |
commit | 32716cc80cbda47e59e26c920ffb0ab738b0e9c0 (patch) | |
tree | aa30dbcd367b5079f6308f9d9fad0c62b70bc964 /parsing | |
parent | cc3f28467f826506b8eb6e07c3b2db9ffd2ed3ba (diff) |
Revert "In the short term, stronger invariant on the syntax of TacAssert, what"
This reverts commit bde36d4b00185065628324d8ca71994f84eae244.
Diffstat (limited to 'parsing')
-rw-r--r-- | parsing/g_tactic.ml4 | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/parsing/g_tactic.ml4 b/parsing/g_tactic.ml4 index d36399c0d..0c90a8bca 100644 --- a/parsing/g_tactic.ml4 +++ b/parsing/g_tactic.ml4 @@ -483,6 +483,10 @@ GEXTEND Gram [ [ "as"; id = ident -> Names.Name id | -> Names.Anonymous ] ] ; by_tactic: + [ [ "by"; tac = tactic_expr LEVEL "3" -> TacComplete tac + | -> TacId [] ] ] + ; + opt_by_tactic: [ [ "by"; tac = tactic_expr LEVEL "3" -> Some tac | -> None ] ] ; @@ -617,9 +621,9 @@ GEXTEND Gram (* Equality and inversion *) | IDENT "rewrite"; l = LIST1 oriented_rewriter SEP ","; - cl = clause_dft_concl; t=by_tactic -> TacAtom (!@loc, TacRewrite (false,l,cl,t)) + cl = clause_dft_concl; t=opt_by_tactic -> TacAtom (!@loc, TacRewrite (false,l,cl,t)) | IDENT "erewrite"; l = LIST1 oriented_rewriter SEP ","; - cl = clause_dft_concl; t=by_tactic -> TacAtom (!@loc, TacRewrite (true,l,cl,t)) + cl = clause_dft_concl; t=opt_by_tactic -> TacAtom (!@loc, TacRewrite (true,l,cl,t)) | IDENT "dependent"; k = [ IDENT "simple"; IDENT "inversion" -> SimpleInversion | IDENT "inversion" -> FullInversion |