diff -r 0b6217fda81b -r abe08fb15a12 src/HOL/Tools/Predicate_Compile/code_prolog.ML
--- a/src/HOL/Tools/Predicate_Compile/code_prolog.ML	Fri Sep 25 20:04:25 2015 +0200
+++ b/src/HOL/Tools/Predicate_Compile/code_prolog.ML	Fri Sep 25 20:37:59 2015 +0200
@@ -355,7 +355,7 @@
 fun print_intros ctxt gr consts =
   tracing (cat_lines (map (fn const =>
     "Constant " ^ const ^ "has intros:\n" ^
-    cat_lines (map (Display.string_of_thm ctxt) (Graph.get_node gr const))) consts))
+    cat_lines (map (Thm.string_of_thm ctxt) (Graph.get_node gr const))) consts))
 
 
 (* translation of moded predicates *)