diff -r 0b6217fda81b -r abe08fb15a12 src/FOLP/classical.ML
--- a/src/FOLP/classical.ML	Fri Sep 25 20:04:25 2015 +0200
+++ b/src/FOLP/classical.ML	Fri Sep 25 20:37:59 2015 +0200
@@ -124,10 +124,10 @@
 
 fun print_cs ctxt (CS{safeIs,safeEs,hazIs,hazEs,...}) =
   writeln (cat_lines
-   (["Introduction rules"] @ map (Display.string_of_thm ctxt) hazIs @
-    ["Safe introduction rules"] @ map (Display.string_of_thm ctxt) safeIs @
-    ["Elimination rules"] @ map (Display.string_of_thm ctxt) hazEs @
-    ["Safe elimination rules"] @ map (Display.string_of_thm ctxt) safeEs));
+   (["Introduction rules"] @ map (Thm.string_of_thm ctxt) hazIs @
+    ["Safe introduction rules"] @ map (Thm.string_of_thm ctxt) safeIs @
+    ["Elimination rules"] @ map (Thm.string_of_thm ctxt) hazEs @
+    ["Safe elimination rules"] @ map (Thm.string_of_thm ctxt) safeEs));
 
 fun (CS{safeIs,safeEs,hazIs,hazEs,...}) addSIs ths =
   make_cs {safeIs=ths@safeIs, safeEs=safeEs, hazIs=hazIs, hazEs=hazEs};