src/Pure/Isar/isar_cmd.ML
changeset 60098 3c66b0a9d7b0
parent 60097 d20ca79d50e4
child 60378 26dcc7f19b02
--- a/src/Pure/Isar/isar_cmd.ML	Thu Apr 16 15:22:44 2015 +0200
+++ b/src/Pure/Isar/isar_cmd.ML	Thu Apr 16 16:19:39 2015 +0200
@@ -35,7 +35,6 @@
   val diag_state: Proof.context -> Toplevel.state
   val diag_goal: Proof.context -> {context: Proof.context, facts: thm list, goal: thm}
   val pretty_theorems: bool -> Toplevel.state -> Pretty.T list
-  val locale_deps: Toplevel.transition -> Toplevel.transition
   val print_stmts: string list * (Facts.ref * Token.src list) list
     -> Toplevel.transition -> Toplevel.transition
   val print_thms: string list * (Facts.ref * Token.src list) list
@@ -264,16 +263,6 @@
     in Proof_Display.pretty_theorems_diff verbose prev_thys thy end;
 
 
-(* display dependencies *)
-
-val locale_deps =
-  Toplevel.keep (Toplevel.theory_of #> (fn thy =>
-    Locale.pretty_locale_deps thy
-    |> map (fn {name, parents, body} =>
-      ((name, Graph_Display.content_node (Locale.extern thy name) [body]), parents))
-    |> Graph_Display.display_graph));
-
-
 (* print theorems, terms, types etc. *)
 
 local