src/Pure/simplifier.ML
changeset 61268 abe08fb15a12
parent 61146 6fced6d926be
child 61841 4d3527b94f2a
--- a/src/Pure/simplifier.ML	Fri Sep 25 20:04:25 2015 +0200
+++ b/src/Pure/simplifier.ML	Fri Sep 25 20:37:59 2015 +0200
@@ -162,8 +162,8 @@
 fun pretty_simpset verbose ctxt =
   let
     val pretty_term = Syntax.pretty_term ctxt;
-    val pretty_thm = Display.pretty_thm ctxt;
-    val pretty_thm_item = Display.pretty_thm_item ctxt;
+    val pretty_thm = Thm.pretty_thm ctxt;
+    val pretty_thm_item = Thm.pretty_thm_item ctxt;
 
     fun pretty_simproc (name, lhss) =
       Pretty.block