make SML/NJ happy
authorblanchet
Thu, 28 Jul 2011 11:43:45 +0200
changeset 448674d1270ddf042
parent 44866 c479836d9048
child 44868 578460971517
make SML/NJ happy
src/HOL/TPTP/atp_export.ML
     1.1 --- a/src/HOL/TPTP/atp_export.ML	Thu Jul 28 10:42:24 2011 +0200
     1.2 +++ b/src/HOL/TPTP/atp_export.ML	Thu Jul 28 11:43:45 2011 +0200
     1.3 @@ -103,8 +103,8 @@
     1.4                                     (Formula (ident, Axiom, phi, NONE, NONE)) =
     1.5      Formula (ident, Lemma, phi, inference infers ident, NONE)
     1.6    | add_inferences_to_problem_line _ line = line
     1.7 -val add_inferences_to_problem =
     1.8 -  map o apsnd o map o add_inferences_to_problem_line
     1.9 +fun add_inferences_to_problem infers =
    1.10 +  map (apsnd (map (add_inferences_to_problem_line infers)))
    1.11  
    1.12  fun ident_of_problem_line (Decl (ident, _, _)) = ident
    1.13    | ident_of_problem_line (Formula (ident, _, _, _, _)) = ident