author | wenzelm |
Fri, 18 Apr 1997 11:55:14 +0200 | |
changeset 2989 | 8189a4870d19 |
parent 2988 | d38f330e58b3 |
child 2990 | 271062b8c461 |
--- a/src/Pure/type_infer.ML Fri Apr 18 11:54:54 1997 +0200 +++ b/src/Pure/type_infer.ML Fri Apr 18 11:55:14 1997 +0200 @@ -257,7 +257,7 @@ (* adjust sorts of parameters *) fun not_in_sort x S' S = - "Type variable " ^ x ^ "::" ^ Sorts.str_of_sort S' ^ " not in sort " ^ + "Variable " ^ x ^ "::" ^ Sorts.str_of_sort S' ^ " not of sort " ^ Sorts.str_of_sort S ^ "."; fun meet _ [] = ()