--- a/src/Pure/Tools/class_package.ML Wed Oct 11 22:55:22 2006 +0200
+++ b/src/Pure/Tools/class_package.ML Wed Oct 11 22:55:23 2006 +0200
@@ -595,7 +595,7 @@
|| class_bodyP >> pair [])
-- P.opt_begin
>> (fn ((bname, (supclasses, elems)), begin) =>
- Toplevel.begin_local_theory begin (class bname supclasses elems)));
+ Toplevel.begin_local_theory begin (class bname supclasses elems #-> TheoryTarget.begin)));
val instanceP =
OuterSyntax.command instanceK "prove type arity or subclass relation" K.thy_goal ((