src/HOL/Mirabelle/Tools/mirabelle_sledgehammer.ML
changeset 51210 ec16ec9ab8d5
parent 51206 3fba6741ead2
child 51951 fab4ab92e812
--- a/src/HOL/Mirabelle/Tools/mirabelle_sledgehammer.ML	Wed Feb 20 17:12:21 2013 +0100
+++ b/src/HOL/Mirabelle/Tools/mirabelle_sledgehammer.ML	Wed Feb 20 17:15:06 2013 +0100
@@ -389,7 +389,8 @@
     SOME name => name
   | NONE =>
     if (String.isSubstring " ms)" msg orelse String.isSubstring " s)" msg)
-       andalso not (String.isSubstring "(> " msg) then
+       andalso not (String.isSubstring "(> " msg)
+       andalso not (String.isSubstring ", > " msg) then
       "none" (* trust the preplayed proof *)
     else if String.isSubstring "metis (" msg then
       msg |> Substring.full