--- a/src/HOL/Tools/Mirabelle/Mirabelle.thy Fri Aug 21 09:49:10 2009 +0200
+++ b/src/HOL/Tools/Mirabelle/Mirabelle.thy Fri Aug 21 13:21:19 2009 +0200
@@ -3,10 +3,23 @@
*)
theory Mirabelle
-imports Plain
+imports Pure
uses "Tools/mirabelle.ML"
begin
+(* no multithreading, no parallel proofs *)
+ML {* Multithreading.max_threads := 1 *}
+ML {* Goal.parallel_proofs := 0 *}
+
+ML {* Toplevel.add_hook Mirabelle.step_hook *}
+
setup Mirabelle.setup
+ML {*
+signature MIRABELLE_ACTION =
+sig
+ val invoke : (string * string) list -> theory -> theory
end
+*}
+
+end