--- 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