eyelang 1.3.9 → 1.4.0

This diff represents the content of publicly available package versions that have been released to one of the supported registries. The information contained in this diff is provided for informational purposes only and reflects changes between package versions as they appear in their respective public registries.
Files changed (213) hide show
  1. package/README.md +19 -14
  2. package/SPEC.md +4 -4
  3. package/conformance/expected/core/001_fact_query.out +0 -8
  4. package/conformance/expected/core/002_rule_recursion.out +0 -41
  5. package/conformance/expected/core/003_terms_and_readback.out +0 -104
  6. package/conformance/expected/core/004_conjunction_and_parentheses.out +0 -25
  7. package/conformance/expected/core/005_list_deconstruction.out +0 -32
  8. package/conformance/expected/core/006_comma_formula_data.out +0 -15
  9. package/conformance/expected/core/007_anonymous_variables.out +0 -19
  10. package/conformance/expected/core/008_graphic_atoms.out +0 -24
  11. package/conformance/expected/core/009_comments_and_whitespace.out +0 -30
  12. package/conformance/expected/core/010_variable_scope_and_reuse.out +0 -52
  13. package/conformance/expected/core/011_predicate_arity.out +0 -30
  14. package/conformance/expected/core/012_nested_compound_unification.out +0 -30
  15. package/conformance/expected/core/013_multiple_clauses_order.out +0 -44
  16. package/conformance/expected/core/014_failure_filters_answers.out +0 -19
  17. package/conformance/expected/core/015_improper_list_unification.out +0 -45
  18. package/conformance/expected/core/016_zero_arity_compound.out +0 -15
  19. package/conformance/expected/core/017_three_step_recursion.out +0 -99
  20. package/conformance/expected/core/018_quoted_atom_readback.out +0 -45
  21. package/conformance/expected/core/019_parenthesized_three_conjuncts.out +0 -36
  22. package/conformance/expected/core/020_nested_list_terms.out +0 -30
  23. package/conformance/expected/extension/001_default_derived_output.out +0 -56
  24. package/conformance/expected/extension/002_materialize_focus.out +0 -22
  25. package/conformance/expected/extension/003_arithmetic_and_comparison.out +0 -148
  26. package/conformance/expected/extension/004_strings_and_atoms.out +0 -58
  27. package/conformance/expected/extension/005_lists_aggregation_ordering.out +0 -135
  28. package/conformance/expected/extension/006_formula_terms.out +0 -76
  29. package/conformance/expected/extension/007_negation_once_generators.out +0 -40
  30. package/conformance/expected/extension/008_equality_and_inequality.out +0 -58
  31. package/conformance/expected/extension/009_list_relations.out +0 -73
  32. package/conformance/expected/extension/010_append_splits.out +0 -45
  33. package/conformance/expected/extension/011_matching_and_comparison.out +0 -70
  34. package/conformance/expected/extension/012_memoize_declaration.out +0 -41
  35. package/conformance/expected/extension/013_numeric_functions.out +0 -105
  36. package/conformance/expected/extension/014_between_enumeration.out +0 -45
  37. package/conformance/expected/extension/015_smallest_divisor.out +0 -15
  38. package/conformance/expected/extension/016_negation_filter.out +0 -38
  39. package/conformance/expected/extension/017_once_user_predicate.out +0 -21
  40. package/conformance/expected/extension/018_findall_user_goal.out +0 -15
  41. package/conformance/expected/extension/019_sort_deduplicates_atoms.out +0 -15
  42. package/conformance/expected/extension/020_append_bound_prefix_suffix.out +0 -30
  43. package/conformance/expected/extension/021_nth0_index_generation.out +0 -15
  44. package/conformance/expected/extension/022_set_nth0_edges.out +0 -30
  45. package/conformance/expected/extension/023_select_duplicate_occurrences.out +0 -30
  46. package/conformance/expected/extension/024_not_member_filter.out +0 -19
  47. package/conformance/expected/extension/025_is_list_filter.out +0 -19
  48. package/conformance/expected/extension/026_nested_formula_terms.out +0 -114
  49. package/conformance/expected/extension/027_materialize_excludes_source_fact.out +0 -14
  50. package/conformance/expected/extension/028_numeric_and_lexical_comparison.out +0 -42
  51. package/conformance/expected/extension/029_string_matching_filters.out +0 -38
  52. package/conformance/expected/extension/030_string_and_atom_concat.out +0 -30
  53. package/conformance/expected/extension/031_countall_empty_and_nonempty.out +0 -18
  54. package/conformance/expected/extension/032_sumall_numeric_template.out +0 -8
  55. package/conformance/expected/extension/033_aggregate_min_template.out +0 -8
  56. package/conformance/expected/extension/034_aggregate_max_compound_key.out +0 -8
  57. package/examples/output/access-control-policy.pl +0 -156
  58. package/examples/output/ackermann.pl +0 -1240
  59. package/examples/output/age.pl +0 -69
  60. package/examples/output/aliases-and-namespaces.pl +0 -73
  61. package/examples/output/alignment-demo.pl +0 -862
  62. package/examples/output/allen-interval-calculus.pl +0 -9169
  63. package/examples/output/ancestor.pl +0 -134
  64. package/examples/output/animal.pl +0 -64
  65. package/examples/output/annotation.pl +0 -76
  66. package/examples/output/backward.pl +0 -21
  67. package/examples/output/basic-monadic.pl +0 -22770
  68. package/examples/output/bayes-diagnosis.pl +0 -195
  69. package/examples/output/bayes-therapy.pl +0 -34873
  70. package/examples/output/beam-deflection.pl +0 -222
  71. package/examples/output/blocks-world-planning.pl +0 -1339
  72. package/examples/output/bmi.pl +0 -1903
  73. package/examples/output/braking-safety-worlds.pl +0 -2452
  74. package/examples/output/buck-converter-design.pl +0 -663
  75. package/examples/output/cache-performance.pl +0 -306
  76. package/examples/output/canary-release.pl +0 -167
  77. package/examples/output/cat-koko.pl +0 -83
  78. package/examples/output/clinical-trial-screening.pl +0 -380
  79. package/examples/output/collatz-1000.pl +0 -19000
  80. package/examples/output/combinatorics-findall-sort.pl +0 -56
  81. package/examples/output/competitive-enzyme-kinetics.pl +0 -563
  82. package/examples/output/complex-matrix-stability.pl +0 -250
  83. package/examples/output/complex.pl +0 -653
  84. package/examples/output/composition-of-injective-functions-is-injective.pl +0 -256
  85. package/examples/output/context-association.pl +0 -75
  86. package/examples/output/control-system.pl +0 -328
  87. package/examples/output/cryptarithmetic-send-more-money.pl +0 -168
  88. package/examples/output/cyclic-path.pl +0 -504
  89. package/examples/output/d3-group.pl +0 -56
  90. package/examples/output/dairy-energy-balance.pl +0 -1034
  91. package/examples/output/data-negotiation.pl +0 -75
  92. package/examples/output/deep-taxonomy-10.pl +0 -1235
  93. package/examples/output/deep-taxonomy-100.pl +0 -1235
  94. package/examples/output/deep-taxonomy-1000.pl +0 -1235
  95. package/examples/output/deep-taxonomy-10000.pl +0 -2915
  96. package/examples/output/deep-taxonomy-100000.pl +0 -20240
  97. package/examples/output/delfour.pl +0 -2829
  98. package/examples/output/dense-hamiltonian-cycle.pl +0 -207
  99. package/examples/output/deontic-logic.pl +0 -105
  100. package/examples/output/derived-rule.pl +0 -41
  101. package/examples/output/diamond-property.pl +0 -303
  102. package/examples/output/dijkstra-findall-sort.pl +0 -484
  103. package/examples/output/dijkstra-risk-path.pl +0 -4841
  104. package/examples/output/dijkstra.pl +0 -1336
  105. package/examples/output/dining-philosophers.pl +0 -21646
  106. package/examples/output/dog.pl +0 -30
  107. package/examples/output/drone-corridor-planner.pl +0 -2466
  108. package/examples/output/easter-computus.pl +0 -5690
  109. package/examples/output/electrical-rc-filter.pl +0 -102
  110. package/examples/output/epidemic-policy.pl +0 -760
  111. package/examples/output/equivalence-classes-overlap-implies-same-class.pl +0 -1080
  112. package/examples/output/eulerian-path.pl +0 -383
  113. package/examples/output/ev-range-worlds.pl +0 -2294
  114. package/examples/output/exact-cover-sudoku.pl +0 -396
  115. package/examples/output/existential-rule.pl +0 -38
  116. package/examples/output/exoplanet-validation-worlds.pl +0 -1904
  117. package/examples/output/expression-eval.pl +0 -104
  118. package/examples/output/family-cousins.pl +0 -3852
  119. package/examples/output/fastpow.pl +0 -1064
  120. package/examples/output/fft8-numeric.pl +0 -2556
  121. package/examples/output/fibonacci.pl +0 -2060
  122. package/examples/output/field-nitrogen-balance.pl +0 -1452
  123. package/examples/output/floating-point.pl +0 -151
  124. package/examples/output/four-color-map.pl +0 -191
  125. package/examples/output/fundamental-theorem-arithmetic.pl +0 -1610
  126. package/examples/output/gcd-bezout-identity.pl +0 -1842
  127. package/examples/output/gd-step-certified.pl +0 -32354
  128. package/examples/output/gdpr-compliance.pl +0 -193
  129. package/examples/output/goldbach-1000.pl +0 -17490
  130. package/examples/output/good-cobbler.pl +0 -15
  131. package/examples/output/gps.pl +0 -4166
  132. package/examples/output/graph-reachability.pl +0 -148
  133. package/examples/output/gray-code-counter.pl +0 -835
  134. package/examples/output/greatest-lower-bound-uniqueness.pl +0 -148
  135. package/examples/output/group-inverse-uniqueness.pl +0 -82
  136. package/examples/output/hamiltonian-cycle.pl +0 -102
  137. package/examples/output/hamiltonian-path.pl +0 -14157
  138. package/examples/output/hamming-code.pl +0 -2665
  139. package/examples/output/hanoi.pl +0 -184
  140. package/examples/output/heat-loss.pl +0 -223
  141. package/examples/output/heron-theorem.pl +0 -253
  142. package/examples/output/ideal-gas-law.pl +0 -148
  143. package/examples/output/illegitimate-reasoning.pl +0 -530
  144. package/examples/output/kaprekar.pl +0 -208
  145. package/examples/output/law-of-cosines.pl +0 -165
  146. package/examples/output/least-squares-regression.pl +0 -1447
  147. package/examples/output/list-collection.pl +0 -49
  148. package/examples/output/lldm.pl +0 -17298
  149. package/examples/output/manufacturing-quality-control.pl +0 -562
  150. package/examples/output/matrix.pl +0 -206
  151. package/examples/output/microgrid-dispatch.pl +0 -787
  152. package/examples/output/monkey-bananas.pl +0 -575
  153. package/examples/output/n-queens.pl +0 -2046
  154. package/examples/output/network-sla.pl +0 -282
  155. package/examples/output/newton-raphson.pl +0 -756
  156. package/examples/output/nixon-diamond.pl +0 -176
  157. package/examples/output/odrl-dpv-healthcare-risk-ranked.pl +0 -6148
  158. package/examples/output/odrl-dpv-risk-ranked.pl +0 -12961
  159. package/examples/output/orbital-transfer-design.pl +0 -961
  160. package/examples/output/path-discovery.pl +0 -333
  161. package/examples/output/peano-arithmetic.pl +0 -1432
  162. package/examples/output/peasant.pl +0 -190
  163. package/examples/output/pendulum-period.pl +0 -271
  164. package/examples/output/polynomial.pl +0 -7952
  165. package/examples/output/project-portfolio-optimization.pl +0 -93
  166. package/examples/output/proof-contrapositive.pl +0 -75
  167. package/examples/output/quadratic-formula.pl +0 -454
  168. package/examples/output/quine-mccluskey.pl +0 -188
  169. package/examples/output/radioactive-decay.pl +0 -299
  170. package/examples/output/sat-dpll.pl +0 -121
  171. package/examples/output/security-incident-correlation.pl +0 -267
  172. package/examples/output/service-impact.pl +0 -457
  173. package/examples/output/sieve.pl +0 -19
  174. package/examples/output/skolem-functions.pl +0 -264
  175. package/examples/output/socket-age.pl +0 -31
  176. package/examples/output/socket-family.pl +0 -56
  177. package/examples/output/socrates.pl +0 -36
  178. package/examples/output/statistics-summary.pl +0 -741
  179. package/examples/output/sudoku.pl +0 -38
  180. package/examples/output/superdense-coding.pl +0 -476
  181. package/examples/output/traveling-salesman.pl +0 -284
  182. package/examples/output/turing.pl +0 -2144
  183. package/examples/output/vector-similarity.pl +0 -421
  184. package/examples/output/witch.pl +0 -209
  185. package/examples/output/wolf-goat-cabbage.pl +0 -900
  186. package/examples/output/zebra.pl +0 -401
  187. package/examples/proof/age.pl +71 -0
  188. package/examples/proof/aliases-and-namespaces.pl +78 -0
  189. package/examples/proof/ancestor.pl +140 -0
  190. package/examples/proof/animal.pl +68 -0
  191. package/examples/proof/annotation.pl +80 -0
  192. package/examples/proof/backward.pl +22 -0
  193. package/examples/proof/cat-koko.pl +86 -0
  194. package/examples/proof/data-negotiation.pl +76 -0
  195. package/examples/proof/derived-rule.pl +43 -0
  196. package/examples/proof/dog.pl +31 -0
  197. package/examples/proof/electrical-rc-filter.pl +105 -0
  198. package/examples/proof/existential-rule.pl +40 -0
  199. package/examples/proof/floating-point.pl +160 -0
  200. package/examples/proof/good-cobbler.pl +16 -0
  201. package/examples/proof/group-inverse-uniqueness.pl +84 -0
  202. package/examples/proof/list-collection.pl +52 -0
  203. package/examples/proof/proof-contrapositive.pl +78 -0
  204. package/examples/proof/socket-age.pl +32 -0
  205. package/examples/proof/socket-family.pl +59 -0
  206. package/examples/proof/socrates.pl +38 -0
  207. package/package.json +1 -1
  208. package/playground-worker.mjs +4 -4
  209. package/playground.html +15 -15
  210. package/src/cli.js +9 -9
  211. package/src/index.js +3 -2
  212. package/test/run-examples.js +38 -8
  213. package/test/run-regression.js +29 -37
