--- a/src/HOL/Tools/Mirabelle/mirabelle_try0.ML Thu Mar 27 14:33:08 2025 +0100
+++ b/src/HOL/Tools/Mirabelle/mirabelle_try0.ML Thu Mar 27 16:35:41 2025 +0100
@@ -12,9 +12,10 @@
fun make_action ({timeout, ...} : Mirabelle.action_context) =
let
val generous_timeout = Time.scale 10.0 timeout
+ val try0 = Try0.try0 (SOME timeout) Try0.empty_facts
fun run ({pre, ...} : Mirabelle.command) =
- if Timeout.apply generous_timeout (not o null o Try0.try0 (SOME timeout) []) pre then
+ if Timeout.apply generous_timeout (not o null o try0) pre then
"succeeded"
else
""