diff -r 143f58bb34f9 -r 0909deb8059b src/HOL/Predicate_Compile_Examples/List_Examples.thy --- a/src/HOL/Predicate_Compile_Examples/List_Examples.thy Thu May 26 16:57:14 2016 +0200 +++ b/src/HOL/Predicate_Compile_Examples/List_Examples.thy Thu May 26 17:51:22 2016 +0200 @@ -5,12 +5,12 @@ "~~/src/HOL/Library/Code_Prolog" begin -setup {* +setup \ Context.theory_map (Quickcheck.add_tester ("prolog", (Code_Prolog.active, Code_Prolog.test_goals))) -*} +\ -setup {* Code_Prolog.map_code_options (K +setup \Code_Prolog.map_code_options (K {ensure_groundness = true, limit_globally = NONE, limited_types = [(@{typ nat}, 2), (@{typ "nat list"}, 4)], @@ -19,7 +19,7 @@ [(("appendP", "limited_appendP"), "quickcheck"), (("revP", "limited_revP"), "quickcheck"), (("appendP", "limited_appendP"), "lim_revP")], - manual_reorder = []}) *} + manual_reorder = []})\ lemma "(xs :: nat list) = ys @ ys --> rev xs = xs" quickcheck[tester = random, iterations = 10000]