tuned;
authorwenzelm
Fri, 23 Feb 2018 15:07:30 +0100
changeset 67704 23d46836a5ac
parent 67703 8c4806fe827f
child 67705 f7e37a94caee
tuned;
src/Pure/Syntax/printer.ML
--- a/src/Pure/Syntax/printer.ML	Fri Feb 23 14:32:59 2018 +0100
+++ b/src/Pure/Syntax/printer.ML	Fri Feb 23 15:07:30 2018 +0100
@@ -75,7 +75,7 @@
 fun type_emphasis ctxt T =
   T <> dummyT andalso
     (Config.get ctxt show_types orelse Config.get ctxt show_markup orelse
-      Config.get ctxt show_type_emphasis andalso not (can dest_Type T));
+      Config.get ctxt show_type_emphasis andalso not (is_Type T));