Mercurial Mercurial > repos > isabelle / diff
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
src/HOL/Mutabelle/mutabelle_extra.ML
changeset 43883 aacbe67793c3
parent 43277 1fd31f859fc7
child 44064 5bce8ff0d9ae 
--- a/src/HOL/Mutabelle/mutabelle_extra.ML	Mon Jul 18 10:34:21 2011 +0200
+++ b/src/HOL/Mutabelle/mutabelle_extra.ML	Mon Jul 18 10:34:21 2011 +0200
@@ -122,7 +122,7 @@
   TimeLimit.timeLimit (seconds (!Try.auto_time_limit))
       (fn _ =>
           let
-            val [result] = Quickcheck.test_goal_terms (change_options (Proof_Context.init_global thy))
+            val SOME [result] = Quickcheck.test_goal_terms (change_options (Proof_Context.init_global thy))
               (false, false) [] [(t, [])]
           in
             case Quickcheck.counterexample_of result of
isabelle