eyelang 1.3.8 → 1.4.0

package/examples/output/dense-hamiltonian-cycle.pl

@@ -1,211 +1,4 @@
 best(dense_hamiltonian_cycle, result(52, [a, b, c, d, e, f, g, h, a])).
-why(
-  best(dense_hamiltonian_cycle, result(52, [a, b, c, d, e, f, g, h, a])),
-  proof(
-    goal(best(dense_hamiltonian_cycle, result(52, [a, b, c, d, e, f, g, h, a]))),
-    by(rule("dense-hamiltonian-cycle.pl", clause(46))),
-    bindings([binding("Cost", 52), binding("Cycle", [a, b, c, d, e, f, g, h, a]), binding("Cities", [a, b, c, d, e, f, g, h]), binding("_Key", [52, [a, b, c, d, e, f, g, h, a]])]),
-    uses([
-      proof(
-        goal(cities([a, b, c, d, e, f, g, h])),
-        by(fact("dense-hamiltonian-cycle.pl", clause(5)))
-      ),
-      proof(
-        goal(aggregate_min([52, [a, b, c, d, e, f, g, h, a]], result(52, [a, b, c, d, e, f, g, h, a]), candidate_cycle([a, b, c, d, e, f, g, h], [a, b, c, d, e, f, g, h, a], 52), [52, [a, b, c, d, e, f, g, h, a]], result(52, [a, b, c, d, e, f, g, h, a]))),
-        by(builtin(aggregate_min, 5))
-      )
-    ])
-  )
-).
-
 candidateCount(dense_hamiltonian_cycle, 2520).
-why(
-  candidateCount(dense_hamiltonian_cycle, 2520),
-  proof(
-    goal(candidateCount(dense_hamiltonian_cycle, 2520)),
-    by(rule("dense-hamiltonian-cycle.pl", clause(47))),
-    bindings([binding("Count", 2520), binding("_Start", a), binding("Rest", [b, c, d, e, f, g, h]), binding("N", 7), binding("Permutations", 5040)]),
-    uses([
-      proof(
-        goal(cities([a, b, c, d, e, f, g, h])),
-        by(fact("dense-hamiltonian-cycle.pl", clause(5)))
-      ),
-      proof(
-        goal(length([b, c, d, e, f, g, h], 7)),
-        by(builtin(length, 2))
-      ),
-      proof(
-        goal(factorial(7, 5040)),
-        by(rule("dense-hamiltonian-cycle.pl", clause(45))),
-        bindings([binding("N", 7), binding("F", 5040), binding("N0", 6), binding("F0", 720)]),
-        uses([
-          proof(
-            goal(gt(7, 0)),
-            by(builtin(gt, 2))
-          ),
-          proof(
-            goal(sub(7, 1, 6)),
-            by(builtin(sub, 3))
-          ),
-          proof(
-            goal(factorial(6, 720)),
-            by(rule("dense-hamiltonian-cycle.pl", clause(45))),
-            bindings([binding("N", 6), binding("F", 720), binding("N0", 5), binding("F0", 120)]),
-            uses([
-              proof(
-                goal(gt(6, 0)),
-                by(builtin(gt, 2))
-              ),
-              proof(
-                goal(sub(6, 1, 5)),
-                by(builtin(sub, 3))
-              ),
-              proof(
-                goal(factorial(5, 120)),
-                by(rule("dense-hamiltonian-cycle.pl", clause(45))),
-                bindings([binding("N", 5), binding("F", 120), binding("N0", 4), binding("F0", 24)]),
-                uses([
-                  proof(
-                    goal(gt(5, 0)),
-                    by(builtin(gt, 2))
-                  ),
-                  proof(
-                    goal(sub(5, 1, 4)),
-                    by(builtin(sub, 3))
-                  ),
-                  proof(
-                    goal(factorial(4, 24)),
-                    by(rule("dense-hamiltonian-cycle.pl", clause(45))),
-                    bindings([binding("N", 4), binding("F", 24), binding("N0", 3), binding("F0", 6)]),
-                    uses([
-                      proof(
-                        goal(gt(4, 0)),
-                        by(builtin(gt, 2))
-                      ),
-                      proof(
-                        goal(sub(4, 1, 3)),
-                        by(builtin(sub, 3))
-                      ),
-                      proof(
-                        goal(factorial(3, 6)),
-                        by(rule("dense-hamiltonian-cycle.pl", clause(45))),
-                        bindings([binding("N", 3), binding("F", 6), binding("N0", 2), binding("F0", 2)]),
-                        uses([
-                          proof(
-                            goal(gt(3, 0)),
-                            by(builtin(gt, 2))
-                          ),
-                          proof(
-                            goal(sub(3, 1, 2)),
-                            by(builtin(sub, 3))
-                          ),
-                          proof(
-                            goal(factorial(2, 2)),
-                            by(rule("dense-hamiltonian-cycle.pl", clause(45))),
-                            bindings([binding("N", 2), binding("F", 2), binding("N0", 1), binding("F0", 1)]),
-                            uses([
-                              proof(
-                                goal(gt(2, 0)),
-                                by(builtin(gt, 2))
-                              ),
-                              proof(
-                                goal(sub(2, 1, 1)),
-                                by(builtin(sub, 3))
-                              ),
-                              proof(
-                                goal(factorial(1, 1)),
-                                by(rule("dense-hamiltonian-cycle.pl", clause(45))),
-                                bindings([binding("N", 1), binding("F", 1), binding("N0", 0), binding("F0", 1)]),
-                                uses([
-                                  proof(
-                                    goal(gt(1, 0)),
-                                    by(builtin(gt, 2))
-                                  ),
-                                  proof(
-                                    goal(sub(1, 1, 0)),
-                                    by(builtin(sub, 3))
-                                  ),
-                                  proof(
-                                    goal(factorial(0, 1)),
-                                    by(fact("dense-hamiltonian-cycle.pl", clause(44)))
-                                  ),
-                                  proof(
-                                    goal(mul(1, 1, 1)),
-                                    by(builtin(mul, 3))
-                                  )
-                                ])
-                              ),
-                              proof(
-                                goal(mul(2, 1, 2)),
-                                by(builtin(mul, 3))
-                              )
-                            ])
-                          ),
-                          proof(
-                            goal(mul(3, 2, 6)),
-                            by(builtin(mul, 3))
-                          )
-                        ])
-                      ),
-                      proof(
-                        goal(mul(4, 6, 24)),
-                        by(builtin(mul, 3))
-                      )
-                    ])
-                  ),
-                  proof(
-                    goal(mul(5, 24, 120)),
-                    by(builtin(mul, 3))
-                  )
-                ])
-              ),
-              proof(
-                goal(mul(6, 120, 720)),
-                by(builtin(mul, 3))
-              )
-            ])
-          ),
-          proof(
-            goal(mul(7, 720, 5040)),
-            by(builtin(mul, 3))
-          )
-        ])
-      ),
-      proof(
-        goal(div(5040, 2, 2520)),
-        by(builtin(div, 3))
-      )
-    ])
-  )
-).
-
 status(dense_hamiltonian_cycle, symmetry_broken_complete_graph_searched).
