src/Pure/axclass.ML
changeset 11353 7f6eff7bc97a
parent 11101 014e7b5c77ba
child 11539 0f17da240450
     1.1 --- a/src/Pure/axclass.ML	Thu May 31 17:24:56 2001 +0200
     1.2 +++ b/src/Pure/axclass.ML	Thu May 31 17:57:02 2001 +0200
     1.3 @@ -103,8 +103,7 @@
     1.4  
     1.5  fun mk_arity (t, ss, c) =
     1.6    let
     1.7 -    val names = tl (variantlist (replicate (length ss + 1) "'", []));
     1.8 -    val tfrees = ListPair.map TFree (names, ss);
     1.9 +    val tfrees = ListPair.map TFree (Term.invent_names (length ss + 1) "'", ss);
    1.10    in Logic.mk_inclass (Type (t, tfrees), c) end;
    1.11  
    1.12  fun dest_arity tm =