diff options
| author |  Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2014-08-07 00:54:18 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2014-08-07 01:23:02 +0200 |
| commit | 27a7d7133f83cb95eff90df4338a47b0d6681aa0 (patch) | |
| tree | f13ae6f466e68fcc8355e51c93799932615e1768 /parsing | |
| parent | 07a9afbdf9561402897728963d40de80b9912bea (diff) | |
Instead of relying on a trick to make the constructor tactic parse, put
all the tactics using the constructor keyword in one entry. This has the
side-effect to also remove the other variant of constructor from the AST.
I also needed to hack around the "tauto" tactic to make it work, by
calling directly the ML tactic through a TacExtend node. This may be
generalized to get rid of the intermingled dependencies between this
tactic and the infamous Ltac quotation mechanism.
Diffstat (limited to 'parsing')
| -rw-r--r-- | parsing/g_tactic.ml4 | 4 |
1 files changed, 0 insertions, 4 deletions
diff --git a/parsing/g_tactic.ml4 b/parsing/g_tactic.ml4 index c32ade38c..b9eaf53ee 100644 --- a/parsing/g_tactic.ml4 +++ b/parsing/g_tactic.ml4 @@ -645,10 +645,6 @@ GEXTEND Gram | "exists"; bll = opt_bindings -> TacSplit (false,bll) | IDENT "eexists"; bll = opt_bindings -> TacSplit (true,bll) - | IDENT "constructor"; n = nat_or_var; l = with_bindings -> - TacConstructor (false,n,l) - | IDENT "econstructor"; n = nat_or_var; l = with_bindings -> - TacConstructor (true,n,l) (* Equivalence relations *) | IDENT "symmetry"; "in"; cl = in_clause -> TacSymmetry cl |