Mercurial Mercurial > repos > isabelle / diff
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
src/HOL/Tools/ATP/atp_translate.ML
changeset 43121 5df3777f376d
parent 43120 a9c2cdf4ae97
child 43125 ddf63baabdec 
--- 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