changeset 51004 | 5f2788c38127 |
parent 51003 | 198cb05fb35b |
child 51005 | ce4290c33d73 |
--- a/src/HOL/Mirabelle/Tools/mirabelle_sledgehammer.ML Thu Jan 31 17:54:05 2013 +0100 +++ b/src/HOL/Mirabelle/Tools/mirabelle_sledgehammer.ML Thu Jan 31 17:54:05 2013 +0100 @@ -478,7 +478,6 @@ (the_default default_max_facts max_facts) Sledgehammer_Fact.no_fact_override hyp_ts concl_t |> #1 (*###*) - |> map (apfst (apfst (fn name => name ()))) |> tap (fn facts => "Line " ^ str0 (Position.line_of pos) ^ ": " ^ (if null facts then