package/examples/output/monkey-bananas.pl CHANGED
@@ -1,580 +1,5 @@
1
1
  plan(monkeyBananas, [go(loc3), push(loc1), climb_on, grab]).
2
- why(
3
- plan(monkeyBananas, [go(loc3), push(loc1), climb_on, grab]),
4
- proof(
5
- goal(plan(monkeyBananas, [go(loc3), push(loc1), climb_on, grab])),
6
- by(rule("monkey-bananas.pl", clause(17))),
7
- bindings([binding("Moves", [go(loc3), push(loc1), climb_on, grab])]),
8
- uses([
9
- proof(
10
- goal(plan([go(loc3), push(loc1), climb_on, grab])),
11
- by(rule("monkey-bananas.pl", clause(4))),
12
- bindings([binding("Moves", [go(loc3), push(loc1), climb_on, grab]), binding("I", [loc1, loc2, loc3, n, n]), binding("G", [loc1, loc1, loc1, y, y])]),
13
- uses([
14
- proof(
15
- goal(candidate_plan([go(loc3), push(loc1), climb_on, grab])),
16
- by(fact("monkey-bananas.pl", clause(6))),
17
- bindings([binding("__anon3", go(loc3)), binding("__anon4", push(loc1)), binding("__anon5", climb_on), binding("__anon6", grab)])
18
- ),
19
- proof(
20
- goal(initial_state([loc1, loc2, loc3, n, n])),
21
- by(fact("monkey-bananas.pl", clause(10)))
22
- ),
23
- proof(
24
- goal(goal_state([__anon12, __anon13, __anon14, __anon15, y])),
25
- by(fact("monkey-bananas.pl", clause(11)))
26
- ),
27
- proof(
28
- goal(reachable([loc1, loc2, loc3, n, n], [go(loc3), push(loc1), climb_on, grab], [loc1, loc1, loc1, y, y])),
29
- by(rule("monkey-bananas.pl", clause(9))),
30
- bindings([binding("S1", [loc1, loc2, loc3, n, n]), binding("M", go(loc3)), binding("L", [push(loc1), climb_on, grab]), binding("S3", [loc1, loc1, loc1, y, y]), binding("S2", [loc1, loc3, loc3, n, n])]),
31
- uses([
32
- proof(
33
- goal(legal_move([loc1, loc2, loc3, n, n], go(loc3), [loc1, loc3, loc3, n, n])),
34
- by(rule("monkey-bananas.pl", clause(16))),
35
- bindings([binding("B", loc1), binding("M", loc2), binding("L", loc3), binding("H", n), binding("X", loc3)]),
36
- uses([
37
- proof(
38
- goal(member(loc3, [loc1, loc2, loc3])),
39
- by(builtin(member, 2))
40
- ),
41
- proof(
42
- goal(neq(loc3, loc2)),
43
- by(builtin(neq, 2))
44
- )
45
- ])
46
- ),
47
- proof(
48
- goal(reachable([loc1, loc3, loc3, n, n], [push(loc1), climb_on, grab], [loc1, loc1, loc1, y, y])),
49
- by(rule("monkey-bananas.pl", clause(9))),
50
- bindings([binding("S1", [loc1, loc3, loc3, n, n]), binding("M", push(loc1)), binding("L", [climb_on, grab]), binding("S3", [loc1, loc1, loc1, y, y]), binding("S2", [loc1, loc1, loc1, n, n])]),
51
- uses([
52
- proof(
53
- goal(legal_move([loc1, loc3, loc3, n, n], push(loc1), [loc1, loc1, loc1, n, n])),
54
- by(rule("monkey-bananas.pl", clause(15))),
55
- bindings([binding("B", loc1), binding("M", loc3), binding("H", n), binding("X", loc1)]),
56
- uses([
57
- proof(
58
- goal(member(loc1, [loc1, loc2, loc3])),
59
- by(builtin(member, 2))
60
- ),
61
- proof(
62
- goal(neq(loc1, loc3)),
63
- by(builtin(neq, 2))
64
- )
65
- ])
66
- ),
67
- proof(
68
- goal(reachable([loc1, loc1, loc1, n, n], [climb_on, grab], [loc1, loc1, loc1, y, y])),
69
- by(rule("monkey-bananas.pl", clause(9))),
70
- bindings([binding("S1", [loc1, loc1, loc1, n, n]), binding("M", climb_on), binding("L", [grab]), binding("S3", [loc1, loc1, loc1, y, y]), binding("S2", [loc1, loc1, loc1, y, n])]),
71
- uses([
72
- proof(
73
- goal(legal_move([loc1, loc1, loc1, n, n], climb_on, [loc1, loc1, loc1, y, n])),
74
- by(fact("monkey-bananas.pl", clause(12))),
75
- bindings([binding("B", loc1), binding("M", loc1), binding("H", n)])
76
- ),
77
- proof(
78
- goal(reachable([loc1, loc1, loc1, y, n], [grab], [loc1, loc1, loc1, y, y])),
79
- by(rule("monkey-bananas.pl", clause(9))),
80
- bindings([binding("S1", [loc1, loc1, loc1, y, n]), binding("M", grab), binding("L", []), binding("S3", [loc1, loc1, loc1, y, y]), binding("S2", [loc1, loc1, loc1, y, y])]),
81
- uses([
82
- proof(
83
- goal(legal_move([loc1, loc1, loc1, y, n], grab, [loc1, loc1, loc1, y, y])),
84
- by(fact("monkey-bananas.pl", clause(14))),
85
- bindings([binding("B", loc1)])
86
- ),
87
- proof(
88
- goal(reachable([loc1, loc1, loc1, y, y], [], [loc1, loc1, loc1, y, y])),
89
- by(fact("monkey-bananas.pl", clause(8))),
90
- bindings([binding("S", [loc1, loc1, loc1, y, y])])
91
- )
92
- ])
93
- )
94
- ])
95
- )
96
- ])
97
- )
98
- ])
99
- )
100
- ])
101
- )
102
- ])
103
- )
104
- ).
105
-
106
2
  plan(monkeyBananas, [go(loc1), go(loc3), push(loc1), climb_on, grab]).
