# HG changeset patch # User blanchet # Date 1358110845 -3600 # Node ID 4b30d461b3a6ff955981735b9538461a026c0ad8 # Parent 48836c35d636542f4519f056f74ca8fa0691caf0 more informative output diff -r 48836c35d636 -r 4b30d461b3a6 src/HOL/Mirabelle/Tools/mirabelle_sledgehammer.ML --- a/src/HOL/Mirabelle/Tools/mirabelle_sledgehammer.ML Sun Jan 13 21:42:39 2013 +0100 +++ b/src/HOL/Mirabelle/Tools/mirabelle_sledgehammer.ML Sun Jan 13 22:00:45 2013 +0100 @@ -479,6 +479,7 @@ Sledgehammer_Fact.no_fact_override hyp_ts concl_t |> map (apfst (apfst (fn name => name ()))) |> tap (fn facts => + "Line " ^ str0 (Position.line_of pos) ^ ": " ^ (if null facts then "Found no relevant facts." else