--- a/src/Pure/axclass.ML Wed Aug 27 11:24:31 2008 +0200
+++ b/src/Pure/axclass.ML Wed Aug 27 11:24:32 2008 +0200
@@ -296,6 +296,7 @@
thy
|> Sign.primitive_classrel (c1, c2)
|> put_classrel ((c1, c2), Drule.unconstrainTs th)
+ |> perhaps complete_arities
end;
fun add_arity th thy =