tuned messages;
authorwenzelm
Wed, 14 Mar 2012 18:09:05 +0100
changeset 46923 947f63062022
parent 46922 3717f3878714
child 46924 f2c60ad58374
tuned messages;
src/Pure/Isar/class.ML
src/Pure/Isar/overloading.ML
--- a/src/Pure/Isar/class.ML	Wed Mar 14 17:52:38 2012 +0100
+++ b/src/Pure/Isar/class.ML	Wed Mar 14 18:09:05 2012 +0100
@@ -499,7 +499,7 @@
       Pretty.block (Pretty.breaks
         [Pretty.str v, Pretty.str "==", Pretty.str (Proof_Context.extern_const lthy c),
           Pretty.str "::", Syntax.pretty_typ lthy ty]);
-  in Pretty.str "instantiation" :: map pr_arity tycos @ map pr_param params end;
+  in Pretty.command "instantiation" :: map pr_arity tycos @ map pr_param params end;
 
 fun conclude lthy =
   let
--- a/src/Pure/Isar/overloading.ML	Wed Mar 14 17:52:38 2012 +0100
+++ b/src/Pure/Isar/overloading.ML	Wed Mar 14 18:09:05 2012 +0100
@@ -174,7 +174,7 @@
       Pretty.block (Pretty.breaks
         [Pretty.str v, Pretty.str "==", Pretty.str (Proof_Context.extern_const lthy c),
           Pretty.str "::", Syntax.pretty_typ lthy ty]);
-  in Pretty.str "overloading" :: map pr_operation overloading end;
+  in Pretty.command "overloading" :: map pr_operation overloading end;
 
 fun conclude lthy =
   let