proper use of invent_names;
authorwenzelm
Fri Aug 31 22:45:08 2001 +0200 (2001-08-31 ago)
changeset 1154109dc5e8ac99c
parent 11540 23794728cdb7
child 11542 2afde2de26d6
proper use of invent_names;
src/Pure/axclass.ML
     1.1 --- a/src/Pure/axclass.ML	Fri Aug 31 22:44:44 2001 +0200
     1.2 +++ b/src/Pure/axclass.ML	Fri Aug 31 22:45:08 2001 +0200
     1.3 @@ -104,7 +104,7 @@
     1.4  
     1.5  fun mk_arity (t, ss, c) =
     1.6    let
     1.7 -    val tfrees = ListPair.map TFree (Term.invent_names (length ss + 1) "'", ss);
     1.8 +    val tfrees = ListPair.map TFree (Term.invent_names (length ss) "'", ss);
     1.9    in Logic.mk_inclass (Type (t, tfrees), c) end;
    1.10  
    1.11  fun dest_arity tm =