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/clinical-trial-screening.pl CHANGED
@@ -1,389 +1,9 @@
1
1
  type(p001, trial_candidate).
2
- why(
3
- type(p001, trial_candidate),
4
- proof(
5
- goal(type(p001, trial_candidate)),
6
- by(rule("clinical-trial-screening.pl", clause(34))),
7
- bindings([binding("Patient", p001)]),
8
- uses([
9
- proof(
10
- goal(screen_eligible(p001)),
11
- by(rule("clinical-trial-screening.pl", clause(30))),
12
- bindings([binding("Patient", p001)]),
13
- uses([
14
- proof(
15
- goal(inclusion_adult(p001)),
16
- by(rule("clinical-trial-screening.pl", clause(25))),
17
- bindings([binding("Patient", p001), binding("Age", 54)]),
18
- uses([
19
- proof(
20
- goal(patient(p001)),
21
- by(fact("clinical-trial-screening.pl", clause(4)))
22
- ),
23
- proof(
24
- goal(age(p001, 54)),
25
- by(fact("clinical-trial-screening.pl", clause(8)))
26
- ),
27
- proof(
28
- goal(ge(54, 18)),
29
- by(builtin(ge, 2))
30
- )
31
- ])
32
- ),
33
- proof(
34
- goal(inclusion_diagnosis(p001)),
35
- by(rule("clinical-trial-screening.pl", clause(26))),
36
- bindings([binding("Patient", p001)]),
37
- uses([
38
- proof(
39
- goal(diagnosis(p001, type2_diabetes)),
40
- by(fact("clinical-trial-screening.pl", clause(12)))
41
- )
42
- ])
43
- ),
44
- proof(
45
- goal(inclusion_hba1c(p001)),
46
- by(rule("clinical-trial-screening.pl", clause(27))),
47
- bindings([binding("Patient", p001), binding("Hba1c", 8.4)]),
48
- uses([
49
- proof(
50
- goal(lab(p001, hba1c_pct, 8.4)),
51
- by(fact("clinical-trial-screening.pl", clause(16)))
52
- ),
53
- proof(
54
- goal(ge(8.4, 7.0)),
55
- by(builtin(ge, 2))
56
- ),
57
- proof(
58
- goal(le(8.4, 10.5)),
59
- by(builtin(le, 2))
60
- )
61
- ])
62
- ),
63
- proof(
64
- goal(not(exclusion_renal(p001))),
65
- by(builtin(not, 1))
66
- ),
67
- proof(
68
- goal(not(exclusion_pregnancy(p001))),
69
- by(builtin(not, 1))
70
- )
71
- ])
72
- )
73
- ])
74
- )
75
- ).
76
-
77
2
  status(p001, eligible).
78
- why(
79
- status(p001, eligible),
80
- proof(
81
- goal(status(p001, eligible)),
82
- by(rule("clinical-trial-screening.pl", clause(35))),
83
- bindings([binding("Patient", p001)]),
84
- uses([
85
- proof(
86
- goal(screen_eligible(p001)),
87
- by(rule("clinical-trial-screening.pl", clause(30))),
88
- bindings([binding("Patient", p001)]),
89
- uses([
90
- proof(
91
- goal(inclusion_adult(p001)),
92
- by(rule("clinical-trial-screening.pl", clause(25))),
93
- bindings([binding("Patient", p001), binding("Age", 54)]),
94
- uses([
95
- proof(
96
- goal(patient(p001)),
97
- by(fact("clinical-trial-screening.pl", clause(4)))
98
- ),
99
- proof(
100
- goal(age(p001, 54)),
101
- by(fact("clinical-trial-screening.pl", clause(8)))
102
- ),
103
- proof(
104
- goal(ge(54, 18)),
105
- by(builtin(ge, 2))
106
- )
107
- ])
108
- ),
109
- proof(
110
- goal(inclusion_diagnosis(p001)),
111
- by(rule("clinical-trial-screening.pl", clause(26))),
112
- bindings([binding("Patient", p001)]),
113
- uses([
114
- proof(
115
- goal(diagnosis(p001, type2_diabetes)),
116
- by(fact("clinical-trial-screening.pl", clause(12)))
117
- )
118
- ])
119
- ),
120
- proof(
121
- goal(inclusion_hba1c(p001)),
122
- by(rule("clinical-trial-screening.pl", clause(27))),
123
- bindings([binding("Patient", p001), binding("Hba1c", 8.4)]),
124
- uses([
125
- proof(
126
- goal(lab(p001, hba1c_pct, 8.4)),
127
- by(fact("clinical-trial-screening.pl", clause(16)))
128
- ),
129
- proof(
130
- goal(ge(8.4, 7.0)),
131
- by(builtin(ge, 2))
132
- ),
133
- proof(
134
- goal(le(8.4, 10.5)),
135
- by(builtin(le, 2))
136
- )
137
- ])
138
- ),
139
- proof(
140
- goal(not(exclusion_renal(p001))),
141
- by(builtin(not, 1))
142
- ),
143
- proof(
144
- goal(not(exclusion_pregnancy(p001))),
145
- by(builtin(not, 1))
146
- )
147
- ])
148
- )
149
- ])
150
- )
151
- ).
152
-
153
3
  status(p002, screen_fail).
