eyelang 1.3.8 → 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 (219) 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/examples/socket-age.pl +4 -4
  208. package/examples/socket-family.pl +4 -4
  209. package/package.json +1 -1
  210. package/playground-worker.mjs +4 -4
  211. package/playground.html +15 -15
  212. package/src/cli.js +10 -10
  213. package/src/index.js +3 -2
  214. package/src/parser.js +130 -1
  215. package/src/program.js +33 -27
  216. package/test/run-all.js +0 -0
  217. package/test/run-conformance.js +0 -0
  218. package/test/run-examples.js +38 -8
  219. package/test/run-regression.js +29 -28
package/examples/output/pendulum-period.pl CHANGED
@@ -1,275 +1,4 @@
1
1
  period_s(pendulum1, 2.0).
2
- why(
3
- period_s(pendulum1, 2.0),
4
- proof(
5
- goal(period_s(pendulum1, 2.0)),
6
- by(rule("pendulum-period.pl", clause(13))),
7
- bindings([binding("Experiment", pendulum1), binding("Period", 2.0)]),
8
- uses([
9
- proof(
10
- goal(period(pendulum1, 2.0)),
11
- by(rule("pendulum-period.pl", clause(10))),
12
- bindings([binding("Experiment", pendulum1), binding("Period", 2.0), binding("Length", 1.0), binding("Gravity", 9.869604401089358), binding("Ratio", 0.10132118364233778), binding("Root", 0.31830988618379069), binding("Pi", 3.141592653589793), binding("TwoPi", 6.2831853071795862)]),
13
- uses([
14
- proof(
15
- goal(experiment(pendulum1, length_m, 1.0)),
16
- by(fact("pendulum-period.pl", clause(6)))
17
- ),
18
- proof(
19
- goal(experiment(pendulum1, gravity_m_s2, 9.869604401089358)),
20
- by(fact("pendulum-period.pl", clause(7)))
21
- ),
22
- proof(
23
- goal(div(1.0, 9.869604401089358, 0.10132118364233778)),
24
- by(builtin(div, 3))
25
- ),
26
- proof(
27
- goal(pow(0.10132118364233778, 0.5, 0.31830988618379069)),
28
- by(builtin(pow, 3))
29
- ),
30
- proof(
31
- goal(constant(pi, 3.141592653589793)),
32
- by(fact("pendulum-period.pl", clause(5)))
33
- ),
34
- proof(
35
- goal(mul(2.0, 3.141592653589793, 6.2831853071795862)),
36
- by(builtin(mul, 3))
37
- ),
38
- proof(
39
- goal(mul(6.2831853071795862, 0.31830988618379069, 2.0)),
40
- by(builtin(mul, 3))
41
- )
42
- ])
43
- )
44
- ])
45
- )
46
- ).
47
-
48
2
  periodError_s(pendulum1, 0.0).
