ProofDisplay.print_theorems/theory;
authorwenzelm
Thu, 13 Apr 2006 12:01:08 +0200
changeset 19430 177e35232d1b
parent 19429 e425e74b01af
child 19431 20e86336a53f
ProofDisplay.print_theorems/theory;
src/Pure/Isar/isar_cmd.ML
--- a/src/Pure/Isar/isar_cmd.ML	Thu Apr 13 12:01:07 2006 +0200
+++ b/src/Pure/Isar/isar_cmd.ML	Thu Apr 13 12:01:08 2006 +0200
@@ -219,7 +219,7 @@
 val print_context = Toplevel.keep Toplevel.print_state_context;
 
 val print_theory = Toplevel.unknown_theory o
-  Toplevel.keep (PureThy.print_theory o Toplevel.theory_of);
+  Toplevel.keep (ProofDisplay.print_theory o Toplevel.theory_of);
 
 val print_syntax = Toplevel.unknown_theory o
   Toplevel.keep (Display.print_syntax o Toplevel.theory_of) o
@@ -232,8 +232,8 @@
 val print_theorems_theory = Toplevel.keep (fn state =>
   Toplevel.theory_of state |>
   (case Option.map Toplevel.theory_node (History.previous (Toplevel.node_history_of state)) of
-    SOME (SOME prev_thy) => PureThy.print_theorems_diff prev_thy
-  | _ => PureThy.print_theorems));
+    SOME (SOME prev_thy) => ProofDisplay.print_theorems_diff prev_thy
+  | _ => ProofDisplay.print_theorems));
 
 val print_theorems = Toplevel.unknown_theory o print_theorems_theory o print_theorems_proof;