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/tacintern.ml | |
| parent | f33fc85b1dd2f4994dc85b0943fe503ace2cc5ff (diff) | |
Removing auto from the tactic AST.
Diffstat (limited to 'tactics/tacintern.ml')
| -rw-r--r-- | tactics/tacintern.ml | 6 |
1 files changed, 0 insertions, 6 deletions
diff --git a/tactics/tacintern.ml b/tactics/tacintern.ml index 5e725e182d..ecce4a0ff3 100644 --- a/tactics/tacintern.ml +++ b/tactics/tacintern.ml @@ -517,12 +517,6 @@ let rec intern_atomic lf ist x = (clause_app (intern_hyp_location ist) cls),b, (Option.map (intern_intro_pattern_naming_loc lf ist) eqpat)) - (* Automation tactics *) - | TacTrivial (d,lems,l) -> TacTrivial (d,List.map (intern_constr ist) lems,l) - | TacAuto (d,n,lems,l) -> - TacAuto (d,Option.map (intern_int_or_var ist) n, - List.map (intern_constr ist) lems,l) - (* Derived basic tactics *) | TacInductionDestruct (ev,isrec,(l,el)) -> TacInductionDestruct (ev,isrec,(List.map (fun (c,(ipato,ipats),cls) -> |