diff options
| author | Pierre-Marie Pédrot | 2016-06-03 17:10:08 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2016-06-03 17:11:07 +0200 |
| commit | 89a1ea67a72500eeae1d003dd346f01ded514f7b (patch) | |
| tree | 8134c12bef64decc00490519f2f04e06932355e0 /printing | |
| parent | 9d60ddc84e95a030913fc4b3db705f3ec894fdb2 (diff) | |
| parent | 3206bf597d63066d9d9f8adfd0fe76e3c1c97e4d (diff) | |
Remove a few tactics from the Tacexpr AST.
Note that this breaks a few badly written scripts using intro in strict
mode without providing an existing identifier.
Diffstat (limited to 'printing')
| -rw-r--r-- | printing/pptactic.ml | 27 |
1 files changed, 0 insertions, 27 deletions
diff --git a/printing/pptactic.ml b/printing/pptactic.ml index 44c832bd7a..114410fed1 100644 --- a/printing/pptactic.ml +++ b/printing/pptactic.ml @@ -816,7 +816,6 @@ module Make (* Printing tactics as arguments *) let rec pr_atom0 a = tag_atom a (match a with | TacIntroPattern [] -> primitive "intros" - | TacIntroMove (None,MoveLast) -> primitive "intro" | t -> str "(" ++ pr_atom1 t ++ str ")" ) @@ -828,15 +827,6 @@ module Make | TacIntroPattern (_::_ as p) -> hov 1 (primitive "intros" ++ spc () ++ prlist_with_sep spc (Miscprint.pr_intro_pattern pr.pr_dconstr) p) - | TacIntroMove (None,MoveLast) as t -> - pr_atom0 t - | TacIntroMove (Some id,MoveLast) -> - primitive "intro" ++ spc () ++ pr_id id - | TacIntroMove (ido,hto) -> - hov 1 (primitive "intro" ++ pr_opt pr_id ido ++ - Miscprint.pr_move_location pr.pr_name hto) - | TacExact c -> - hov 1 (primitive "exact" ++ pr_constrarg c) | TacApply (a,ev,cb,inhyp) -> hov 1 ( (if a then mt() else primitive "simple ") ++ @@ -909,23 +899,6 @@ module Make pr_opt (pr_clauses None pr.pr_name) cl) l ++ pr_opt pr_eliminator el ) - | TacDoubleInduction (h1,h2) -> - hov 1 ( - primitive "double induction" - ++ pr_arg pr_quantified_hypothesis h1 - ++ pr_arg pr_quantified_hypothesis h2 - ) - - (* Context management *) - | TacRename l -> - hov 1 ( - primitive "rename" ++ brk (1,1) - ++ prlist_with_sep - (fun () -> str "," ++ brk (1,1)) - (fun (i1,i2) -> - pr.pr_name i1 ++ spc () ++ str "into" ++ spc () ++ pr.pr_name i2) - l - ) (* Conversion *) | TacReduce (r,h) -> |