# HG changeset patch
# User blanchet
# Date 1321630951 -3600
# Node ID 2022cd224a3cad4e374a6fd35e8e843872f61aae
# Parent  66f31d77b05f034c0a62d3782ed2f71f6651fe7f
gave SML/NJ a chance

diff -r 66f31d77b05f -r 2022cd224a3c src/HOL/Tools/ATP/atp_reconstruct.ML
--- a/src/HOL/Tools/ATP/atp_reconstruct.ML	Fri Nov 18 14:47:08 2011 +0100
+++ b/src/HOL/Tools/ATP/atp_reconstruct.ML	Fri Nov 18 16:42:31 2011 +0100
@@ -146,7 +146,7 @@
     end
   | NONE => NONE
 fun resolve_fact fact_names = map_filter (resolve_one_named_fact fact_names)
-val is_fact = not o null oo resolve_fact
+fun is_fact fact_names = not o null o resolve_fact fact_names
 
 fun resolve_one_named_conjecture s =
   case try (unprefix conjecture_prefix) s of