diff options
author | 2015-12-24 17:55:25 +0100 | |
---|---|---|
committer | 2015-12-24 18:24:34 +0100 | |
commit | daa7cb065a238c7d4ee394e00315d66d023e5259 (patch) | |
tree | d50643d775bca154f7ea422786b6d835e48d09fa /printing | |
parent | f33fc85b1dd2f4994dc85b0943fe503ace2cc5ff (diff) |
Removing auto from the tactic AST.
Diffstat (limited to 'printing')
-rw-r--r-- | printing/pptactic.ml | 19 |
1 files changed, 0 insertions, 19 deletions
diff --git a/printing/pptactic.ml b/printing/pptactic.ml index 9c6da350f..ff83ac3e9 100644 --- a/printing/pptactic.ml +++ b/printing/pptactic.ml @@ -807,8 +807,6 @@ module Make let rec pr_atom0 a = tag_atom a (match a with | TacIntroPattern [] -> primitive "intros" | TacIntroMove (None,MoveLast) -> primitive "intro" - | TacTrivial (d,[],Some []) -> str (string_of_debug d) ++ primitive "trivial" - | TacAuto (d,None,[],Some []) -> str (string_of_debug d) ++ primitive "auto" | TacClear (true,[]) -> primitive "clear" | t -> str "(" ++ pr_atom1 t ++ str ")" ) @@ -917,23 +915,6 @@ module Make ++ pr_arg pr_quantified_hypothesis h2 ) - (* Automation tactics *) - | TacTrivial (_,[],Some []) as x -> - pr_atom0 x - | TacTrivial (d,lems,db) -> - hov 0 ( - str (string_of_debug d) ++ primitive "trivial" - ++ pr_auto_using pr.pr_constr lems ++ pr_hintbases db - ) - | TacAuto (_,None,[],Some []) as x -> - pr_atom0 x - | TacAuto (d,n,lems,db) -> - hov 0 ( - str (string_of_debug d) ++ primitive "auto" - ++ pr_opt (pr_or_var int) n - ++ pr_auto_using pr.pr_constr lems ++ pr_hintbases db - ) - (* Context management *) | TacClear (true,[]) as t -> pr_atom0 t |