-why(
-  status(dense_hamiltonian_cycle, symmetry_broken_complete_graph_searched),
-  proof(
-    goal(status(dense_hamiltonian_cycle, symmetry_broken_complete_graph_searched)),
-    by(rule("dense-hamiltonian-cycle.pl", clause(48))),
-    uses([
-      proof(
-        goal(eq(ok, ok)),
-        by(builtin(eq, 2))
-      )
-    ])
-  )
-).
-
 reason(dense_hamiltonian_cycle, "symmetry-broken permutation search scores Hamiltonian cycles and aggregate_min selects the cheapest candidate").
-why(
-  reason(dense_hamiltonian_cycle, "symmetry-broken permutation search scores Hamiltonian cycles and aggregate_min selects the cheapest candidate"),
-  proof(
-    goal(reason(dense_hamiltonian_cycle, "symmetry-broken permutation search scores Hamiltonian cycles and aggregate_min selects the cheapest candidate")),
-    by(rule("dense-hamiltonian-cycle.pl", clause(49))),
-    uses([
-      proof(
-        goal(eq(ok, ok)),
-        by(builtin(eq, 2))
-      )
-    ])
-  )
-).
-

package/examples/output/deontic-logic.pl

@@ -1,109 +1,4 @@
 violation(alice, missed_obligation(obtain_consent)).
-why(
-  violation(alice, missed_obligation(obtain_consent)),
-  proof(
-    goal(violation(alice, missed_obligation(obtain_consent))),
-    by(rule("deontic-logic.pl", clause(14))),
-    bindings([binding("Actor", alice), binding("Action", obtain_consent)]),
-    uses([
-      proof(
-        goal(obliged(alice, obtain_consent)),
-        by(fact("deontic-logic.pl", clause(7)))
-      ),
-      proof(
-        goal(not_performed(alice, obtain_consent)),
-        by(fact("deontic-logic.pl", clause(12)))
-      )
-    ])
-  )
-).
-
 violation(alice, prohibited_action(share_record)).
