diff options
-rw-r--r-- | toplevel/whelp.ml4 | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/toplevel/whelp.ml4 b/toplevel/whelp.ml4 index b27a74c2f..bc735f8d1 100644 --- a/toplevel/whelp.ml4 +++ b/toplevel/whelp.ml4 @@ -156,10 +156,7 @@ let whelp_constr_expr req c = let whelp_locate s = send_whelp "locate" s -let whelp_elim ind = - send_whelp "elim" -(* (uri_of_global (IndRef ind))*) - (string_of_qualid (shortest_qualid_of_global Idset.empty (IndRef ind))) +let whelp_elim ind = send_whelp "elim" (uri_of_global (IndRef ind)) let locate_inductive r = let (loc,qid) = qualid_of_reference r in |