src/Pure/axclass.ML
changeset 12493 de2575b6cd38
parent 12371 80ca9058db95
child 12694 9950c1ce9d24
     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 =