eyelang 1.2.2 → 1.3.1

package/examples/proof/clinical-trial-screening.pl

@@ -1,389 +0,0 @@
-type(p001, trial_candidate).
-why(
-  type(p001, trial_candidate),
-  proof(
-    goal(type(p001, trial_candidate)),
-    by(rule("clinical-trial-screening.pl", clause(34))),
-    bindings([binding("Patient", p001)]),
-    uses([
-      proof(
-        goal(screen_eligible(p001)),
-        by(rule("clinical-trial-screening.pl", clause(30))),
-        bindings([binding("Patient", p001)]),
-        uses([
-          proof(
-            goal(inclusion_adult(p001)),
-            by(rule("clinical-trial-screening.pl", clause(25))),
-            bindings([binding("Patient", p001), binding("Age", 54)]),
-            uses([
-              proof(
-                goal(patient(p001)),
-                by(fact("clinical-trial-screening.pl", clause(4)))
-              ),
-              proof(
-                goal(age(p001, 54)),
-                by(fact("clinical-trial-screening.pl", clause(8)))
-              ),
-              proof(
-                goal(ge(54, 18)),
-                by(builtin(ge, 2))
-              )
-            ])
-          ),
-          proof(
-            goal(inclusion_diagnosis(p001)),
-            by(rule("clinical-trial-screening.pl", clause(26))),
-            bindings([binding("Patient", p001)]),
-            uses([
-              proof(
-                goal(diagnosis(p001, type2_diabetes)),
-                by(fact("clinical-trial-screening.pl", clause(12)))
-              )
-            ])
-          ),
-          proof(
-            goal(inclusion_hba1c(p001)),
-            by(rule("clinical-trial-screening.pl", clause(27))),
-            bindings([binding("Patient", p001), binding("Hba1c", 8.4)]),
-            uses([
-              proof(
-                goal(lab(p001, hba1c_pct, 8.4)),
-                by(fact("clinical-trial-screening.pl", clause(16)))
-              ),
-              proof(
-                goal(ge(8.4, 7.0)),
-                by(builtin(ge, 2))
-              ),
-              proof(
-                goal(le(8.4, 10.5)),
-                by(builtin(le, 2))
-              )
-            ])
-          ),
-          proof(
-            goal(not(exclusion_renal(p001))),
-            by(builtin(not, 1))
-          ),
-          proof(
-            goal(not(exclusion_pregnancy(p001))),
-            by(builtin(not, 1))
-          )
-        ])
-      )
-    ])
-  )
-).
-
-status(p001, eligible).
-why(
-  status(p001, eligible),
-  proof(
-    goal(status(p001, eligible)),
-    by(rule("clinical-trial-screening.pl", clause(35))),
-    bindings([binding("Patient", p001)]),
-    uses([
-      proof(
-        goal(screen_eligible(p001)),
-        by(rule("clinical-trial-screening.pl", clause(30))),
-        bindings([binding("Patient", p001)]),
-        uses([
-          proof(
-            goal(inclusion_adult(p001)),
-            by(rule("clinical-trial-screening.pl", clause(25))),
-            bindings([binding("Patient", p001), binding("Age", 54)]),
-            uses([
-              proof(
-                goal(patient(p001)),
-                by(fact("clinical-trial-screening.pl", clause(4)))
-              ),
-              proof(
-                goal(age(p001, 54)),
-                by(fact("clinical-trial-screening.pl", clause(8)))
-              ),
-              proof(
-                goal(ge(54, 18)),
-                by(builtin(ge, 2))
-              )
-            ])
-          ),
-          proof(
-            goal(inclusion_diagnosis(p001)),
-            by(rule("clinical-trial-screening.pl", clause(26))),
-            bindings([binding("Patient", p001)]),
-            uses([
-              proof(
-                goal(diagnosis(p001, type2_diabetes)),
-                by(fact("clinical-trial-screening.pl", clause(12)))
-              )
-            ])
-          ),
-          proof(
-            goal(inclusion_hba1c(p001)),
-            by(rule("clinical-trial-screening.pl", clause(27))),
-            bindings([binding("Patient", p001), binding("Hba1c", 8.4)]),
-            uses([
-              proof(
-                goal(lab(p001, hba1c_pct, 8.4)),
-                by(fact("clinical-trial-screening.pl", clause(16)))
-              ),
-              proof(
-                goal(ge(8.4, 7.0)),
-                by(builtin(ge, 2))
-              ),
-              proof(
-                goal(le(8.4, 10.5)),
-                by(builtin(le, 2))
-              )
-            ])
-          ),
-          proof(
-            goal(not(exclusion_renal(p001))),
-            by(builtin(not, 1))
-          ),
-          proof(
-            goal(not(exclusion_pregnancy(p001))),
-            by(builtin(not, 1))
-          )
-        ])
-      )
-    ])
-  )
-).
-
-status(p002, screen_fail).
-why(
-  status(p002, screen_fail),
-  proof(
-    goal(status(p002, screen_fail)),
-    by(rule("clinical-trial-screening.pl", clause(37))),
-    bindings([binding("Patient", p002)]),
-    uses([
-      proof(
-        goal(screen_fail(p002)),
-        by(rule("clinical-trial-screening.pl", clause(31))),
-        bindings([binding("Patient", p002)]),
-        uses([
-          proof(
-            goal(exclusion_renal(p002)),
-            by(rule("clinical-trial-screening.pl", clause(28))),
-            bindings([binding("Patient", p002), binding("Egfr", 38.0)]),
-            uses([
-              proof(
-                goal(lab(p002, egfr_ml_min, 38.0)),
-                by(fact("clinical-trial-screening.pl", clause(21)))
-              ),
-              proof(
-                goal(lt(38.0, 45.0)),
-                by(builtin(lt, 2))
-              )
-            ])
-          )
-        ])
-      )
-    ])
-  )
-).
-
-status(p003, screen_fail).
-why(
-  status(p003, screen_fail),
-  proof(
-    goal(status(p003, screen_fail)),
-    by(rule("clinical-trial-screening.pl", clause(37))),
-    bindings([binding("Patient", p003)]),
-    uses([
-      proof(
-        goal(screen_fail(p003)),
-        by(rule("clinical-trial-screening.pl", clause(32))),
-        bindings([binding("Patient", p003)]),
-        uses([
-          proof(
-            goal(exclusion_pregnancy(p003)),
-            by(rule("clinical-trial-screening.pl", clause(29))),
-            bindings([binding("Patient", p003)]),
-            uses([
-              proof(
-                goal(condition(p003, pregnant)),
-                by(fact("clinical-trial-screening.pl", clause(24)))
-              )
-            ])
-          )
-        ])
-      )
-    ])
-  )
-).
-
-status(p004, screen_fail).
-why(
-  status(p004, screen_fail),
-  proof(
-    goal(status(p004, screen_fail)),
-    by(rule("clinical-trial-screening.pl", clause(37))),
-    bindings([binding("Patient", p004)]),
-    uses([
-      proof(
-        goal(screen_fail(p004)),
-        by(rule("clinical-trial-screening.pl", clause(33))),
-        bindings([binding("Patient", p004)]),
-        uses([
-          proof(
-            goal(patient(p004)),
-            by(fact("clinical-trial-screening.pl", clause(7)))
-          ),
-          proof(
-            goal(not(inclusion_hba1c(p004))),
-            by(builtin(not, 1))
-          )
-        ])
-      )
-    ])
-  )
-).
-
-reason(p001, "meets inclusion criteria and no listed exclusion").
-why(
-  reason(p001, "meets inclusion criteria and no listed exclusion"),
-  proof(
-    goal(reason(p001, "meets inclusion criteria and no listed exclusion")),
-    by(rule("clinical-trial-screening.pl", clause(36))),
-    bindings([binding("Patient", p001)]),
-    uses([
-      proof(
-        goal(screen_eligible(p001)),
-        by(rule("clinical-trial-screening.pl", clause(30))),
-        bindings([binding("Patient", p001)]),
-        uses([
-          proof(
-            goal(inclusion_adult(p001)),
-            by(rule("clinical-trial-screening.pl", clause(25))),
-            bindings([binding("Patient", p001), binding("Age", 54)]),
-            uses([
-              proof(
-                goal(patient(p001)),
-                by(fact("clinical-trial-screening.pl", clause(4)))
-              ),
-              proof(
-                goal(age(p001, 54)),
-                by(fact("clinical-trial-screening.pl", clause(8)))
-              ),
-              proof(
-                goal(ge(54, 18)),
-                by(builtin(ge, 2))
-              )
-            ])
-          ),
-          proof(
-            goal(inclusion_diagnosis(p001)),
-            by(rule("clinical-trial-screening.pl", clause(26))),
-            bindings([binding("Patient", p001)]),
-            uses([
-              proof(
-                goal(diagnosis(p001, type2_diabetes)),
-                by(fact("clinical-trial-screening.pl", clause(12)))
-              )
-            ])
-          ),
-          proof(
-            goal(inclusion_hba1c(p001)),
-            by(rule("clinical-trial-screening.pl", clause(27))),
-            bindings([binding("Patient", p001), binding("Hba1c", 8.4)]),
-            uses([
-              proof(
-                goal(lab(p001, hba1c_pct, 8.4)),
-                by(fact("clinical-trial-screening.pl", clause(16)))
-              ),
-              proof(
-                goal(ge(8.4, 7.0)),
-                by(builtin(ge, 2))
-              ),
-              proof(
-                goal(le(8.4, 10.5)),
-                by(builtin(le, 2))
-              )
-            ])
-          ),
-          proof(
-            goal(not(exclusion_renal(p001))),
-            by(builtin(not, 1))
-          ),
-          proof(
-            goal(not(exclusion_pregnancy(p001))),
-            by(builtin(not, 1))
-          )
-        ])
-      )
-    ])
-  )
-).
-
-reason(p002, "eGFR below renal safety threshold").
-why(
-  reason(p002, "eGFR below renal safety threshold"),
-  proof(
-    goal(reason(p002, "eGFR below renal safety threshold")),
-    by(rule("clinical-trial-screening.pl", clause(38))),
-    bindings([binding("Patient", p002)]),
-    uses([
-      proof(
-        goal(exclusion_renal(p002)),
-        by(rule("clinical-trial-screening.pl", clause(28))),
-        bindings([binding("Patient", p002), binding("Egfr", 38.0)]),
-        uses([
-          proof(
-            goal(lab(p002, egfr_ml_min, 38.0)),
-            by(fact("clinical-trial-screening.pl", clause(21)))
-          ),
-          proof(
-            goal(lt(38.0, 45.0)),
-            by(builtin(lt, 2))
-          )
-        ])
-      )
-    ])
-  )
-).
-
-reason(p003, "pregnancy exclusion applies").
-why(
-  reason(p003, "pregnancy exclusion applies"),
-  proof(
-    goal(reason(p003, "pregnancy exclusion applies")),
-    by(rule("clinical-trial-screening.pl", clause(39))),
-    bindings([binding("Patient", p003)]),
-    uses([
-      proof(
-        goal(exclusion_pregnancy(p003)),
-        by(rule("clinical-trial-screening.pl", clause(29))),
-        bindings([binding("Patient", p003)]),
-        uses([
-          proof(
-            goal(condition(p003, pregnant)),
-            by(fact("clinical-trial-screening.pl", clause(24)))
-          )
-        ])
-      )
-    ])
-  )
-).
-
-reason(p004, "HbA1c is outside protocol range").
-why(
-  reason(p004, "HbA1c is outside protocol range"),
-  proof(
-    goal(reason(p004, "HbA1c is outside protocol range")),
-    by(rule("clinical-trial-screening.pl", clause(40))),
-    bindings([binding("Patient", p004)]),
-    uses([
-      proof(
-        goal(patient(p004)),
-        by(fact("clinical-trial-screening.pl", clause(7)))
-      ),
-      proof(
-        goal(not(inclusion_hba1c(p004))),
-        by(builtin(not, 1))
-      )
-    ])
-  )
-).
-