-why(
-  violation(alice, prohibited_action(share_record)),
-  proof(
-    goal(violation(alice, prohibited_action(share_record))),
-    by(rule("deontic-logic.pl", clause(15))),
-    bindings([binding("Actor", alice), binding("Action", share_record)]),
-    uses([
-      proof(
-        goal(prohibited(alice, share_record)),
-        by(fact("deontic-logic.pl", clause(8)))
-      ),
-      proof(
-        goal(performed(alice, share_record)),
-        by(fact("deontic-logic.pl", clause(10)))
-      )
-    ])
-  )
-).
-
 compensation(alice, compensation(share_record, notify_dpo)).
-why(
-  compensation(alice, compensation(share_record, notify_dpo)),
-  proof(
-    goal(compensation(alice, compensation(share_record, notify_dpo))),
-    by(rule("deontic-logic.pl", clause(19))),
-    bindings([binding("Actor", alice), binding("Action", share_record), binding("Compensation", notify_dpo)]),
-    uses([
-      proof(
-        goal(compensated_violation(alice, share_record, notify_dpo)),
-        by(rule("deontic-logic.pl", clause(16))),
-        bindings([binding("Actor", alice), binding("Action", share_record), binding("Compensation", notify_dpo)]),
-        uses([
-          proof(
-            goal(prohibited(alice, share_record)),
-            by(fact("deontic-logic.pl", clause(8)))
-          ),
-          proof(
-            goal(performed(alice, share_record)),
-            by(fact("deontic-logic.pl", clause(10)))
-          ),
-          proof(
-            goal(compensates(share_record, notify_dpo)),
-            by(fact("deontic-logic.pl", clause(9)))
-          ),
-          proof(
-            goal(performed(alice, notify_dpo)),
-            by(fact("deontic-logic.pl", clause(11)))
-          )
-        ])
-      )
-    ])
-  )
-).
-
 status(alice, requires_review).
-why(
-  status(alice, requires_review),
-  proof(
-    goal(status(alice, requires_review)),
-    by(rule("deontic-logic.pl", clause(20))),
-    bindings([binding("Actor", alice), binding("_Violation", missed_obligation(obtain_consent))]),
-    uses([
-      proof(
-        goal(uncompensated_violation(alice, missed_obligation(obtain_consent))),
-        by(rule("deontic-logic.pl", clause(17))),
-        bindings([binding("Actor", alice), binding("Action", obtain_consent)]),
-        uses([
-          proof(
-            goal(violation(alice, missed_obligation(obtain_consent))),
-            by(rule("deontic-logic.pl", clause(14))),
-            bindings([binding("Actor", alice), binding("Action", obtain_consent)]),
-            uses([
-              proof(
-                goal(obliged(alice, obtain_consent)),
-                by(fact("deontic-logic.pl", clause(7)))
-              ),
-              proof(
-                goal(not_performed(alice, obtain_consent)),
-                by(fact("deontic-logic.pl", clause(12)))
-              )
-            ])
-          )
-        ])
-      )
-    ])
-  )
-).
-

package/examples/output/derived-rule.pl

@@ -1,43 +1,2 @@
 log_implies(type(var(y), dog), is(test, true)).
-why(
-  log_implies(type(var(y), dog), is(test, true)),
-  proof(
-    goal(log_implies(type(var(y), dog), is(test, true))),
-    by(rule("derived-rule.pl", clause(6))),
-    bindings([binding("_X", minka)]),
-    uses([
-      proof(
-        goal(type(minka, cat)),
-        by(fact("derived-rule.pl", clause(4)))
-      )
-    ])
-  )
-).
-
 is(test, true).
-why(
-  is(test, true),
-  proof(
-    goal(is(test, true)),
-    by(rule("derived-rule.pl", clause(7))),
-    bindings([binding("_Y", charly)]),
-    uses([
-      proof(
-        goal(log_implies(type(var(y), dog), is(test, true))),
-        by(rule("derived-rule.pl", clause(6))),
-        bindings([binding("_X", minka)]),
-        uses([
-          proof(
-            goal(type(minka, cat)),
-            by(fact("derived-rule.pl", clause(4)))
-          )
-        ])
-      ),
-      proof(
-        goal(type(charly, dog)),
-        by(fact("derived-rule.pl", clause(5)))
-      )
-    ])
-  )
-).
-

package/examples/output/diamond-property.pl

@@ -1,307 +1,4 @@
 holdsFor(diamondProperty, r).
