# HG changeset patch
# User wenzelm
# Date 1008327019 -3600
# Node ID de2575b6cd380eb7b09375c55e952bfecf2bdbb1
# Parent  a4dd02e744e0cb0f725feb6d716a8d864886b3ff
Term.invent_type_names;

diff -r a4dd02e744e0 -r de2575b6cd38 src/Pure/axclass.ML
--- a/src/Pure/axclass.ML	Thu Dec 13 19:05:10 2001 +0100
+++ b/src/Pure/axclass.ML	Fri Dec 14 11:50:19 2001 +0100
@@ -98,7 +98,7 @@
 
 fun mk_arity (t, ss, c) =
   let
-    val tfrees = ListPair.map TFree (Term.invent_names (length ss) "'", ss);
+    val tfrees = ListPair.map TFree (Term.invent_type_names [] (length ss), ss);
   in Logic.mk_inclass (Type (t, tfrees), c) end;
 
 fun dest_arity tm =