--- a/src/HOL/Mutabelle/mutabelle_extra.ML Fri Jul 12 23:45:05 2013 +0200
+++ b/src/HOL/Mutabelle/mutabelle_extra.ML Sat Jul 13 00:24:05 2013 +0200
@@ -120,7 +120,7 @@
| SOME _ => (GenuineCex, Quickcheck.timings_of result)
end) ()
handle TimeLimit.TimeOut =>
- (Timeout, [("timelimit", Real.floor (Options.default_real @{option auto_time_limit})])
+ (Timeout, [("timelimit", Real.floor (Options.default_real @{option auto_time_limit}))])
fun quickcheck_mtd change_options quickcheck_generator =
("quickcheck_" ^ quickcheck_generator, invoke_quickcheck change_options)