package/examples/proof/composition-of-injective-functions-is-injective.pl

@@ -1,258 +0,0 @@
-sameInputByCompositeInjectivity(h, a, b).
-why(
-  sameInputByCompositeInjectivity(h, a, b),
-  proof(
-    goal(sameInputByCompositeInjectivity(h, a, b)),
-    by(rule("composition-of-injective-functions-is-injective.pl", clause(20))),
-    bindings([binding("H", h), binding("X", a), binding("Y", b), binding("G", g), binding("F", f), binding("Z", e)]),
-    uses([
-      proof(
-        goal(compositeOf(h, g, f)),
-        by(fact("composition-of-injective-functions-is-injective.pl", clause(17)))
-      ),
-      proof(
-        goal(injective(g)),
-        by(fact("composition-of-injective-functions-is-injective.pl", clause(16)))
-      ),
-      proof(
-        goal(injective(f)),
-        by(fact("composition-of-injective-functions-is-injective.pl", clause(15)))
-      ),
-      proof(
-        goal(app(h, a, e)),
-        by(rule("composition-of-injective-functions-is-injective.pl", clause(18))),
-        bindings([binding("H", h), binding("X", a), binding("Z", e), binding("G", g), binding("F", f), binding("Y", c)]),
-        uses([
-          proof(
-            goal(compositeOf(h, g, f)),
-            by(fact("composition-of-injective-functions-is-injective.pl", clause(17)))
-          ),
-          proof(
-            goal(app(f, a, c)),
-            by(fact("composition-of-injective-functions-is-injective.pl", clause(11)))
-          ),
-          proof(
-            goal(app(g, c, e)),
-            by(fact("composition-of-injective-functions-is-injective.pl", clause(13)))
-          )
-        ])
-      ),
-      proof(
-        goal(app(h, b, e)),
-        by(rule("composition-of-injective-functions-is-injective.pl", clause(18))),
-        bindings([binding("H", h), binding("X", b), binding("Z", e), binding("G", g), binding("F", f), binding("Y", d)]),
-        uses([
-          proof(
-            goal(compositeOf(h, g, f)),
-            by(fact("composition-of-injective-functions-is-injective.pl", clause(17)))
-          ),
-          proof(
-            goal(app(f, b, d)),
-            by(fact("composition-of-injective-functions-is-injective.pl", clause(12)))
-          ),
-          proof(
-            goal(app(g, d, e)),
-            by(fact("composition-of-injective-functions-is-injective.pl", clause(14)))
-          )
-        ])
-      ),
-      proof(
-        goal(sameTerm(a, b)),
-        by(rule("composition-of-injective-functions-is-injective.pl", clause(10))),
-        bindings([binding("Y", a), binding("X", b)]),
-        uses([
-          proof(
-            goal(sameTerm(b, a)),
-            by(rule("composition-of-injective-functions-is-injective.pl", clause(19))),
-            bindings([binding("X", b), binding("Y", a), binding("F", f), binding("U", d), binding("V", c)]),
-            uses([
-              proof(
-                goal(injective(f)),
-                by(fact("composition-of-injective-functions-is-injective.pl", clause(15)))
-              ),
-              proof(
-                goal(app(f, b, d)),
-                by(fact("composition-of-injective-functions-is-injective.pl", clause(12)))
-              ),
-              proof(
-                goal(app(f, a, c)),
-                by(fact("composition-of-injective-functions-is-injective.pl", clause(11)))
-              ),
-              proof(
-                goal(sameTerm(d, c)),
-                by(rule("composition-of-injective-functions-is-injective.pl", clause(10))),
-                bindings([binding("Y", d), binding("X", c)]),
-                uses([
-                  proof(
-                    goal(sameTerm(c, d)),
-                    by(rule("composition-of-injective-functions-is-injective.pl", clause(19))),
-                    bindings([binding("X", c), binding("Y", d), binding("F", g), binding("U", e), binding("V", e)]),
-                    uses([
-                      proof(
-                        goal(injective(g)),
-                        by(fact("composition-of-injective-functions-is-injective.pl", clause(16)))
-                      ),
-                      proof(
-                        goal(app(g, c, e)),
-                        by(fact("composition-of-injective-functions-is-injective.pl", clause(13)))
-                      ),
-                      proof(
-                        goal(app(g, d, e)),
-                        by(fact("composition-of-injective-functions-is-injective.pl", clause(14)))
-                      ),
-                      proof(
-                        goal(sameTerm(e, e)),
-                        by(rule("composition-of-injective-functions-is-injective.pl", clause(9))),
-                        bindings([binding("X", e)]),
-                        uses([
-                          proof(
-                            goal(inZ(e)),
-                            by(fact("composition-of-injective-functions-is-injective.pl", clause(6)))
-                          )
-                        ])
-                      )
-                    ])
-                  )
-                ])
-              )
-            ])
-          )
-        ])
-      ),
-      proof(
-        goal(neq(a, b)),
-        by(builtin(neq, 2))
-      )
-    ])
-  )
-).
-
-sameInputByCompositeInjectivity(h, b, a).
-why(
-  sameInputByCompositeInjectivity(h, b, a),
-  proof(
-    goal(sameInputByCompositeInjectivity(h, b, a)),
-    by(rule("composition-of-injective-functions-is-injective.pl", clause(20))),
-    bindings([binding("H", h), binding("X", b), binding("Y", a), binding("G", g), binding("F", f), binding("Z", e)]),
-    uses([
-      proof(
-        goal(compositeOf(h, g, f)),
-        by(fact("composition-of-injective-functions-is-injective.pl", clause(17)))
-      ),
-      proof(
-        goal(injective(g)),
-        by(fact("composition-of-injective-functions-is-injective.pl", clause(16)))
-      ),
-      proof(
-        goal(injective(f)),
-        by(fact("composition-of-injective-functions-is-injective.pl", clause(15)))
-      ),
-      proof(
-        goal(app(h, b, e)),
-        by(rule("composition-of-injective-functions-is-injective.pl", clause(18))),
-        bindings([binding("H", h), binding("X", b), binding("Z", e), binding("G", g), binding("F", f), binding("Y", d)]),
-        uses([
-          proof(
-            goal(compositeOf(h, g, f)),
-            by(fact("composition-of-injective-functions-is-injective.pl", clause(17)))
-          ),
-          proof(
-            goal(app(f, b, d)),
-            by(fact("composition-of-injective-functions-is-injective.pl", clause(12)))
-          ),
-          proof(
-            goal(app(g, d, e)),
-            by(fact("composition-of-injective-functions-is-injective.pl", clause(14)))
-          )
-        ])
-      ),
-      proof(
-        goal(app(h, a, e)),
-        by(rule("composition-of-injective-functions-is-injective.pl", clause(18))),
-        bindings([binding("H", h), binding("X", a), binding("Z", e), binding("G", g), binding("F", f), binding("Y", c)]),
-        uses([
-          proof(
-            goal(compositeOf(h, g, f)),
-            by(fact("composition-of-injective-functions-is-injective.pl", clause(17)))
-          ),
-          proof(
-            goal(app(f, a, c)),
-            by(fact("composition-of-injective-functions-is-injective.pl", clause(11)))
-          ),
-          proof(
-            goal(app(g, c, e)),
-            by(fact("composition-of-injective-functions-is-injective.pl", clause(13)))
-          )
-        ])
-      ),
-      proof(
-        goal(sameTerm(b, a)),
-        by(rule("composition-of-injective-functions-is-injective.pl", clause(10))),
-        bindings([binding("Y", b), binding("X", a)]),
-        uses([
-          proof(
-            goal(sameTerm(a, b)),
-            by(rule("composition-of-injective-functions-is-injective.pl", clause(19))),
-            bindings([binding("X", a), binding("Y", b), binding("F", f), binding("U", c), binding("V", d)]),
-            uses([
-              proof(
-                goal(injective(f)),
-                by(fact("composition-of-injective-functions-is-injective.pl", clause(15)))
-              ),
-              proof(
-                goal(app(f, a, c)),
-                by(fact("composition-of-injective-functions-is-injective.pl", clause(11)))
-              ),
-              proof(
-                goal(app(f, b, d)),
-                by(fact("composition-of-injective-functions-is-injective.pl", clause(12)))
-              ),
-              proof(
-                goal(sameTerm(c, d)),
-                by(rule("composition-of-injective-functions-is-injective.pl", clause(10))),
-                bindings([binding("Y", c), binding("X", d)]),
-                uses([
-                  proof(
-                    goal(sameTerm(d, c)),
-                    by(rule("composition-of-injective-functions-is-injective.pl", clause(19))),
-                    bindings([binding("X", d), binding("Y", c), binding("F", g), binding("U", e), binding("V", e)]),
-                    uses([
-                      proof(
-                        goal(injective(g)),
-                        by(fact("composition-of-injective-functions-is-injective.pl", clause(16)))
-                      ),
-                      proof(
-                        goal(app(g, d, e)),
-                        by(fact("composition-of-injective-functions-is-injective.pl", clause(14)))
-                      ),
-                      proof(
-                        goal(app(g, c, e)),
-                        by(fact("composition-of-injective-functions-is-injective.pl", clause(13)))
-                      ),
-                      proof(
-                        goal(sameTerm(e, e)),
-                        by(rule("composition-of-injective-functions-is-injective.pl", clause(9))),
-                        bindings([binding("X", e)]),
-                        uses([
-                          proof(
-                            goal(inZ(e)),
-                            by(fact("composition-of-injective-functions-is-injective.pl", clause(6)))
-                          )
-                        ])
-                      )
-                    ])
-                  )
-                ])
-              )
-            ])
-          )
-        ])
-      ),
-      proof(
-        goal(neq(b, a)),
-        by(builtin(neq, 2))
-      )
-    ])
-  )
-).
-