49
- why(
50
- periodError_s(pendulum1, 0.0),
51
- proof(
52
- goal(periodError_s(pendulum1, 0.0)),
53
- by(rule("pendulum-period.pl", clause(14))),
54
- bindings([binding("Experiment", pendulum1), binding("Error", 0.0)]),
55
- uses([
56
- proof(
57
- goal(period_error(pendulum1, 0.0)),
58
- by(rule("pendulum-period.pl", clause(11))),
59
- bindings([binding("Experiment", pendulum1), binding("Error", 0.0), binding("Period", 2.0), binding("Target", 2.0), binding("RawError", 0.0)]),
60
- uses([
61
- proof(
62
- goal(period(pendulum1, 2.0)),
63
- by(rule("pendulum-period.pl", clause(10))),
64
- bindings([binding("Experiment", pendulum1), binding("Period", 2.0), binding("Length", 1.0), binding("Gravity", 9.869604401089358), binding("Ratio", 0.10132118364233778), binding("Root", 0.31830988618379069), binding("Pi", 3.141592653589793), binding("TwoPi", 6.2831853071795862)]),
65
- uses([
66
- proof(
67
- goal(experiment(pendulum1, length_m, 1.0)),
68
- by(fact("pendulum-period.pl", clause(6)))
69
- ),
70
- proof(
71
- goal(experiment(pendulum1, gravity_m_s2, 9.869604401089358)),
72
- by(fact("pendulum-period.pl", clause(7)))
73
- ),
74
- proof(
75
- goal(div(1.0, 9.869604401089358, 0.10132118364233778)),
76
- by(builtin(div, 3))
77
- ),
78
- proof(
79
- goal(pow(0.10132118364233778, 0.5, 0.31830988618379069)),
80
- by(builtin(pow, 3))
81
- ),
82
- proof(
83
- goal(constant(pi, 3.141592653589793)),
84
- by(fact("pendulum-period.pl", clause(5)))
85
- ),
86
- proof(
87
- goal(mul(2.0, 3.141592653589793, 6.2831853071795862)),
88
- by(builtin(mul, 3))
89
- ),
90
- proof(
91
- goal(mul(6.2831853071795862, 0.31830988618379069, 2.0)),
92
- by(builtin(mul, 3))
93
- )
94
- ])
95
- ),
96
- proof(
97
- goal(limit(pendulum1, target_period_s, 2.0)),
98
- by(fact("pendulum-period.pl", clause(8)))
99
- ),
100
- proof(
101
- goal(sub(2.0, 2.0, 0.0)),
102
- by(builtin(sub, 3))
103
- ),
104
- proof(
105
- goal(abs(0.0, 0.0)),
106
- by(builtin(abs, 2))
107
- )
108
- ])
109
- )
110
- ])
111
- )
112
- ).
113
-
114
3
  status(pendulum1, within_period_tolerance).
115
- why(
116
- status(pendulum1, within_period_tolerance),
117
- proof(
118
- goal(status(pendulum1, within_period_tolerance)),
119
- by(rule("pendulum-period.pl", clause(15))),
120
- bindings([binding("Experiment", pendulum1)]),
121
- uses([
122
- proof(
123
- goal(within_period_tolerance(pendulum1)),
124
- by(rule("pendulum-period.pl", clause(12))),
125
- bindings([binding("Experiment", pendulum1), binding("Error", 0.0), binding("Tolerance", 0.01)]),
126
- uses([
127
- proof(
128
- goal(period_error(pendulum1, 0.0)),
129
- by(rule("pendulum-period.pl", clause(11))),
130
- bindings([binding("Experiment", pendulum1), binding("Error", 0.0), binding("Period", 2.0), binding("Target", 2.0), binding("RawError", 0.0)]),
131
- uses([
132
- proof(
133
- goal(period(pendulum1, 2.0)),
134
- by(rule("pendulum-period.pl", clause(10))),
135
- bindings([binding("Experiment", pendulum1), binding("Period", 2.0), binding("Length", 1.0), binding("Gravity", 9.869604401089358), binding("Ratio", 0.10132118364233778), binding("Root", 0.31830988618379069), binding("Pi", 3.141592653589793), binding("TwoPi", 6.2831853071795862)]),
136
- uses([
137
- proof(
138
- goal(experiment(pendulum1, length_m, 1.0)),
139
- by(fact("pendulum-period.pl", clause(6)))
140
- ),
141
- proof(
142
- goal(experiment(pendulum1, gravity_m_s2, 9.869604401089358)),
143
- by(fact("pendulum-period.pl", clause(7)))
144
- ),
145
- proof(
146
- goal(div(1.0, 9.869604401089358, 0.10132118364233778)),
147
- by(builtin(div, 3))
148
- ),
149
- proof(
150
- goal(pow(0.10132118364233778, 0.5, 0.31830988618379069)),
151
- by(builtin(pow, 3))
152
- ),
153
- proof(
154
- goal(constant(pi, 3.141592653589793)),
155
- by(fact("pendulum-period.pl", clause(5)))
156
- ),
157
- proof(
158
- goal(mul(2.0, 3.141592653589793, 6.2831853071795862)),
159
- by(builtin(mul, 3))
160
- ),
161
- proof(
162
- goal(mul(6.2831853071795862, 0.31830988618379069, 2.0)),
163
- by(builtin(mul, 3))
164
- )
165
- ])
166
- ),
167
- proof(
168
- goal(limit(pendulum1, target_period_s, 2.0)),
169
- by(fact("pendulum-period.pl", clause(8)))
170
- ),
171
- proof(
172
- goal(sub(2.0, 2.0, 0.0)),
173
- by(builtin(sub, 3))
174
- ),
175
- proof(
176
- goal(abs(0.0, 0.0)),
177
- by(builtin(abs, 2))
178
- )
179
- ])
180
- ),
181
- proof(
182
- goal(limit(pendulum1, tolerance_s, 0.01)),
183
- by(fact("pendulum-period.pl", clause(9)))
184
- ),
185
- proof(
186
- goal(lt(0.0, 0.01)),
187
- by(builtin(lt, 2))
188
- )
189
- ])
190
- )
191
- ])
192
- )
193
- ).
194
-
195
4
  reason(pendulum1, "small-angle period matches the two-second target").
