Mercurial Mercurial > repos > isabelle / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | gz | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
proper use of invent_names;
authorwenzelm
Fri, 31 Aug 2001 22:45:08 +0200
changeset 11541 09dc5e8ac99c
parent 11540 23794728cdb7
child 11542 2afde2de26d6
proper use of invent_names;
src/Pure/axclass.ML file | annotate | diff | comparison | revisions 
--- 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 =
isabelle