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 /tactics/tacsubst.ml | |
| 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 'tactics/tacsubst.ml')
| -rw-r--r-- | tactics/tacsubst.ml | 1 |
1 files changed, 0 insertions, 1 deletions
diff --git a/tactics/tacsubst.ml b/tactics/tacsubst.ml index d0894d76f..d8ff931d3 100644 --- a/tactics/tacsubst.ml +++ b/tactics/tacsubst.ml @@ -181,7 +181,6 @@ let rec subst_atomic subst (t:glob_atomic_tactic_expr) = match t with (* Constructors *) | TacSplit (ev,bll) -> TacSplit (ev,List.map (subst_bindings subst) bll) - | TacConstructor (ev,n,bl) -> TacConstructor (ev,n,subst_bindings subst bl) (* Conversion *) | TacReduce (r,cl) -> TacReduce (subst_redexp subst r, cl) |