-why(
-  holdsFor(diamondProperty, r),
-  proof(
-    goal(holdsFor(diamondProperty, r)),
-    by(rule("diamond-property.pl", clause(17))),
-    bindings([binding("Rel", r)]),
-    uses([
-      proof(
-        goal(diamond(r, a, b, c, d)),
-        by(rule("diamond-property.pl", clause(14))),
-        bindings([binding("Rel", r), binding("A", a), binding("B", b), binding("C", c), binding("D", d)]),
-        uses([
-          proof(
-            goal(step(r, a, b)),
-            by(rule("diamond-property.pl", clause(15))),
-            bindings([binding("X", a), binding("Y", b)]),
-            uses([
-              proof(
-                goal(r(a, b)),
-                by(fact("diamond-property.pl", clause(8)))
-              )
-            ])
-          ),
-          proof(
-            goal(step(r, a, c)),
-            by(rule("diamond-property.pl", clause(15))),
-            bindings([binding("X", a), binding("Y", c)]),
-            uses([
-              proof(
-                goal(r(a, c)),
-                by(fact("diamond-property.pl", clause(9)))
-              )
-            ])
-          ),
-          proof(
-            goal(step(r, b, d)),
-            by(rule("diamond-property.pl", clause(15))),
-            bindings([binding("X", b), binding("Y", d)]),
-            uses([
-              proof(
-                goal(r(b, d)),
-                by(fact("diamond-property.pl", clause(10)))
-              )
-            ])
-          ),
-          proof(
-            goal(step(r, c, d)),
-            by(rule("diamond-property.pl", clause(15))),
-            bindings([binding("X", c), binding("Y", d)]),
-            uses([
-              proof(
-                goal(r(c, d)),
-                by(fact("diamond-property.pl", clause(11)))
-              )
-            ])
-          )
-        ])
-      )
-    ])
-  )
-).
-
 holdsFor(diamondProperty, re).
-why(
-  holdsFor(diamondProperty, re),
-  proof(
-    goal(holdsFor(diamondProperty, re)),
-    by(rule("diamond-property.pl", clause(17))),
-    bindings([binding("Rel", re)]),
-    uses([
-      proof(
-        goal(diamond(re, a, b, c, d)),
-        by(rule("diamond-property.pl", clause(14))),
-        bindings([binding("Rel", re), binding("A", a), binding("B", b), binding("C", c), binding("D", d)]),
-        uses([
-          proof(
-            goal(step(re, a, b)),
-            by(rule("diamond-property.pl", clause(16))),
-            bindings([binding("X", a), binding("Y", b)]),
-            uses([
-              proof(
-                goal(re(a, b)),
-                by(rule("diamond-property.pl", clause(13))),
-                bindings([binding("X", a), binding("Y", b)]),
-                uses([
-                  proof(
-                    goal(r(a, b)),
-                    by(fact("diamond-property.pl", clause(8)))
-                  )
-                ])
-              )
-            ])
-          ),
-          proof(
-            goal(step(re, a, c)),
-            by(rule("diamond-property.pl", clause(16))),
-            bindings([binding("X", a), binding("Y", c)]),
-            uses([
-              proof(
-                goal(re(a, c)),
-                by(rule("diamond-property.pl", clause(13))),
-                bindings([binding("X", a), binding("Y", c)]),
-                uses([
-                  proof(
-                    goal(r(a, c)),
-                    by(fact("diamond-property.pl", clause(9)))
-                  )
-                ])
-              )
-            ])
-          ),
-          proof(
-            goal(step(re, b, d)),
-            by(rule("diamond-property.pl", clause(16))),
-            bindings([binding("X", b), binding("Y", d)]),
-            uses([
-              proof(
-                goal(re(b, d)),
-                by(rule("diamond-property.pl", clause(13))),
-                bindings([binding("X", b), binding("Y", d)]),
-                uses([
-                  proof(
-                    goal(r(b, d)),
-                    by(fact("diamond-property.pl", clause(10)))
-                  )
-                ])
-              )
-            ])
-          ),
-          proof(
-            goal(step(re, c, d)),
-            by(rule("diamond-property.pl", clause(16))),
-            bindings([binding("X", c), binding("Y", d)]),
-            uses([
-              proof(
-                goal(re(c, d)),
-                by(rule("diamond-property.pl", clause(13))),
-                bindings([binding("X", c), binding("Y", d)]),
-                uses([
-                  proof(
-                    goal(r(c, d)),
-                    by(fact("diamond-property.pl", clause(11)))
-                  )
-                ])
-              )
-            ])
-          )
-        ])
-      )
-    ])
-  )
-).
-
 commonSuccessor(diamondProperty, d).
