gave SML/NJ a chance
authorblanchet
Fri, 18 Nov 2011 16:42:31 +0100
changeset 45579 2022cd224a3c
parent 45578 66f31d77b05f
child 45580 136e3faf74da
gave SML/NJ a chance
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