107
- why(
108
- plan(monkeyBananas, [go(loc1), go(loc3), push(loc1), climb_on, grab]),
109
- proof(
110
- goal(plan(monkeyBananas, [go(loc1), go(loc3), push(loc1), climb_on, grab])),
111
- by(rule("monkey-bananas.pl", clause(17))),
112
- bindings([binding("Moves", [go(loc1), go(loc3), push(loc1), climb_on, grab])]),
113
- uses([
114
- proof(
115
- goal(plan([go(loc1), go(loc3), push(loc1), climb_on, grab])),
116
- by(rule("monkey-bananas.pl", clause(4))),
117
- bindings([binding("Moves", [go(loc1), go(loc3), push(loc1), climb_on, grab]), binding("I", [loc1, loc2, loc3, n, n]), binding("G", [loc1, loc1, loc1, y, y])]),
118
- uses([
119
- proof(
120
- goal(candidate_plan([go(loc1), go(loc3), push(loc1), climb_on, grab])),
121
- by(fact("monkey-bananas.pl", clause(7))),
122
- bindings([binding("__anon7", go(loc1)), binding("__anon8", go(loc3)), binding("__anon9", push(loc1)), binding("__anon10", climb_on), binding("__anon11", grab)])
123
- ),
124
- proof(
125
- goal(initial_state([loc1, loc2, loc3, n, n])),
126
- by(fact("monkey-bananas.pl", clause(10)))
127
- ),
128
- proof(
129
- goal(goal_state([__anon12, __anon13, __anon14, __anon15, y])),
130
- by(fact("monkey-bananas.pl", clause(11)))
131
- ),
132
- proof(
133
- goal(reachable([loc1, loc2, loc3, n, n], [go(loc1), go(loc3), push(loc1), climb_on, grab], [loc1, loc1, loc1, y, y])),
134
- by(rule("monkey-bananas.pl", clause(9))),
135
- bindings([binding("S1", [loc1, loc2, loc3, n, n]), binding("M", go(loc1)), binding("L", [go(loc3), push(loc1), climb_on, grab]), binding("S3", [loc1, loc1, loc1, y, y]), binding("S2", [loc1, loc1, loc3, n, n])]),
136
- uses([
137
- proof(
138
- goal(legal_move([loc1, loc2, loc3, n, n], go(loc1), [loc1, loc1, loc3, n, n])),
139
- by(rule("monkey-bananas.pl", clause(16))),
140
- bindings([binding("B", loc1), binding("M", loc2), binding("L", loc3), binding("H", n), binding("X", loc1)]),
141
- uses([
142
- proof(
143
- goal(member(loc1, [loc1, loc2, loc3])),
144
- by(builtin(member, 2))
145
- ),
146
- proof(
147
- goal(neq(loc1, loc2)),
148
- by(builtin(neq, 2))
149
- )
150
- ])
151
- ),
152
- proof(
153
- goal(reachable([loc1, loc1, loc3, n, n], [go(loc3), push(loc1), climb_on, grab], [loc1, loc1, loc1, y, y])),
154
- by(rule("monkey-bananas.pl", clause(9))),
155
- bindings([binding("S1", [loc1, loc1, loc3, n, n]), binding("M", go(loc3)), binding("L", [push(loc1), climb_on, grab]), binding("S3", [loc1, loc1, loc1, y, y]), binding("S2", [loc1, loc3, loc3, n, n])]),
156
- uses([
157
- proof(
158
- goal(legal_move([loc1, loc1, loc3, n, n], go(loc3), [loc1, loc3, loc3, n, n])),
159
- by(rule("monkey-bananas.pl", clause(16))),
160
- bindings([binding("B", loc1), binding("M", loc1), binding("L", loc3), binding("H", n), binding("X", loc3)]),
161
- uses([
162
- proof(
163
- goal(member(loc3, [loc1, loc2, loc3])),
164
- by(builtin(member, 2))
165
- ),
166
- proof(
167
- goal(neq(loc3, loc1)),
168
- by(builtin(neq, 2))
169
- )
170
- ])
171
- ),
172
- proof(
173
- goal(reachable([loc1, loc3, loc3, n, n], [push(loc1), climb_on, grab], [loc1, loc1, loc1, y, y])),
174
- by(rule("monkey-bananas.pl", clause(9))),
175
- bindings([binding("S1", [loc1, loc3, loc3, n, n]), binding("M", push(loc1)), binding("L", [climb_on, grab]), binding("S3", [loc1, loc1, loc1, y, y]), binding("S2", [loc1, loc1, loc1, n, n])]),
176
- uses([
177
- proof(
178
- goal(legal_move([loc1, loc3, loc3, n, n], push(loc1), [loc1, loc1, loc1, n, n])),
179
- by(rule("monkey-bananas.pl", clause(15))),
180
- bindings([binding("B", loc1), binding("M", loc3), binding("H", n), binding("X", loc1)]),
181
- uses([
182
- proof(
183
- goal(member(loc1, [loc1, loc2, loc3])),
184
- by(builtin(member, 2))
185
- ),
186
- proof(
187
- goal(neq(loc1, loc3)),
188
- by(builtin(neq, 2))
189
- )
190
- ])
191
- ),
192
- proof(
193
- goal(reachable([loc1, loc1, loc1, n, n], [climb_on, grab], [loc1, loc1, loc1, y, y])),
194
- by(rule("monkey-bananas.pl", clause(9))),
195
- bindings([binding("S1", [loc1, loc1, loc1, n, n]), binding("M", climb_on), binding("L", [grab]), binding("S3", [loc1, loc1, loc1, y, y]), binding("S2", [loc1, loc1, loc1, y, n])]),
196
- uses([
197
- proof(
198
- goal(legal_move([loc1, loc1, loc1, n, n], climb_on, [loc1, loc1, loc1, y, n])),
199
- by(fact("monkey-bananas.pl", clause(12))),
200
- bindings([binding("B", loc1), binding("M", loc1), binding("H", n)])
201
- ),
202
- proof(
203
- goal(reachable([loc1, loc1, loc1, y, n], [grab], [loc1, loc1, loc1, y, y])),
204
- by(rule("monkey-bananas.pl", clause(9))),
205
- bindings([binding("S1", [loc1, loc1, loc1, y, n]), binding("M", grab), binding("L", []), binding("S3", [loc1, loc1, loc1, y, y]), binding("S2", [loc1, loc1, loc1, y, y])]),
206
- uses([
207
- proof(
208
- goal(legal_move([loc1, loc1, loc1, y, n], grab, [loc1, loc1, loc1, y, y])),
209
- by(fact("monkey-bananas.pl", clause(14))),
210
- bindings([binding("B", loc1)])
211
- ),
212
- proof(
213
- goal(reachable([loc1, loc1, loc1, y, y], [], [loc1, loc1, loc1, y, y])),
214
- by(fact("monkey-bananas.pl", clause(8))),
215
- bindings([binding("S", [loc1, loc1, loc1, y, y])])
216
- )
217
- ])
218
- )
219
- ])
220
- )
221
- ])
222
- )
223
- ])
224
- )
225
- ])
226
- )
227
- ])
228
- )
229
- ])
230
- )
231
- ).
232
-
233
3
  plan(monkeyBananas, [go(loc3), push(loc1), climb_on, grab, climb_off]).
