Term.invent_type_names;
authorwenzelm
Fri Dec 14 11:50:19 2001 +0100 (2001-12-14)
changeset 12493de2575b6cd38
parent 12492 a4dd02e744e0
child 12494 58848edad3c4
Term.invent_type_names;
src/Pure/axclass.ML
     1.1 --- a/src/Pure/axclass.ML	Thu Dec 13 19:05:10 2001 +0100
     1.2 +++ b/src/Pure/axclass.ML	Fri Dec 14 11:50:19 2001 +0100
     1.3 @@ -98,7 +98,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) "'", ss);
     1.8 +    val tfrees = ListPair.map TFree (Term.invent_type_names [] (length ss), ss);
     1.9    in Logic.mk_inclass (Type (t, tfrees), c) end;
    1.10  
    1.11  fun dest_arity tm =