# HG changeset patch
# User blanchet
# Date 1311846225 -7200
# Node ID 4d1270ddf0420bfb8f89d858109e82b2b655319b
# Parent  c479836d9048caee062bdb0439a202e2a6812215
make SML/NJ happy

diff -r c479836d9048 -r 4d1270ddf042 src/HOL/TPTP/atp_export.ML
--- a/src/HOL/TPTP/atp_export.ML	Thu Jul 28 10:42:24 2011 +0200
+++ b/src/HOL/TPTP/atp_export.ML	Thu Jul 28 11:43:45 2011 +0200
@@ -103,8 +103,8 @@
                                    (Formula (ident, Axiom, phi, NONE, NONE)) =
     Formula (ident, Lemma, phi, inference infers ident, NONE)
   | add_inferences_to_problem_line _ line = line
-val add_inferences_to_problem =
-  map o apsnd o map o add_inferences_to_problem_line
+fun add_inferences_to_problem infers =
+  map (apsnd (map (add_inferences_to_problem_line infers)))
 
 fun ident_of_problem_line (Decl (ident, _, _)) = ident
   | ident_of_problem_line (Formula (ident, _, _, _, _)) = ident