disable interactive mode of Specification.theorem with its slow printing of results;
--- a/src/HOL/SPARK/Tools/spark_commands.ML Wed Jan 09 20:46:32 2013 +0100
+++ b/src/HOL/SPARK/Tools/spark_commands.ML Tue Jan 08 22:10:02 2013 +0100
@@ -75,7 +75,7 @@
Specification.theorem Thm.theoremK NONE
(fn thmss => (Local_Theory.background_theory
(SPARK_VCs.mark_proved vc_name (flat thmss))))
- (Binding.name vc_name, []) [] ctxt stmt true lthy
+ (Binding.name vc_name, []) [] ctxt stmt false lthy
end;
fun string_of_status NONE = "(unproved)"