src/Tools/quickcheck.ML
changeset 51557 4e4b56b7a3a5
parent 51302 de47a499bc04
child 51658 21c10672633b
--- a/src/Tools/quickcheck.ML	Wed Mar 27 17:55:21 2013 +0100
+++ b/src/Tools/quickcheck.ML	Wed Mar 27 17:58:07 2013 +0100
@@ -532,8 +532,8 @@
 val _ =
   Outer_Syntax.improper_command @{command_spec "quickcheck"}
     "try to find counterexample for subgoal"
-    (parse_args -- Scan.optional Parse.nat 1
-      >> (fn (args, i) => Toplevel.no_timing o Toplevel.keep (quickcheck_cmd args i)));
+    (parse_args -- Scan.optional Parse.nat 1 >> (fn (args, i) =>
+      Toplevel.no_timing o Toplevel.unknown_proof o Toplevel.keep (quickcheck_cmd args i)));
 
 
 (* automatic testing *)