diff options
| author | Pierre-Marie Pédrot | 2015-12-24 17:55:25 +0100 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2015-12-24 18:24:34 +0100 |
| commit | daa7cb065a238c7d4ee394e00315d66d023e5259 (patch) | |
| tree | d50643d775bca154f7ea422786b6d835e48d09fa /tactics/tacsubst.ml | |
| parent | f33fc85b1dd2f4994dc85b0943fe503ace2cc5ff (diff) | |
Removing auto from the tactic AST.
Diffstat (limited to 'tactics/tacsubst.ml')
| -rw-r--r-- | tactics/tacsubst.ml | 4 |
1 files changed, 0 insertions, 4 deletions
diff --git a/tactics/tacsubst.ml b/tactics/tacsubst.ml index 0c96653626..fdf65292a1 100644 --- a/tactics/tacsubst.ml +++ b/tactics/tacsubst.ml @@ -154,10 +154,6 @@ let rec subst_atomic subst (t:glob_atomic_tactic_expr) = match t with | TacLetTac (id,c,clp,b,eqpat) -> TacLetTac (id,subst_glob_constr subst c,clp,b,eqpat) - (* Automation tactics *) - | TacTrivial (d,lems,l) -> TacTrivial (d,List.map (subst_glob_constr subst) lems,l) - | TacAuto (d,n,lems,l) -> TacAuto (d,n,List.map (subst_glob_constr subst) lems,l) - (* Derived basic tactics *) | TacInductionDestruct (isrec,ev,(l,el)) -> let l' = List.map (fun (c,ids,cls) -> |