234
- why(
235
- plan(monkeyBananas, [go(loc3), push(loc1), climb_on, grab, climb_off]),
236
- proof(
237
- goal(plan(monkeyBananas, [go(loc3), push(loc1), climb_on, grab, climb_off])),
238
- by(rule("monkey-bananas.pl", clause(17))),
239
- bindings([binding("Moves", [go(loc3), push(loc1), climb_on, grab, climb_off])]),
240
- uses([
241
- proof(
242
- goal(plan([go(loc3), push(loc1), climb_on, grab, climb_off])),
243
- by(rule("monkey-bananas.pl", clause(4))),
244
- bindings([binding("Moves", [go(loc3), push(loc1), climb_on, grab, climb_off]), binding("I", [loc1, loc2, loc3, n, n]), binding("G", [loc1, loc1, loc1, n, y])]),
245
- uses([
246
- proof(
247
- goal(candidate_plan([go(loc3), push(loc1), climb_on, grab, climb_off])),
248
- by(fact("monkey-bananas.pl", clause(7))),
249
- bindings([binding("__anon7", go(loc3)), binding("__anon8", push(loc1)), binding("__anon9", climb_on), binding("__anon10", grab), binding("__anon11", climb_off)])
250
- ),
251
- proof(
252
- goal(initial_state([loc1, loc2, loc3, n, n])),
253
- by(fact("monkey-bananas.pl", clause(10)))
254
- ),
255
- proof(
256
- goal(goal_state([__anon12, __anon13, __anon14, __anon15, y])),
257
- by(fact("monkey-bananas.pl", clause(11)))
258
- ),
259
- proof(
260
- goal(reachable([loc1, loc2, loc3, n, n], [go(loc3), push(loc1), climb_on, grab, climb_off], [loc1, loc1, loc1, n, y])),
261
- by(rule("monkey-bananas.pl", clause(9))),
262
- bindings([binding("S1", [loc1, loc2, loc3, n, n]), binding("M", go(loc3)), binding("L", [push(loc1), climb_on, grab, climb_off]), binding("S3", [loc1, loc1, loc1, n, y]), binding("S2", [loc1, loc3, loc3, n, n])]),
263
- uses([
264
- proof(
265
- goal(legal_move([loc1, loc2, loc3, n, n], go(loc3), [loc1, loc3, loc3, n, n])),
266
- by(rule("monkey-bananas.pl", clause(16))),
267
- bindings([binding("B", loc1), binding("M", loc2), binding("L", loc3), binding("H", n), binding("X", loc3)]),
268
- uses([
269
- proof(
270
- goal(member(loc3, [loc1, loc2, loc3])),
271
- by(builtin(member, 2))
272
- ),
273
- proof(
274
- goal(neq(loc3, loc2)),
275
- by(builtin(neq, 2))
276
- )
277
- ])
278
- ),
279
- proof(
280
- goal(reachable([loc1, loc3, loc3, n, n], [push(loc1), climb_on, grab, climb_off], [loc1, loc1, loc1, n, y])),
281
- by(rule("monkey-bananas.pl", clause(9))),
282
- bindings([binding("S1", [loc1, loc3, loc3, n, n]), binding("M", push(loc1)), binding("L", [climb_on, grab, climb_off]), binding("S3", [loc1, loc1, loc1, n, y]), binding("S2", [loc1, loc1, loc1, n, n])]),
283
- uses([
284
- proof(
285
- goal(legal_move([loc1, loc3, loc3, n, n], push(loc1), [loc1, loc1, loc1, n, n])),
286
- by(rule("monkey-bananas.pl", clause(15))),
287
- bindings([binding("B", loc1), binding("M", loc3), binding("H", n), binding("X", loc1)]),
288
- uses([
289
- proof(
290
- goal(member(loc1, [loc1, loc2, loc3])),
291
- by(builtin(member, 2))
292
- ),
293
- proof(
294
- goal(neq(loc1, loc3)),
295
- by(builtin(neq, 2))
296
- )
297
- ])
298
- ),
299
- proof(
300
- goal(reachable([loc1, loc1, loc1, n, n], [climb_on, grab, climb_off], [loc1, loc1, loc1, n, y])),
301
- by(rule("monkey-bananas.pl", clause(9))),
302
- bindings([binding("S1", [loc1, loc1, loc1, n, n]), binding("M", climb_on), binding("L", [grab, climb_off]), binding("S3", [loc1, loc1, loc1, n, y]), binding("S2", [loc1, loc1, loc1, y, n])]),
303
- uses([
304
- proof(
305
- goal(legal_move([loc1, loc1, loc1, n, n], climb_on, [loc1, loc1, loc1, y, n])),
306
- by(fact("monkey-bananas.pl", clause(12))),
307
- bindings([binding("B", loc1), binding("M", loc1), binding("H", n)])
308
- ),
309
- proof(
310
- goal(reachable([loc1, loc1, loc1, y, n], [grab, climb_off], [loc1, loc1, loc1, n, y])),
311
- by(rule("monkey-bananas.pl", clause(9))),
312
- bindings([binding("S1", [loc1, loc1, loc1, y, n]), binding("M", grab), binding("L", [climb_off]), binding("S3", [loc1, loc1, loc1, n, y]), binding("S2", [loc1, loc1, loc1, y, y])]),
313
- uses([
314
- proof(
315
- goal(legal_move([loc1, loc1, loc1, y, n], grab, [loc1, loc1, loc1, y, y])),
316
- by(fact("monkey-bananas.pl", clause(14))),
317
- bindings([binding("B", loc1)])
318
- ),
319
- proof(
320
- goal(reachable([loc1, loc1, loc1, y, y], [climb_off], [loc1, loc1, loc1, n, y])),
321
- by(rule("monkey-bananas.pl", clause(9))),
322
- bindings([binding("S1", [loc1, loc1, loc1, y, y]), binding("M", climb_off), binding("L", []), binding("S3", [loc1, loc1, loc1, n, y]), binding("S2", [loc1, loc1, loc1, n, y])]),
323
- uses([
324
- proof(
325
- goal(legal_move([loc1, loc1, loc1, y, y], climb_off, [loc1, loc1, loc1, n, y])),
326
- by(fact("monkey-bananas.pl", clause(13))),
327
- bindings([binding("B", loc1), binding("M", loc1), binding("H", y)])
328
- ),
329
- proof(
330
- goal(reachable([loc1, loc1, loc1, n, y], [], [loc1, loc1, loc1, n, y])),
331
- by(fact("monkey-bananas.pl", clause(8))),
332
- bindings([binding("S", [loc1, loc1, loc1, n, y])])
333
- )
334
- ])
335
- )
336
- ])
337
- )
338
- ])
339
- )
340
- ])
341
- )
342
- ])
343
- )
344
- ])
345
- )
346
- ])
347
- )
348
- ).
349
-
350
4
  plan(monkeyBananas, [go(loc3), push(loc2), push(loc1), climb_on, grab]).
