--- a/src/Pure/Isar/class.ML Fri Jul 10 07:59:27 2009 +0200
+++ b/src/Pure/Isar/class.ML Fri Jul 10 07:59:28 2009 +0200
@@ -311,7 +311,7 @@
val proto_sub = case TheoryTarget.peek lthy
of {is_class = false, ...} => error "Not in a class context"
| {target, ...} => target;
- val (sub, sup) = AxClass.cert_classrel thy (proto_sub, proto_sup)
+ val (sub, sup) = AxClass.cert_classrel thy (proto_sub, proto_sup);
val expr = ([(sup, (("", false), Expression.Positional []))], []);
val (([props], deps, export), goal_ctxt) =