-why(
-  commonSuccessor(diamondProperty, d),
-  proof(
-    goal(commonSuccessor(diamondProperty, d)),
-    by(rule("diamond-property.pl", clause(18))),
-    bindings([binding("D", d)]),
-    uses([
-      proof(
-        goal(diamond(r, a, b, c, d)),
-        by(rule("diamond-property.pl", clause(14))),
-        bindings([binding("Rel", r), binding("A", a), binding("B", b), binding("C", c), binding("D", d)]),
-        uses([
-          proof(
-            goal(step(r, a, b)),
-            by(rule("diamond-property.pl", clause(15))),
-            bindings([binding("X", a), binding("Y", b)]),
-            uses([
-              proof(
-                goal(r(a, b)),
-                by(fact("diamond-property.pl", clause(8)))
-              )
-            ])
-          ),
-          proof(
-            goal(step(r, a, c)),
-            by(rule("diamond-property.pl", clause(15))),
-            bindings([binding("X", a), binding("Y", c)]),
-            uses([
-              proof(
-                goal(r(a, c)),
-                by(fact("diamond-property.pl", clause(9)))
-              )
-            ])
-          ),
-          proof(
-            goal(step(r, b, d)),
-            by(rule("diamond-property.pl", clause(15))),
-            bindings([binding("X", b), binding("Y", d)]),
-            uses([
-              proof(
-                goal(r(b, d)),
-                by(fact("diamond-property.pl", clause(10)))
-              )
-            ])
-          ),
-          proof(
-            goal(step(r, c, d)),
-            by(rule("diamond-property.pl", clause(15))),
-            bindings([binding("X", c), binding("Y", d)]),
-            uses([
-              proof(
-                goal(r(c, d)),
-                by(fact("diamond-property.pl", clause(11)))
-              )
-            ])
-          )
-        ])
-      )
-    ])
-  )
-).
-
 preservedUnderReflexiveClosure(diamondProperty, true).
-why(
-  preservedUnderReflexiveClosure(diamondProperty, true),
-  proof(
-    goal(preservedUnderReflexiveClosure(diamondProperty, true)),
-    by(rule("diamond-property.pl", clause(19))),
-    uses([
-      proof(
-        goal(diamond(re, a, b, c, d)),
-        by(rule("diamond-property.pl", clause(14))),
-        bindings([binding("Rel", re), binding("A", a), binding("B", b), binding("C", c), binding("D", d)]),
-        uses([
-          proof(
-            goal(step(re, a, b)),
-            by(rule("diamond-property.pl", clause(16))),
-            bindings([binding("X", a), binding("Y", b)]),
-            uses([
-              proof(
-                goal(re(a, b)),
-                by(rule("diamond-property.pl", clause(13))),
-                bindings([binding("X", a), binding("Y", b)]),
-                uses([
-                  proof(
-                    goal(r(a, b)),
-                    by(fact("diamond-property.pl", clause(8)))
-                  )
-                ])
-              )
-            ])
-          ),
-          proof(
-            goal(step(re, a, c)),
-            by(rule("diamond-property.pl", clause(16))),
-            bindings([binding("X", a), binding("Y", c)]),
-            uses([
-              proof(
-                goal(re(a, c)),
-                by(rule("diamond-property.pl", clause(13))),
-                bindings([binding("X", a), binding("Y", c)]),
-                uses([
-                  proof(
-                    goal(r(a, c)),
-                    by(fact("diamond-property.pl", clause(9)))
-                  )
-                ])
-              )
-            ])
-          ),
-          proof(
-            goal(step(re, b, d)),
-            by(rule("diamond-property.pl", clause(16))),
-            bindings([binding("X", b), binding("Y", d)]),
-            uses([
-              proof(
-                goal(re(b, d)),
-                by(rule("diamond-property.pl", clause(13))),
-                bindings([binding("X", b), binding("Y", d)]),
-                uses([
-                  proof(
-                    goal(r(b, d)),
-                    by(fact("diamond-property.pl", clause(10)))
-                  )
-                ])
-              )
-            ])
-          ),
-          proof(
-            goal(step(re, c, d)),
-            by(rule("diamond-property.pl", clause(16))),
-            bindings([binding("X", c), binding("Y", d)]),
-            uses([
-              proof(
-                goal(re(c, d)),
-                by(rule("diamond-property.pl", clause(13))),
-                bindings([binding("X", c), binding("Y", d)]),
-                uses([
-                  proof(
-                    goal(r(c, d)),
-                    by(fact("diamond-property.pl", clause(11)))
-                  )
-                ])
-              )
-            ])
-          )
-        ])
-      )
-    ])
-  )
-).
-