fixed oversensitive Skolem handling (cf. eaa540986291)
--- a/src/HOL/Tools/Sledgehammer/sledgehammer_reconstruct.ML Wed Jan 02 15:44:00 2013 +0100
+++ b/src/HOL/Tools/Sledgehammer/sledgehammer_reconstruct.ML Wed Jan 02 15:54:38 2013 +0100
@@ -669,7 +669,7 @@
val ref_graph = atp_proof |> map_filter dep_of_step |> make_ref_graph
val axioms = axioms_of_ref_graph ref_graph conjs
val tainted = tainted_atoms_of_ref_graph ref_graph conjs
- val is_skolem = can (try (apfst (apfst Name.dest_skolem)))
+ val is_skolem = can (apfst (apfst Name.dest_skolem))
val props =
Symtab.empty
|> fold (fn Definition_Step _ => I (* FIXME *)