src/HOL/Predicate_Compile_Examples/Lambda_Example.thy
changeset 38950 62578950e748
parent 38948 c4e6afaa8dcd
child 38958 08eb0ffa2413
     1.1 --- a/src/HOL/Predicate_Compile_Examples/Lambda_Example.thy	Tue Aug 31 08:00:52 2010 +0200
     1.2 +++ b/src/HOL/Predicate_Compile_Examples/Lambda_Example.thy	Tue Aug 31 08:00:53 2010 +0200
     1.3 @@ -81,13 +81,13 @@
     1.4  
     1.5  setup {* Quickcheck.add_generator ("prolog", Code_Prolog.quickcheck) *}
     1.6  
     1.7 -ML {* Code_Prolog.options :=
     1.8 +setup {* Code_Prolog.map_code_options (K 
     1.9    { ensure_groundness = true,
    1.10      limited_types = [(@{typ nat}, 1), (@{typ "type"}, 1), (@{typ dB}, 1), (@{typ "type list"}, 1)],
    1.11      limited_predicates = [("typing", 2), ("nth_el1", 2)],
    1.12      replacing = [(("typing", "limited_typing"), "quickcheck"),
    1.13                   (("nth_el1", "limited_nth_el1"), "lim_typing")],
    1.14 -    prolog_system = Code_Prolog.SWI_PROLOG} *}
    1.15 +    prolog_system = Code_Prolog.SWI_PROLOG}) *}
    1.16  
    1.17  lemma
    1.18    "\<Gamma> \<turnstile> t : U \<Longrightarrow> t \<rightarrow>\<^sub>\<beta> t' \<Longrightarrow> \<Gamma> \<turnstile> t' : U"