Mercurial Mercurial > repos > isabelle / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | gz | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Sorts.str_of_sort;
authorwenzelm
Wed, 16 Apr 1997 18:22:10 +0200
changeset 2962 97ae96c72d8c
parent 2961 842be30dc336
child 2963 f3b5af1c5a67
Sorts.str_of_sort;
src/Pure/goals.ML file | annotate | diff | comparison | revisions
src/Pure/thm.ML file | annotate | diff | comparison | revisions 
--- a/src/Pure/goals.ML	Wed Apr 16 18:21:00 1997 +0200
+++ b/src/Pure/goals.ML	Wed Apr 16 18:22:10 1997 +0200
@@ -154,7 +154,7 @@
                  cat_lines (map (Sign.string_of_term sign) hyps))
 	    else if not (null xshyps) then !result_error_ref state
                 ("Extra sort hypotheses: " ^
-                 commas (map Type.str_of_sort xshyps))
+                 commas (map Sorts.str_of_sort xshyps))
 	    else if Pattern.matches (#tsig(Sign.rep_sg sign)) 
 			            (term_of chorn, prop)
 		 then  standard th 
--- a/src/Pure/thm.ML	Wed Apr 16 18:21:00 1997 +0200
+++ b/src/Pure/thm.ML	Wed Apr 16 18:22:10 1997 +0200
@@ -502,7 +502,7 @@
              not (!force_strip_shyps) then shyps'
           else    (* FIXME tmp *)
               (warning ("Removed sort hypotheses: " ^
-                        commas (map Type.str_of_sort (shyps' \\ sorts)));
+                        commas (map Sorts.str_of_sort (shyps' \\ sorts)));
                warning "Let's hope these sorts are non-empty!";
            sorts)),
       hyps = hyps,
isabelle