154
- why(
155
- status(p002, screen_fail),
156
- proof(
157
- goal(status(p002, screen_fail)),
158
- by(rule("clinical-trial-screening.pl", clause(37))),
159
- bindings([binding("Patient", p002)]),
160
- uses([
161
- proof(
162
- goal(screen_fail(p002)),
163
- by(rule("clinical-trial-screening.pl", clause(31))),
164
- bindings([binding("Patient", p002)]),
165
- uses([
166
- proof(
167
- goal(exclusion_renal(p002)),
168
- by(rule("clinical-trial-screening.pl", clause(28))),
169
- bindings([binding("Patient", p002), binding("Egfr", 38.0)]),
170
- uses([
171
- proof(
172
- goal(lab(p002, egfr_ml_min, 38.0)),
173
- by(fact("clinical-trial-screening.pl", clause(21)))
174
- ),
175
- proof(
176
- goal(lt(38.0, 45.0)),
177
- by(builtin(lt, 2))
178
- )
179
- ])
180
- )
181
- ])
182
- )
183
- ])
184
- )
185
- ).
186
-
187
4
  status(p003, screen_fail).
188
- why(
189
- status(p003, screen_fail),
190
- proof(
191
- goal(status(p003, screen_fail)),
192
- by(rule("clinical-trial-screening.pl", clause(37))),
193
- bindings([binding("Patient", p003)]),
194
- uses([
195
- proof(
196
- goal(screen_fail(p003)),
197
- by(rule("clinical-trial-screening.pl", clause(32))),
198
- bindings([binding("Patient", p003)]),
199
- uses([
200
- proof(
201
- goal(exclusion_pregnancy(p003)),
202
- by(rule("clinical-trial-screening.pl", clause(29))),
203
- bindings([binding("Patient", p003)]),
204
- uses([
205
- proof(
206
- goal(condition(p003, pregnant)),
207
- by(fact("clinical-trial-screening.pl", clause(24)))
208
- )
209
- ])
210
- )
211
- ])
212
- )
213
- ])
214
- )
215
- ).
216
-
217
5
  status(p004, screen_fail).
218
- why(
219
- status(p004, screen_fail),
220
- proof(
221
- goal(status(p004, screen_fail)),
222
- by(rule("clinical-trial-screening.pl", clause(37))),
223
- bindings([binding("Patient", p004)]),
224
- uses([
225
- proof(
226
- goal(screen_fail(p004)),
227
- by(rule("clinical-trial-screening.pl", clause(33))),
228
- bindings([binding("Patient", p004)]),
229
- uses([
230
- proof(
231
- goal(patient(p004)),
232
- by(fact("clinical-trial-screening.pl", clause(7)))
233
- ),
234
- proof(
235
- goal(not(inclusion_hba1c(p004))),
236
- by(builtin(not, 1))
237
- )
238
- ])
239
- )
240
- ])
241
- )
242
- ).
243
-
244
6
  reason(p001, "meets inclusion criteria and no listed exclusion").