351
- why(
352
- plan(monkeyBananas, [go(loc3), push(loc2), push(loc1), climb_on, grab]),
353
- proof(
354
- goal(plan(monkeyBananas, [go(loc3), push(loc2), push(loc1), climb_on, grab])),
355
- by(rule("monkey-bananas.pl", clause(17))),
356
- bindings([binding("Moves", [go(loc3), push(loc2), push(loc1), climb_on, grab])]),
357
- uses([
358
- proof(
359
- goal(plan([go(loc3), push(loc2), push(loc1), climb_on, grab])),
360
- by(rule("monkey-bananas.pl", clause(4))),
361
- bindings([binding("Moves", [go(loc3), push(loc2), push(loc1), climb_on, grab]), binding("I", [loc1, loc2, loc3, n, n]), binding("G", [loc1, loc1, loc1, y, y])]),
362
- uses([
363
- proof(
364
- goal(candidate_plan([go(loc3), push(loc2), push(loc1), climb_on, grab])),
365
- by(fact("monkey-bananas.pl", clause(7))),
366
- bindings([binding("__anon7", go(loc3)), binding("__anon8", push(loc2)), binding("__anon9", push(loc1)), binding("__anon10", climb_on), binding("__anon11", grab)])
367
- ),
368
- proof(
369
- goal(initial_state([loc1, loc2, loc3, n, n])),
370
- by(fact("monkey-bananas.pl", clause(10)))
371
- ),
372
- proof(
373
- goal(goal_state([__anon12, __anon13, __anon14, __anon15, y])),
374
- by(fact("monkey-bananas.pl", clause(11)))
375
- ),
376
- proof(
377
- goal(reachable([loc1, loc2, loc3, n, n], [go(loc3), push(loc2), push(loc1), climb_on, grab], [loc1, loc1, loc1, y, y])),
378
- by(rule("monkey-bananas.pl", clause(9))),
379
- bindings([binding("S1", [loc1, loc2, loc3, n, n]), binding("M", go(loc3)), binding("L", [push(loc2), push(loc1), climb_on, grab]), binding("S3", [loc1, loc1, loc1, y, y]), binding("S2", [loc1, loc3, loc3, n, n])]),
380
- uses([
381
- proof(
382
- goal(legal_move([loc1, loc2, loc3, n, n], go(loc3), [loc1, loc3, loc3, n, n])),
383
- by(rule("monkey-bananas.pl", clause(16))),
384
- bindings([binding("B", loc1), binding("M", loc2), binding("L", loc3), binding("H", n), binding("X", loc3)]),
385
- uses([
386
- proof(
387
- goal(member(loc3, [loc1, loc2, loc3])),
388
- by(builtin(member, 2))
389
- ),
390
- proof(
391
- goal(neq(loc3, loc2)),
392
- by(builtin(neq, 2))
393
- )
394
- ])
395
- ),
396
- proof(
397
- goal(reachable([loc1, loc3, loc3, n, n], [push(loc2), push(loc1), climb_on, grab], [loc1, loc1, loc1, y, y])),
398
- by(rule("monkey-bananas.pl", clause(9))),
399
- bindings([binding("S1", [loc1, loc3, loc3, n, n]), binding("M", push(loc2)), binding("L", [push(loc1), climb_on, grab]), binding("S3", [loc1, loc1, loc1, y, y]), binding("S2", [loc1, loc2, loc2, n, n])]),
400
- uses([
401
- proof(
402
- goal(legal_move([loc1, loc3, loc3, n, n], push(loc2), [loc1, loc2, loc2, n, n])),
403
- by(rule("monkey-bananas.pl", clause(15))),
404
- bindings([binding("B", loc1), binding("M", loc3), binding("H", n), binding("X", loc2)]),
405
- uses([
406
- proof(
407
- goal(member(loc2, [loc1, loc2, loc3])),
408
- by(builtin(member, 2))
409
- ),
410
- proof(
411
- goal(neq(loc2, loc3)),
412
- by(builtin(neq, 2))
413
- )
414
- ])
415
- ),
416
- proof(
417
- goal(reachable([loc1, loc2, loc2, n, n], [push(loc1), climb_on, grab], [loc1, loc1, loc1, y, y])),
418
- by(rule("monkey-bananas.pl", clause(9))),
419
- bindings([binding("S1", [loc1, loc2, loc2, n, n]), binding("M", push(loc1)), binding("L", [climb_on, grab]), binding("S3", [loc1, loc1, loc1, y, y]), binding("S2", [loc1, loc1, loc1, n, n])]),
420
- uses([
421
- proof(
422
- goal(legal_move([loc1, loc2, loc2, n, n], push(loc1), [loc1, loc1, loc1, n, n])),
423
- by(rule("monkey-bananas.pl", clause(15))),
424
- bindings([binding("B", loc1), binding("M", loc2), binding("H", n), binding("X", loc1)]),
425
- uses([
426
- proof(
427
- goal(member(loc1, [loc1, loc2, loc3])),
428
- by(builtin(member, 2))
429
- ),
430
- proof(
431
- goal(neq(loc1, loc2)),
432
- by(builtin(neq, 2))
433
- )
434
- ])
435
- ),
436
- proof(
437
- goal(reachable([loc1, loc1, loc1, n, n], [climb_on, grab], [loc1, loc1, loc1, y, y])),
438
- by(rule("monkey-bananas.pl", clause(9))),
439
- bindings([binding("S1", [loc1, loc1, loc1, n, n]), binding("M", climb_on), binding("L", [grab]), binding("S3", [loc1, loc1, loc1, y, y]), binding("S2", [loc1, loc1, loc1, y, n])]),
440
- uses([
441
- proof(
442
- goal(legal_move([loc1, loc1, loc1, n, n], climb_on, [loc1, loc1, loc1, y, n])),
443
- by(fact("monkey-bananas.pl", clause(12))),
444
- bindings([binding("B", loc1), binding("M", loc1), binding("H", n)])
445
- ),
446
- proof(
447
- goal(reachable([loc1, loc1, loc1, y, n], [grab], [loc1, loc1, loc1, y, y])),
448
- by(rule("monkey-bananas.pl", clause(9))),
449
- bindings([binding("S1", [loc1, loc1, loc1, y, n]), binding("M", grab), binding("L", []), binding("S3", [loc1, loc1, loc1, y, y]), binding("S2", [loc1, loc1, loc1, y, y])]),
450
- uses([
451
- proof(
452
- goal(legal_move([loc1, loc1, loc1, y, n], grab, [loc1, loc1, loc1, y, y])),
453
- by(fact("monkey-bananas.pl", clause(14))),
454
- bindings([binding("B", loc1)])
455
- ),
456
- proof(
457
- goal(reachable([loc1, loc1, loc1, y, y], [], [loc1, loc1, loc1, y, y])),
458
- by(fact("monkey-bananas.pl", clause(8))),
459
- bindings([binding("S", [loc1, loc1, loc1, y, y])])
460
- )
461
- ])
462
- )
463
- ])
464
- )
465
- ])
466
- )
467
- ])
468
- )
469
- ])
470
- )
471
- ])
472
- )
473
- ])
474
- )
475
- ).
476
-
477
5
  solved(monkeyBananas, true).
