# HG changeset patch
# User wenzelm
# Date 999290708 -7200
# Node ID 09dc5e8ac99c2c00a773b35a2e399f3cd208fbf0
# Parent  23794728cdb7a5fbf92e20b95064e12ee770237c
proper use of invent_names;

diff -r 23794728cdb7 -r 09dc5e8ac99c src/Pure/axclass.ML
--- a/src/Pure/axclass.ML	Fri Aug 31 22:44:44 2001 +0200
+++ b/src/Pure/axclass.ML	Fri Aug 31 22:45:08 2001 +0200
@@ -104,7 +104,7 @@
 
 fun mk_arity (t, ss, c) =
   let
-    val tfrees = ListPair.map TFree (Term.invent_names (length ss + 1) "'", ss);
+    val tfrees = ListPair.map TFree (Term.invent_names (length ss) "'", ss);
   in Logic.mk_inclass (Type (t, tfrees), c) end;
 
 fun dest_arity tm =