196
- why(
197
- reason(pendulum1, "small-angle period matches the two-second target"),
198
- proof(
199
- goal(reason(pendulum1, "small-angle period matches the two-second target")),
200
- by(rule("pendulum-period.pl", clause(16))),
201
- bindings([binding("Experiment", pendulum1)]),
202
- uses([
203
- proof(
204
- goal(within_period_tolerance(pendulum1)),
205
- by(rule("pendulum-period.pl", clause(12))),
206
- bindings([binding("Experiment", pendulum1), binding("Error", 0.0), binding("Tolerance", 0.01)]),
207
- uses([
208
- proof(
209
- goal(period_error(pendulum1, 0.0)),
210
- by(rule("pendulum-period.pl", clause(11))),
211
- bindings([binding("Experiment", pendulum1), binding("Error", 0.0), binding("Period", 2.0), binding("Target", 2.0), binding("RawError", 0.0)]),
212
- uses([
213
- proof(
214
- goal(period(pendulum1, 2.0)),
215
- by(rule("pendulum-period.pl", clause(10))),
216
- bindings([binding("Experiment", pendulum1), binding("Period", 2.0), binding("Length", 1.0), binding("Gravity", 9.869604401089358), binding("Ratio", 0.10132118364233778), binding("Root", 0.31830988618379069), binding("Pi", 3.141592653589793), binding("TwoPi", 6.2831853071795862)]),
217
- uses([
218
- proof(
219
- goal(experiment(pendulum1, length_m, 1.0)),
220
- by(fact("pendulum-period.pl", clause(6)))
221
- ),
222
- proof(
223
- goal(experiment(pendulum1, gravity_m_s2, 9.869604401089358)),
224
- by(fact("pendulum-period.pl", clause(7)))
225
- ),
226
- proof(
227
- goal(div(1.0, 9.869604401089358, 0.10132118364233778)),
228
- by(builtin(div, 3))
229
- ),
230
- proof(
231
- goal(pow(0.10132118364233778, 0.5, 0.31830988618379069)),
232
- by(builtin(pow, 3))
233
- ),
234
- proof(
235
- goal(constant(pi, 3.141592653589793)),
236
- by(fact("pendulum-period.pl", clause(5)))
237
- ),
238
- proof(
239
- goal(mul(2.0, 3.141592653589793, 6.2831853071795862)),
240
- by(builtin(mul, 3))
241
- ),
242
- proof(
243
- goal(mul(6.2831853071795862, 0.31830988618379069, 2.0)),
244
- by(builtin(mul, 3))
245
- )
246
- ])
247
- ),
248
- proof(
249
- goal(limit(pendulum1, target_period_s, 2.0)),
250
- by(fact("pendulum-period.pl", clause(8)))
251
- ),
252
- proof(
253
- goal(sub(2.0, 2.0, 0.0)),
254
- by(builtin(sub, 3))
255
- ),
256
- proof(
257
- goal(abs(0.0, 0.0)),
258
- by(builtin(abs, 2))
259
- )
260
- ])
261
- ),
262
- proof(
263
- goal(limit(pendulum1, tolerance_s, 0.01)),
264
- by(fact("pendulum-period.pl", clause(9)))
265
- ),
266
- proof(
267
- goal(lt(0.0, 0.01)),
268
- by(builtin(lt, 2))
269
- )
270
- ])
271
- )
272
- ])
273
- )
274
- ).
275
-