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.
make SML/NJ happier
authorblanchet
Wed, 01 Jun 2011 00:23:16 +0200
changeset 43121 5df3777f376d
parent 43120 a9c2cdf4ae97
child 43122 027ed67f5d98
make SML/NJ happier
src/HOL/Tools/ATP/atp_translate.ML file | annotate | diff | comparison | revisions 
--- a/src/HOL/Tools/ATP/atp_translate.ML	Wed Jun 01 00:12:38 2011 +0200
+++ b/src/HOL/Tools/ATP/atp_translate.ML	Wed Jun 01 00:23:16 2011 +0200
@@ -1332,7 +1332,7 @@
 fun delete_type cset = Symtab.delete_safe (the_single @{sort HOL.type}) cset
 
 fun classes_of_terms get_Ts =
-  map (map #2 o get_Ts)
+  map (map snd o get_Ts)
   #> List.foldl add_classes Symtab.empty
   #> delete_type #> Symtab.keys
isabelle