aboutsummaryrefslogtreecommitdiff
path: root/printing/printer.ml
diff options
context:
space:
mode:
authorMaxime Dénès2017-11-06 11:22:39 +0100
committerMaxime Dénès2017-11-06 11:22:39 +0100
commitdc6f4b07c38b416b1771bf7436af9303f25f0c1e (patch)
treec02a44b299fbf5f534477229d9db7feaebfe754a /printing/printer.ml
parentc757ec96e2f281e618c297ffc6098aacf1e3f399 (diff)
parent3e5ba8bb1188e9c0f59c04bd0e8fa7c9ff5bc52b (diff)
Merge PR #6063: Finish removing Show Goal uid
Diffstat (limited to 'printing/printer.ml')
-rw-r--r--printing/printer.ml11
1 files changed, 0 insertions, 11 deletions
diff --git a/printing/printer.ml b/printing/printer.ml
index c6650ea3b8..70e96722d6 100644
--- a/printing/printer.ml
+++ b/printing/printer.ml
@@ -838,17 +838,6 @@ let pr_goal_by_id id =
pr_selected_subgoal (pr_id id) sigma g)
with Not_found -> user_err Pp.(str "No such goal.")
-let pr_goal_by_uid uid =
- let p = Proof_global.give_me_the_proof () in
- let g = Goal.get_by_uid uid in
- let pr gs =
- v 0 (str "goal / evar " ++ str uid ++ str " is:" ++ cut ()
- ++ pr_goal gs)
- in
- try
- Proof.in_proof p (fun sigma -> pr {it=g;sigma=sigma;})
- with Not_found -> user_err Pp.(str "Invalid goal identifier.")
-
(* Elementary tactics *)
let pr_prim_rule = function