245
- why(
246
- reason(p001, "meets inclusion criteria and no listed exclusion"),
247
- proof(
248
- goal(reason(p001, "meets inclusion criteria and no listed exclusion")),
249
- by(rule("clinical-trial-screening.pl", clause(36))),
250
- bindings([binding("Patient", p001)]),
251
- uses([
252
- proof(
253
- goal(screen_eligible(p001)),
254
- by(rule("clinical-trial-screening.pl", clause(30))),
255
- bindings([binding("Patient", p001)]),
256
- uses([
257
- proof(
258
- goal(inclusion_adult(p001)),
259
- by(rule("clinical-trial-screening.pl", clause(25))),
260
- bindings([binding("Patient", p001), binding("Age", 54)]),
261
- uses([
262
- proof(
263
- goal(patient(p001)),
264
- by(fact("clinical-trial-screening.pl", clause(4)))
265
- ),
266
- proof(
267
- goal(age(p001, 54)),
268
- by(fact("clinical-trial-screening.pl", clause(8)))
269
- ),
270
- proof(
271
- goal(ge(54, 18)),
272
- by(builtin(ge, 2))
273
- )
274
- ])
275
- ),
276
- proof(
277
- goal(inclusion_diagnosis(p001)),
278
- by(rule("clinical-trial-screening.pl", clause(26))),
279
- bindings([binding("Patient", p001)]),
280
- uses([
281
- proof(
282
- goal(diagnosis(p001, type2_diabetes)),
283
- by(fact("clinical-trial-screening.pl", clause(12)))
284
- )
285
- ])
286
- ),
287
- proof(
288
- goal(inclusion_hba1c(p001)),
289
- by(rule("clinical-trial-screening.pl", clause(27))),
290
- bindings([binding("Patient", p001), binding("Hba1c", 8.4)]),
291
- uses([
292
- proof(
293
- goal(lab(p001, hba1c_pct, 8.4)),
294
- by(fact("clinical-trial-screening.pl", clause(16)))
295
- ),
296
- proof(
297
- goal(ge(8.4, 7.0)),
298
- by(builtin(ge, 2))
299
- ),
300
- proof(
301
- goal(le(8.4, 10.5)),
302
- by(builtin(le, 2))
303
- )
304
- ])
305
- ),
306
- proof(
307
- goal(not(exclusion_renal(p001))),
308
- by(builtin(not, 1))
309
- ),
310
- proof(
311
- goal(not(exclusion_pregnancy(p001))),
312
- by(builtin(not, 1))
313
- )
314
- ])
315
- )
316
- ])
317
- )
318
- ).
319
-
320
7
  reason(p002, "eGFR below renal safety threshold").
321
- why(
322
- reason(p002, "eGFR below renal safety threshold"),
323
- proof(
324
- goal(reason(p002, "eGFR below renal safety threshold")),
325
- by(rule("clinical-trial-screening.pl", clause(38))),
326
- bindings([binding("Patient", p002)]),
327
- uses([
328
- proof(
329
- goal(exclusion_renal(p002)),
330
- by(rule("clinical-trial-screening.pl", clause(28))),
331
- bindings([binding("Patient", p002), binding("Egfr", 38.0)]),
332
- uses([
333
- proof(
334
- goal(lab(p002, egfr_ml_min, 38.0)),
335
- by(fact("clinical-trial-screening.pl", clause(21)))
336
- ),
337
- proof(
338
- goal(lt(38.0, 45.0)),
339
- by(builtin(lt, 2))
340
- )
341
- ])
342
- )
343
- ])
344
- )
345
- ).
346
-
347
8
  reason(p003, "pregnancy exclusion applies").
348
- why(
349
- reason(p003, "pregnancy exclusion applies"),
350
- proof(
351
- goal(reason(p003, "pregnancy exclusion applies")),
352
- by(rule("clinical-trial-screening.pl", clause(39))),
353
- bindings([binding("Patient", p003)]),
354
- uses([
355
- proof(
356
- goal(exclusion_pregnancy(p003)),
357
- by(rule("clinical-trial-screening.pl", clause(29))),
358
- bindings([binding("Patient", p003)]),
359
- uses([
360
- proof(
361
- goal(condition(p003, pregnant)),
362
- by(fact("clinical-trial-screening.pl", clause(24)))
363
- )
364
- ])
365
- )
366
- ])
367
- )
368
- ).
369
-
370
9
  reason(p004, "HbA1c is outside protocol range").
371
- why(
372
- reason(p004, "HbA1c is outside protocol range"),
373
- proof(
374
- goal(reason(p004, "HbA1c is outside protocol range")),
375
- by(rule("clinical-trial-screening.pl", clause(40))),
376
- bindings([binding("Patient", p004)]),
377
- uses([
378
- proof(
379
- goal(patient(p004)),
380
- by(fact("clinical-trial-screening.pl", clause(7)))
381
- ),
382
- proof(
383
- goal(not(inclusion_hba1c(p004))),
384
- by(builtin(not, 1))
385
- )
386
- ])
387
- )
388
- ).
389
-