478
- why(
479
- solved(monkeyBananas, true),
480
- proof(
481
- goal(solved(monkeyBananas, true)),
482
- by(rule("monkey-bananas.pl", clause(18))),
483
- bindings([binding("_Moves", [go(loc3), push(loc1), climb_on, grab])]),
484
- uses([
485
- proof(
486
- goal(plan([go(loc3), push(loc1), climb_on, grab])),
487
- by(rule("monkey-bananas.pl", clause(4))),
488
- bindings([binding("Moves", [go(loc3), push(loc1), climb_on, grab]), binding("I", [loc1, loc2, loc3, n, n]), binding("G", [loc1, loc1, loc1, y, y])]),
489
- uses([
490
- proof(
491
- goal(candidate_plan([__anon3, __anon4, __anon5, __anon6])),
492
- by(fact("monkey-bananas.pl", clause(6)))
493
- ),
494
- proof(
495
- goal(initial_state([loc1, loc2, loc3, n, n])),
496
- by(fact("monkey-bananas.pl", clause(10)))
497
- ),
498
- proof(
499
- goal(goal_state([__anon12, __anon13, __anon14, __anon15, y])),
500
- by(fact("monkey-bananas.pl", clause(11)))
501
- ),
502
- proof(
503
- goal(reachable([loc1, loc2, loc3, n, n], [go(loc3), push(loc1), climb_on, grab], [loc1, loc1, loc1, y, y])),
504
- by(rule("monkey-bananas.pl", clause(9))),
505
- bindings([binding("S1", [loc1, loc2, loc3, n, n]), binding("M", go(loc3)), binding("L", [push(loc1), climb_on, grab]), binding("S3", [loc1, loc1, loc1, y, y]), binding("S2", [loc1, loc3, loc3, n, n])]),
506
- uses([
507
- proof(
508
- goal(legal_move([loc1, loc2, loc3, n, n], go(loc3), [loc1, loc3, loc3, n, n])),
509
- by(rule("monkey-bananas.pl", clause(16))),
510
- bindings([binding("B", loc1), binding("M", loc2), binding("L", loc3), binding("H", n), binding("X", loc3)]),
511
- uses([
512
- proof(
513
- goal(member(loc3, [loc1, loc2, loc3])),
514
- by(builtin(member, 2))
515
- ),
516
- proof(
517
- goal(neq(loc3, loc2)),
518
- by(builtin(neq, 2))
519
- )
520
- ])
521
- ),
522
- proof(
523
- goal(reachable([loc1, loc3, loc3, n, n], [push(loc1), climb_on, grab], [loc1, loc1, loc1, y, y])),
524
- by(rule("monkey-bananas.pl", clause(9))),
525
- bindings([binding("S1", [loc1, loc3, loc3, n, n]), binding("M", push(loc1)), binding("L", [climb_on, grab]), binding("S3", [loc1, loc1, loc1, y, y]), binding("S2", [loc1, loc1, loc1, n, n])]),
526
- uses([
527
- proof(
528
- goal(legal_move([loc1, loc3, loc3, n, n], push(loc1), [loc1, loc1, loc1, n, n])),
529
- by(rule("monkey-bananas.pl", clause(15))),
530
- bindings([binding("B", loc1), binding("M", loc3), binding("H", n), binding("X", loc1)]),
531
- uses([
532
- proof(
533
- goal(member(loc1, [loc1, loc2, loc3])),
534
- by(builtin(member, 2))
535
- ),
536
- proof(
537
- goal(neq(loc1, loc3)),
538
- by(builtin(neq, 2))
539
- )
540
- ])
541
- ),
542
- proof(
543
- goal(reachable([loc1, loc1, loc1, n, n], [climb_on, grab], [loc1, loc1, loc1, y, y])),
544
- by(rule("monkey-bananas.pl", clause(9))),
545
- bindings([binding("S1", [loc1, loc1, loc1, n, n]), binding("M", climb_on), binding("L", [grab]), binding("S3", [loc1, loc1, loc1, y, y]), binding("S2", [loc1, loc1, loc1, y, n])]),
546
- uses([
547
- proof(
548
- goal(legal_move([loc1, loc1, loc1, n, n], climb_on, [loc1, loc1, loc1, y, n])),
549
- by(fact("monkey-bananas.pl", clause(12))),
550
- bindings([binding("B", loc1), binding("M", loc1), binding("H", n)])
551
- ),
552
- proof(
553
- goal(reachable([loc1, loc1, loc1, y, n], [grab], [loc1, loc1, loc1, y, y])),
554
- by(rule("monkey-bananas.pl", clause(9))),
555
- bindings([binding("S1", [loc1, loc1, loc1, y, n]), binding("M", grab), binding("L", []), binding("S3", [loc1, loc1, loc1, y, y]), binding("S2", [loc1, loc1, loc1, y, y])]),
556
- uses([
557
- proof(
558
- goal(legal_move([loc1, loc1, loc1, y, n], grab, [loc1, loc1, loc1, y, y])),
559
- by(fact("monkey-bananas.pl", clause(14))),
560
- bindings([binding("B", loc1)])
561
- ),
562
- proof(
563
- goal(reachable([loc1, loc1, loc1, y, y], [], [loc1, loc1, loc1, y, y])),
564
- by(fact("monkey-bananas.pl", clause(8))),
565
- bindings([binding("S", [loc1, loc1, loc1, y, y])])
566
- )
567
- ])
568
- )
569
- ])
570
- )
571
- ])
572
- )
573
- ])
574
- )
575
- ])
576
- )
577
- ])
578
- )
579
- ).
580
-