From 3e5ba8bb1188e9c0f59c04bd0e8fa7c9ff5bc52b Mon Sep 17 00:00:00 2001
From: Gaëtan Gilbert
Date: Sat, 4 Nov 2017 15:59:31 +0100
Subject: Finish removing Show Goal uid

Syntax removed in faa064c746e20a12b3c8f792f69537b18e387be6
---
 printing/ppvernac.ml |  2 +-
 printing/printer.ml  | 11 -----------
 printing/printer.mli |  1 -
 3 files changed, 1 insertion(+), 13 deletions(-)

(limited to 'printing')

diff --git a/printing/ppvernac.ml b/printing/ppvernac.ml
index d1158b3d6f..143f9ddcc5 100644
--- a/printing/ppvernac.ml
+++ b/printing/ppvernac.ml
@@ -574,7 +574,7 @@ open Decl_kinds
           | OpenSubgoals -> mt ()
           | NthGoal n -> spc () ++ int n
           | GoalId id -> spc () ++ pr_id id
-          | GoalUid n -> spc () ++ str n in
+        in
         let pr_showable = function
           | ShowGoal n -> keyword "Show" ++ pr_goal_reference n
           | ShowProof -> keyword "Show Proof"
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
diff --git a/printing/printer.mli b/printing/printer.mli
index 658ea6060b..f55206f0df 100644
--- a/printing/printer.mli
+++ b/printing/printer.mli
@@ -201,7 +201,6 @@ val pr_assumptionset :
   env -> Term.types ContextObjectMap.t -> Pp.t
 
 val pr_goal_by_id : Id.t -> Pp.t
-val pr_goal_by_uid : string -> Pp.t
 
 type printer_pr = {
  pr_subgoals            : ?pr_first:bool -> Pp.t option -> evar_map -> evar list -> Goal.goal list -> int list -> goal list -> goal list -> Pp.t;
-- 
cgit v1.2.3