Mirabelle now considers goals preceding "unfolding" and "using" commands
authordesharna
Wed, 16 Feb 2022 14:24:05 +0100
changeset 75080 1dae5cbcd358
parent 75079 8a48a9be91ce
child 75081 d76b150efdc2
Mirabelle now considers goals preceding "unfolding" and "using" commands
src/HOL/Tools/Mirabelle/mirabelle.ML
src/HOL/Tools/Mirabelle/mirabelle.scala
--- a/src/HOL/Tools/Mirabelle/mirabelle.ML	Tue Feb 15 16:42:15 2022 +0000
+++ b/src/HOL/Tools/Mirabelle/mirabelle.ML	Wed Feb 16 14:24:05 2022 +0100
@@ -187,7 +187,7 @@
 
 (* presentation hook *)
 
-val whitelist = ["apply", "by", "proof"];
+val whitelist = ["apply", "by", "proof", "unfolding", "using"];
 
 val _ =
   Build.add_hook (fn qualifier => fn loaded_theories =>
--- a/src/HOL/Tools/Mirabelle/mirabelle.scala	Tue Feb 15 16:42:15 2022 +0000
+++ b/src/HOL/Tools/Mirabelle/mirabelle.scala	Wed Feb 16 14:24:05 2022 +0100
@@ -88,7 +88,7 @@
                       case List("mirabelle", action, "initialize") => action + " initialize "
                       case List("mirabelle", action, "finalize") => action + " finalize   "
                       case List("mirabelle", action, "goal", goal_name, line, offset, cpu_ms) =>
-                        action + " goal." + String.format("%-5s", goal_name) + " " + String.format("%5sms", cpu_ms) + " " +
+                        action + " goal." + String.format("%-9s", goal_name) + " " + String.format("%5sms", cpu_ms) + " " +
                           args.theory_name + " " + line + ":" + offset + "  "
                       case _ => ""
                     }