diff options
| author | Pierre-Marie Pédrot | 2016-09-08 14:43:46 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2016-09-08 18:53:09 +0200 |
| commit | 7045848145c16d978456aab2edd192c54d242e69 (patch) | |
| tree | 2d4e3f69a6ef6fe22cd0373c84ebf551c98af849 /tactics | |
| parent | 52c3917be7239f7d5ab1ba882275b4571463f585 (diff) | |
Unplugging Pptactic from Ppvernac.
Diffstat (limited to 'tactics')
| -rw-r--r-- | tactics/autorewrite.ml | 2 | ||||
| -rw-r--r-- | tactics/hints.ml | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/tactics/autorewrite.ml b/tactics/autorewrite.ml index 7628b7885f..dae1cc9f1b 100644 --- a/tactics/autorewrite.ml +++ b/tactics/autorewrite.ml @@ -83,7 +83,7 @@ let print_rewrite_hintdb bas = str (if h.rew_l2r then "rewrite -> " else "rewrite <- ") ++ Printer.pr_lconstr h.rew_lemma ++ str " of type " ++ Printer.pr_lconstr h.rew_type ++ Option.cata (fun tac -> str " then use tactic " ++ - Pptactic.pr_glb_generic (Global.env()) tac) (mt ()) h.rew_tac) + Pputils.pr_glb_generic (Global.env()) tac) (mt ()) h.rew_tac) (find_rewrites bas)) type raw_rew_rule = Loc.t * constr Univ.in_universe_context_set * bool * Genarg.raw_generic_argument option diff --git a/tactics/hints.ml b/tactics/hints.ml index a6d1fc6c8e..4be4d1ed4b 100644 --- a/tactics/hints.ml +++ b/tactics/hints.ml @@ -1276,7 +1276,7 @@ let pr_hint h = match h.obj with env with e when CErrors.noncritical e -> Global.env () in - (str "(*external*) " ++ Pptactic.pr_glb_generic env tac) + (str "(*external*) " ++ Pputils.pr_glb_generic env tac) let pr_id_hint (id, v) = (pr_hint v.code ++ str"(level " ++ int v.pri ++ str", id " ++ int id ++ str ")" ++ spc ()) |