src/HOL/Tools/Mirabelle/mirabelle_try0.ML
changeset 73691 2f9877db82a1
parent 62519 a564458f94db
child 73847 58f6b41efe88
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/src/HOL/Tools/Mirabelle/mirabelle_try0.ML	Fri May 14 21:32:11 2021 +0200
@@ -0,0 +1,17 @@
+(*  Title:      HOL/Mirabelle/Tools/mirabelle_try0.ML
+    Author:     Jasmin Blanchette, TU Munich
+    Author:     Makarius
+
+Mirabelle action: "try0".
+*)
+
+structure Mirabelle_Try0 : sig end =
+struct
+
+val _ =
+  Theory.setup (Mirabelle.command_action \<^binding>\<open>try0\<close>
+    (fn {timeout, ...} => fn {pre, ...} =>
+      if Timeout.apply (Time.scale 10.0 timeout) (Try0.try0 (SOME timeout) ([], [], [], [])) pre
+      then "succeeded" else ""));
+
+end