diff -r 3a86194d1534 -r 7ce0ed8dc4d6 src/HOL/Predicate_Compile_Examples/Hotel_Example.thy --- a/src/HOL/Predicate_Compile_Examples/Hotel_Example.thy Thu Sep 16 13:49:06 2010 +0200 +++ b/src/HOL/Predicate_Compile_Examples/Hotel_Example.thy Thu Sep 16 13:49:08 2010 +0200 @@ -89,14 +89,12 @@ limited_types = [], limited_predicates = [], replacing = [], - manual_reorder = [], - timeout = Time.fromSeconds 10, - prolog_system = Code_Prolog.SWI_PROLOG}) *} + manual_reorder = []}) *} values 40 "{s. hotel s}" -setup {* Quickcheck.add_generator ("prolog", Code_Prolog.quickcheck) *} +setup {* Context.theory_map (Quickcheck.add_generator ("prolog", Code_Prolog.quickcheck)) *} lemma "\ hotel s; g \ isin s r \ \ owns s r = Some g" quickcheck[generator = code, iterations = 100000, report] @@ -119,9 +117,7 @@ limited_types = [], limited_predicates = [(["hotel"], 5)], replacing = [(("hotel", "limited_hotel"), "quickcheck")], - manual_reorder = [], - timeout = Time.fromSeconds 10, - prolog_system = Code_Prolog.SWI_PROLOG}) *} + manual_reorder = []}) *} lemma "hotel s ==> feels_safe s r ==> g \ isin s r ==> owns s r = Some g"