--- a/src/HOL/Predicate_Compile_Examples/Code_Prolog_Examples.thy Tue Aug 31 08:00:51 2010 +0200
+++ b/src/HOL/Predicate_Compile_Examples/Code_Prolog_Examples.thy Tue Aug 31 08:00:52 2010 +0200
@@ -10,17 +10,26 @@
"append [] ys ys"
| "append xs ys zs ==> append (x # xs) ys (x # zs)"
-ML {* Code_Prolog.options := { ensure_groundness = false, limited_types = [], prolog_system = Code_Prolog.SWI_PROLOG} *}
+ML {* Code_Prolog.options :=
+ {ensure_groundness = false,
+ limited_types = [], limited_predicates = [], replacing = [],
+ prolog_system = Code_Prolog.SWI_PROLOG} *}
values "{(x, y, z). append x y z}"
values 3 "{(x, y, z). append x y z}"
-ML {* Code_Prolog.options := { ensure_groundness = false, limited_types = [], prolog_system = Code_Prolog.YAP} *}
+ML {* Code_Prolog.options :=
+ {ensure_groundness = false,
+ limited_types = [], limited_predicates = [], replacing = [],
+ prolog_system = Code_Prolog.YAP} *}
values "{(x, y, z). append x y z}"
-ML {* Code_Prolog.options := { ensure_groundness = false, limited_types = [], prolog_system = Code_Prolog.SWI_PROLOG} *}
+ML {* Code_Prolog.options :=
+ {ensure_groundness = false,
+ limited_types = [], limited_predicates = [], replacing = [],
+ prolog_system = Code_Prolog.SWI_PROLOG} *}
section {* Example queens *}
@@ -183,7 +192,11 @@
where
"y \<noteq> B \<Longrightarrow> notB y"
-ML {* Code_Prolog.options := {ensure_groundness = true, limited_types = [], prolog_system = Code_Prolog.SWI_PROLOG} *}
+ML {* Code_Prolog.options := {ensure_groundness = true,
+ limited_types = [],
+ limited_predicates = [],
+ replacing = [],
+ prolog_system = Code_Prolog.SWI_PROLOG} *}
values 2 "{y. notB y}"