eyelang 1.3.8 → 1.4.0

package/examples/output/quine-mccluskey.pl

@@ -1,191 +1,3 @@
 primeImplicants(quine_mccluskey, [[0, 0, x, x], [0, x, x, 1], [x, x, 1, 1]]).
-why(
-  primeImplicants(quine_mccluskey, [[0, 0, x, x], [0, x, x, 1], [x, x, 1, 1]]),
-  proof(
-    goal(primeImplicants(quine_mccluskey, [[0, 0, x, x], [0, x, x, 1], [x, x, 1, 1]])),
-    by(rule("quine-mccluskey.pl", clause(56))),
-    bindings([binding("Primes", [[0, 0, x, x], [0, x, x, 1], [x, x, 1, 1]])]),
-    uses([
-      proof(
-        goal(prime_implicants([[0, 0, x, x], [0, x, x, 1], [x, x, 1, 1]])),
-        by(rule("quine-mccluskey.pl", clause(42))),
-        bindings([binding("Primes", [[0, 0, x, x], [0, x, x, 1], [x, x, 1, 1]]), binding("Minterms", [1, 3, 7, 11, 15]), binding("DontCares", [0, 2, 5]), binding("Bits", [bit(0, [0, 0, 0, 0]), bit(1, [0, 0, 0, 1]), bit(2, [0, 0, 1, 0]), bit(3, [0, 0, 1, 1]), bit(4, [0, 1, 0, 0]), bit(5, [0, 1, 0, 1]), bit(6, [0, 1, 1, 0]), bit(7, [0, 1, 1, 1]), bit(8, [1, 0, 0, 0]), bit(9, [1, 0, 0, 1]), bit(10, [1, 0, 1, 0]), bit(11, [1, 0, 1, 1]), bit(12, [1, 1, 0, 0]), bit(13, [1, 1, 0, 1]), bit(14, [1, 1, 1, 0]), bit(15, [1, 1, 1, 1])])]),
-        uses([
-          proof(
-            goal(minterms([1, 3, 7, 11, 15])),
-            by(rule("quine-mccluskey.pl", clause(49))),
-            bindings([binding("Minterms", [1, 3, 7, 11, 15]), binding("Raw", [1, 3, 7, 11, 15])]),
-            uses([
-              proof(
-                goal(findall(M, minterm(M), [1, 3, 7, 11, 15])),
-                by(builtin(findall, 3))
-              ),
-              proof(
-                goal(sort([1, 3, 7, 11, 15], [1, 3, 7, 11, 15])),
-                by(builtin(sort, 2))
-              )
-            ])
-          ),
-          proof(
-            goal(dont_cares([0, 2, 5])),
-            by(rule("quine-mccluskey.pl", clause(50))),
-            bindings([binding("DontCares", [0, 2, 5]), binding("Raw", [0, 2, 5])]),
-            uses([
-              proof(
-                goal(findall(D, dont_care(D), [0, 2, 5])),
-                by(builtin(findall, 3))
-              ),
-              proof(
-                goal(sort([0, 2, 5], [0, 2, 5])),
-                by(builtin(sort, 2))
-              )
-            ])
-          ),
-          proof(
-            goal(bit_table([bit(0, [0, 0, 0, 0]), bit(1, [0, 0, 0, 1]), bit(2, [0, 0, 1, 0]), bit(3, [0, 0, 1, 1]), bit(4, [0, 1, 0, 0]), bit(5, [0, 1, 0, 1]), bit(6, [0, 1, 1, 0]), bit(7, [0, 1, 1, 1]), bit(8, [1, 0, 0, 0]), bit(9, [1, 0, 0, 1]), bit(10, [1, 0, 1, 0]), bit(11, [1, 0, 1, 1]), bit(12, [1, 1, 0, 0]), bit(13, [1, 1, 0, 1]), bit(14, [1, 1, 1, 0]), bit(15, [1, 1, 1, 1])])),
-            by(rule("quine-mccluskey.pl", clause(51))),
-            bindings([binding("Bits", [bit(0, [0, 0, 0, 0]), bit(1, [0, 0, 0, 1]), bit(2, [0, 0, 1, 0]), bit(3, [0, 0, 1, 1]), bit(4, [0, 1, 0, 0]), bit(5, [0, 1, 0, 1]), bit(6, [0, 1, 1, 0]), bit(7, [0, 1, 1, 1]), bit(8, [1, 0, 0, 0]), bit(9, [1, 0, 0, 1]), bit(10, [1, 0, 1, 0]), bit(11, [1, 0, 1, 1]), bit(12, [1, 1, 0, 0]), bit(13, [1, 1, 0, 1]), bit(14, [1, 1, 1, 0]), bit(15, [1, 1, 1, 1])])]),
-            uses([
-              proof(
-                goal(findall(bit(N, Pattern), bits(N, Pattern), [bit(0, [0, 0, 0, 0]), bit(1, [0, 0, 0, 1]), bit(2, [0, 0, 1, 0]), bit(3, [0, 0, 1, 1]), bit(4, [0, 1, 0, 0]), bit(5, [0, 1, 0, 1]), bit(6, [0, 1, 1, 0]), bit(7, [0, 1, 1, 1]), bit(8, [1, 0, 0, 0]), bit(9, [1, 0, 0, 1]), bit(10, [1, 0, 1, 0]), bit(11, [1, 0, 1, 1]), bit(12, [1, 1, 0, 0]), bit(13, [1, 1, 0, 1]), bit(14, [1, 1, 1, 0]), bit(15, [1, 1, 1, 1])])),
-                by(builtin(findall, 3))
-              )
-            ])
-          ),
-          proof(
-            goal(qm_prime_implicants([1, 3, 7, 11, 15], [0, 2, 5], [bit(0, [0, 0, 0, 0]), bit(1, [0, 0, 0, 1]), bit(2, [0, 0, 1, 0]), bit(3, [0, 0, 1, 1]), bit(4, [0, 1, 0, 0]), bit(5, [0, 1, 0, 1]), bit(6, [0, 1, 1, 0]), bit(7, [0, 1, 1, 1]), bit(8, [1, 0, 0, 0]), bit(9, [1, 0, 0, 1]), bit(10, [1, 0, 1, 0]), bit(11, [1, 0, 1, 1]), bit(12, [1, 1, 0, 0]), bit(13, [1, 1, 0, 1]), bit(14, [1, 1, 1, 0]), bit(15, [1, 1, 1, 1])], [[0, 0, x, x], [0, x, x, 1], [x, x, 1, 1]])),
-            by(builtin(qm_prime_implicants, 4))
-          )
-        ])
-      )
-    ])
-  )
-).
-
 minimalCover(quine_mccluskey, [[0, 0, x, x], [x, x, 1, 1]]).
-why(
-  minimalCover(quine_mccluskey, [[0, 0, x, x], [x, x, 1, 1]]),
-  proof(
-    goal(minimalCover(quine_mccluskey, [[0, 0, x, x], [x, x, 1, 1]])),
-    by(rule("quine-mccluskey.pl", clause(57))),
-    bindings([binding("Cover", [[0, 0, x, x], [x, x, 1, 1]])]),
-    uses([
-      proof(
-        goal(minimal_cover([[0, 0, x, x], [x, x, 1, 1]])),
-        by(rule("quine-mccluskey.pl", clause(55))),
-        bindings([binding("Cover", [[0, 0, x, x], [x, x, 1, 1]]), binding("Minterms", [1, 3, 7, 11, 15]), binding("DontCares", [0, 2, 5]), binding("Bits", [bit(0, [0, 0, 0, 0]), bit(1, [0, 0, 0, 1]), bit(2, [0, 0, 1, 0]), bit(3, [0, 0, 1, 1]), bit(4, [0, 1, 0, 0]), bit(5, [0, 1, 0, 1]), bit(6, [0, 1, 1, 0]), bit(7, [0, 1, 1, 1]), bit(8, [1, 0, 0, 0]), bit(9, [1, 0, 0, 1]), bit(10, [1, 0, 1, 0]), bit(11, [1, 0, 1, 1]), bit(12, [1, 1, 0, 0]), bit(13, [1, 1, 0, 1]), bit(14, [1, 1, 1, 0]), bit(15, [1, 1, 1, 1])])]),
-        uses([
-          proof(
-            goal(minterms([1, 3, 7, 11, 15])),
-            by(rule("quine-mccluskey.pl", clause(49))),
-            bindings([binding("Minterms", [1, 3, 7, 11, 15]), binding("Raw", [1, 3, 7, 11, 15])]),
-            uses([
-              proof(
-                goal(findall(M, minterm(M), [1, 3, 7, 11, 15])),
-                by(builtin(findall, 3))
-              ),
-              proof(
-                goal(sort([1, 3, 7, 11, 15], [1, 3, 7, 11, 15])),
-                by(builtin(sort, 2))
-              )
-            ])
-          ),
-          proof(
-            goal(dont_cares([0, 2, 5])),
-            by(rule("quine-mccluskey.pl", clause(50))),
-            bindings([binding("DontCares", [0, 2, 5]), binding("Raw", [0, 2, 5])]),
-            uses([
-              proof(
-                goal(findall(D, dont_care(D), [0, 2, 5])),
-                by(builtin(findall, 3))
-              ),
-              proof(
-                goal(sort([0, 2, 5], [0, 2, 5])),
-                by(builtin(sort, 2))
-              )
-            ])
-          ),
-          proof(
-            goal(bit_table([bit(0, [0, 0, 0, 0]), bit(1, [0, 0, 0, 1]), bit(2, [0, 0, 1, 0]), bit(3, [0, 0, 1, 1]), bit(4, [0, 1, 0, 0]), bit(5, [0, 1, 0, 1]), bit(6, [0, 1, 1, 0]), bit(7, [0, 1, 1, 1]), bit(8, [1, 0, 0, 0]), bit(9, [1, 0, 0, 1]), bit(10, [1, 0, 1, 0]), bit(11, [1, 0, 1, 1]), bit(12, [1, 1, 0, 0]), bit(13, [1, 1, 0, 1]), bit(14, [1, 1, 1, 0]), bit(15, [1, 1, 1, 1])])),
-            by(rule("quine-mccluskey.pl", clause(51))),
-            bindings([binding("Bits", [bit(0, [0, 0, 0, 0]), bit(1, [0, 0, 0, 1]), bit(2, [0, 0, 1, 0]), bit(3, [0, 0, 1, 1]), bit(4, [0, 1, 0, 0]), bit(5, [0, 1, 0, 1]), bit(6, [0, 1, 1, 0]), bit(7, [0, 1, 1, 1]), bit(8, [1, 0, 0, 0]), bit(9, [1, 0, 0, 1]), bit(10, [1, 0, 1, 0]), bit(11, [1, 0, 1, 1]), bit(12, [1, 1, 0, 0]), bit(13, [1, 1, 0, 1]), bit(14, [1, 1, 1, 0]), bit(15, [1, 1, 1, 1])])]),
-            uses([
-              proof(
-                goal(findall(bit(N, Pattern), bits(N, Pattern), [bit(0, [0, 0, 0, 0]), bit(1, [0, 0, 0, 1]), bit(2, [0, 0, 1, 0]), bit(3, [0, 0, 1, 1]), bit(4, [0, 1, 0, 0]), bit(5, [0, 1, 0, 1]), bit(6, [0, 1, 1, 0]), bit(7, [0, 1, 1, 1]), bit(8, [1, 0, 0, 0]), bit(9, [1, 0, 0, 1]), bit(10, [1, 0, 1, 0]), bit(11, [1, 0, 1, 1]), bit(12, [1, 1, 0, 0]), bit(13, [1, 1, 0, 1]), bit(14, [1, 1, 1, 0]), bit(15, [1, 1, 1, 1])])),
-                by(builtin(findall, 3))
-              )
-            ])
-          ),
-          proof(
-            goal(qm_minimal_cover([1, 3, 7, 11, 15], [0, 2, 5], [bit(0, [0, 0, 0, 0]), bit(1, [0, 0, 0, 1]), bit(2, [0, 0, 1, 0]), bit(3, [0, 0, 1, 1]), bit(4, [0, 1, 0, 0]), bit(5, [0, 1, 0, 1]), bit(6, [0, 1, 1, 0]), bit(7, [0, 1, 1, 1]), bit(8, [1, 0, 0, 0]), bit(9, [1, 0, 0, 1]), bit(10, [1, 0, 1, 0]), bit(11, [1, 0, 1, 1]), bit(12, [1, 1, 0, 0]), bit(13, [1, 1, 0, 1]), bit(14, [1, 1, 1, 0]), bit(15, [1, 1, 1, 1])], [[0, 0, x, x], [x, x, 1, 1]])),
-            by(builtin(qm_minimal_cover, 4))
-          )
-        ])
-      )
-    ])
-  )
-).
-
 equation(quine_mccluskey, "f = ~A~B + CD").
-why(
-  equation(quine_mccluskey, "f = ~A~B + CD"),
-  proof(
-    goal(equation(quine_mccluskey, "f = ~A~B + CD")),
-    by(rule("quine-mccluskey.pl", clause(58))),
-    uses([
-      proof(
-        goal(minimal_cover([[0, 0, x, x], [x, x, 1, 1]])),
-        by(rule("quine-mccluskey.pl", clause(55))),
-        bindings([binding("Cover", [[0, 0, x, x], [x, x, 1, 1]]), binding("Minterms", [1, 3, 7, 11, 15]), binding("DontCares", [0, 2, 5]), binding("Bits", [bit(0, [0, 0, 0, 0]), bit(1, [0, 0, 0, 1]), bit(2, [0, 0, 1, 0]), bit(3, [0, 0, 1, 1]), bit(4, [0, 1, 0, 0]), bit(5, [0, 1, 0, 1]), bit(6, [0, 1, 1, 0]), bit(7, [0, 1, 1, 1]), bit(8, [1, 0, 0, 0]), bit(9, [1, 0, 0, 1]), bit(10, [1, 0, 1, 0]), bit(11, [1, 0, 1, 1]), bit(12, [1, 1, 0, 0]), bit(13, [1, 1, 0, 1]), bit(14, [1, 1, 1, 0]), bit(15, [1, 1, 1, 1])])]),
-        uses([
-          proof(
-            goal(minterms([1, 3, 7, 11, 15])),
-            by(rule("quine-mccluskey.pl", clause(49))),
-            bindings([binding("Minterms", [1, 3, 7, 11, 15]), binding("Raw", [1, 3, 7, 11, 15])]),
-            uses([
-              proof(
-                goal(findall(M, minterm(M), [1, 3, 7, 11, 15])),
-                by(builtin(findall, 3))
-              ),
-              proof(
-                goal(sort([1, 3, 7, 11, 15], [1, 3, 7, 11, 15])),
-                by(builtin(sort, 2))
-              )
-            ])
-          ),
-          proof(
-            goal(dont_cares([0, 2, 5])),
-            by(rule("quine-mccluskey.pl", clause(50))),
-            bindings([binding("DontCares", [0, 2, 5]), binding("Raw", [0, 2, 5])]),
-            uses([
-              proof(
-                goal(findall(D, dont_care(D), [0, 2, 5])),
-                by(builtin(findall, 3))
-              ),
-              proof(
-                goal(sort([0, 2, 5], [0, 2, 5])),
-                by(builtin(sort, 2))
-              )
-            ])
-          ),
-          proof(
-            goal(bit_table([bit(0, [0, 0, 0, 0]), bit(1, [0, 0, 0, 1]), bit(2, [0, 0, 1, 0]), bit(3, [0, 0, 1, 1]), bit(4, [0, 1, 0, 0]), bit(5, [0, 1, 0, 1]), bit(6, [0, 1, 1, 0]), bit(7, [0, 1, 1, 1]), bit(8, [1, 0, 0, 0]), bit(9, [1, 0, 0, 1]), bit(10, [1, 0, 1, 0]), bit(11, [1, 0, 1, 1]), bit(12, [1, 1, 0, 0]), bit(13, [1, 1, 0, 1]), bit(14, [1, 1, 1, 0]), bit(15, [1, 1, 1, 1])])),
-            by(rule("quine-mccluskey.pl", clause(51))),
-            bindings([binding("Bits", [bit(0, [0, 0, 0, 0]), bit(1, [0, 0, 0, 1]), bit(2, [0, 0, 1, 0]), bit(3, [0, 0, 1, 1]), bit(4, [0, 1, 0, 0]), bit(5, [0, 1, 0, 1]), bit(6, [0, 1, 1, 0]), bit(7, [0, 1, 1, 1]), bit(8, [1, 0, 0, 0]), bit(9, [1, 0, 0, 1]), bit(10, [1, 0, 1, 0]), bit(11, [1, 0, 1, 1]), bit(12, [1, 1, 0, 0]), bit(13, [1, 1, 0, 1]), bit(14, [1, 1, 1, 0]), bit(15, [1, 1, 1, 1])])]),
-            uses([
-              proof(
-                goal(findall(bit(N, Pattern), bits(N, Pattern), [bit(0, [0, 0, 0, 0]), bit(1, [0, 0, 0, 1]), bit(2, [0, 0, 1, 0]), bit(3, [0, 0, 1, 1]), bit(4, [0, 1, 0, 0]), bit(5, [0, 1, 0, 1]), bit(6, [0, 1, 1, 0]), bit(7, [0, 1, 1, 1]), bit(8, [1, 0, 0, 0]), bit(9, [1, 0, 0, 1]), bit(10, [1, 0, 1, 0]), bit(11, [1, 0, 1, 1]), bit(12, [1, 1, 0, 0]), bit(13, [1, 1, 0, 1]), bit(14, [1, 1, 1, 0]), bit(15, [1, 1, 1, 1])])),
-                by(builtin(findall, 3))
-              )
-            ])
-          ),
-          proof(
-            goal(qm_minimal_cover([1, 3, 7, 11, 15], [0, 2, 5], [bit(0, [0, 0, 0, 0]), bit(1, [0, 0, 0, 1]), bit(2, [0, 0, 1, 0]), bit(3, [0, 0, 1, 1]), bit(4, [0, 1, 0, 0]), bit(5, [0, 1, 0, 1]), bit(6, [0, 1, 1, 0]), bit(7, [0, 1, 1, 1]), bit(8, [1, 0, 0, 0]), bit(9, [1, 0, 0, 1]), bit(10, [1, 0, 1, 0]), bit(11, [1, 0, 1, 1]), bit(12, [1, 1, 0, 0]), bit(13, [1, 1, 0, 1]), bit(14, [1, 1, 1, 0]), bit(15, [1, 1, 1, 1])], [[0, 0, x, x], [x, x, 1, 1]])),
-            by(builtin(qm_minimal_cover, 4))
-          )
-        ])
-      )
-    ])
-  )
-).
-

package/examples/output/radioactive-decay.pl

@@ -1,304 +1,5 @@
 halfLivesElapsed(iodine_sample, 2.0).
-why(
-  halfLivesElapsed(iodine_sample, 2.0),
-  proof(
-    goal(halfLivesElapsed(iodine_sample, 2.0)),
-    by(rule("radioactive-decay.pl", clause(15))),
-    bindings([binding("Sample", iodine_sample), binding("Count", 2.0)]),
-    uses([
-      proof(
-        goal(half_lives(iodine_sample, 2.0)),
-        by(rule("radioactive-decay.pl", clause(10))),
-        bindings([binding("Sample", iodine_sample), binding("Count", 2.0), binding("Elapsed", 16.0), binding("HalfLife", 8.0)]),
-        uses([
-          proof(
-            goal(sample(iodine_sample, elapsed_h, 16.0)),
-            by(fact("radioactive-decay.pl", clause(8)))
-          ),
-          proof(
-            goal(sample(iodine_sample, half_life_h, 8.0)),
-            by(fact("radioactive-decay.pl", clause(7)))
-          ),
-          proof(
-            goal(div(16.0, 8.0, 2.0)),
-            by(builtin(div, 3))
-          )
-        ])
-      )
-    ])
-  )
-).
-
 remainingActivity_Bq(iodine_sample, 20.0).
-why(
-  remainingActivity_Bq(iodine_sample, 20.0),
-  proof(
-    goal(remainingActivity_Bq(iodine_sample, 20.0)),
-    by(rule("radioactive-decay.pl", clause(16))),
-    bindings([binding("Sample", iodine_sample), binding("Remaining", 20.0)]),
-    uses([
-      proof(
-        goal(remaining_activity(iodine_sample, 20.0)),
-        by(rule("radioactive-decay.pl", clause(12))),
-        bindings([binding("Sample", iodine_sample), binding("Remaining", 20.0), binding("Initial", 80.0), binding("Fraction", 0.25)]),
-        uses([
-          proof(
-            goal(sample(iodine_sample, initial_activity_bq, 80.0)),
-            by(fact("radioactive-decay.pl", clause(6)))
-          ),
-          proof(
-            goal(remaining_fraction(iodine_sample, 0.25)),
-            by(rule("radioactive-decay.pl", clause(11))),
-            bindings([binding("Sample", iodine_sample), binding("Fraction", 0.25), binding("Count", 2.0)]),
-            uses([
-              proof(
-                goal(half_lives(iodine_sample, 2.0)),
-                by(rule("radioactive-decay.pl", clause(10))),
-                bindings([binding("Sample", iodine_sample), binding("Count", 2.0), binding("Elapsed", 16.0), binding("HalfLife", 8.0)]),
-                uses([
-                  proof(
-                    goal(sample(iodine_sample, elapsed_h, 16.0)),
-                    by(fact("radioactive-decay.pl", clause(8)))
-                  ),
-                  proof(
-                    goal(sample(iodine_sample, half_life_h, 8.0)),
-                    by(fact("radioactive-decay.pl", clause(7)))
-                  ),
-                  proof(
-                    goal(div(16.0, 8.0, 2.0)),
-                    by(builtin(div, 3))
-                  )
-                ])
-              ),
-              proof(
-                goal(pow(0.5, 2.0, 0.25)),
-                by(builtin(pow, 3))
-              )
-            ])
-          ),
-          proof(
-            goal(mul(80.0, 0.25, 20.0)),
-            by(builtin(mul, 3))
-          )
-        ])
-      )
-    ])
-  )
-).
-
 decayedActivity_Bq(iodine_sample, 60.0).
-why(
-  decayedActivity_Bq(iodine_sample, 60.0),
-  proof(
-    goal(decayedActivity_Bq(iodine_sample, 60.0)),
-    by(rule("radioactive-decay.pl", clause(17))),
-    bindings([binding("Sample", iodine_sample), binding("Decayed", 60.0)]),
-    uses([
-      proof(
-        goal(decayed_activity(iodine_sample, 60.0)),
-        by(rule("radioactive-decay.pl", clause(13))),
-        bindings([binding("Sample", iodine_sample), binding("Decayed", 60.0), binding("Initial", 80.0), binding("Remaining", 20.0)]),
-        uses([
-          proof(
-            goal(sample(iodine_sample, initial_activity_bq, 80.0)),
-            by(fact("radioactive-decay.pl", clause(6)))
-          ),
-          proof(
-            goal(remaining_activity(iodine_sample, 20.0)),
-            by(rule("radioactive-decay.pl", clause(12))),
-            bindings([binding("Sample", iodine_sample), binding("Remaining", 20.0), binding("Initial", 80.0), binding("Fraction", 0.25)]),
-            uses([
-              proof(
-                goal(sample(iodine_sample, initial_activity_bq, 80.0)),
-                by(fact("radioactive-decay.pl", clause(6)))
-              ),
-              proof(
-                goal(remaining_fraction(iodine_sample, 0.25)),
-                by(rule("radioactive-decay.pl", clause(11))),
-                bindings([binding("Sample", iodine_sample), binding("Fraction", 0.25), binding("Count", 2.0)]),
-                uses([
-                  proof(
-                    goal(half_lives(iodine_sample, 2.0)),
-                    by(rule("radioactive-decay.pl", clause(10))),
-                    bindings([binding("Sample", iodine_sample), binding("Count", 2.0), binding("Elapsed", 16.0), binding("HalfLife", 8.0)]),
-                    uses([
-                      proof(
-                        goal(sample(iodine_sample, elapsed_h, 16.0)),
-                        by(fact("radioactive-decay.pl", clause(8)))
-                      ),
-                      proof(
-                        goal(sample(iodine_sample, half_life_h, 8.0)),
-                        by(fact("radioactive-decay.pl", clause(7)))
-                      ),
-                      proof(
-                        goal(div(16.0, 8.0, 2.0)),
-                        by(builtin(div, 3))
-                      )
-                    ])
-                  ),
-                  proof(
-                    goal(pow(0.5, 2.0, 0.25)),
-                    by(builtin(pow, 3))
-                  )
-                ])
-              ),
-              proof(
-                goal(mul(80.0, 0.25, 20.0)),
-                by(builtin(mul, 3))
-              )
-            ])
-          ),
-          proof(
-            goal(sub(80.0, 20.0, 60.0)),
-            by(builtin(sub, 3))
-          )
-        ])
-      )
-    ])
-  )
-).
-
 status(iodine_sample, low_activity).
-why(
-  status(iodine_sample, low_activity),
-  proof(
-    goal(status(iodine_sample, low_activity)),
-    by(rule("radioactive-decay.pl", clause(18))),
-    bindings([binding("Sample", iodine_sample)]),
-    uses([
-      proof(
-        goal(low_activity(iodine_sample)),
-        by(rule("radioactive-decay.pl", clause(14))),
-        bindings([binding("Sample", iodine_sample), binding("Remaining", 20.0), binding("Limit", 25.0)]),
-        uses([
-          proof(
-            goal(remaining_activity(iodine_sample, 20.0)),
-            by(rule("radioactive-decay.pl", clause(12))),
-            bindings([binding("Sample", iodine_sample), binding("Remaining", 20.0), binding("Initial", 80.0), binding("Fraction", 0.25)]),
-            uses([
-              proof(
-                goal(sample(iodine_sample, initial_activity_bq, 80.0)),
-                by(fact("radioactive-decay.pl", clause(6)))
-              ),
-              proof(
-                goal(remaining_fraction(iodine_sample, 0.25)),
-                by(rule("radioactive-decay.pl", clause(11))),
-                bindings([binding("Sample", iodine_sample), binding("Fraction", 0.25), binding("Count", 2.0)]),
-                uses([
-                  proof(
-                    goal(half_lives(iodine_sample, 2.0)),
-                    by(rule("radioactive-decay.pl", clause(10))),
-                    bindings([binding("Sample", iodine_sample), binding("Count", 2.0), binding("Elapsed", 16.0), binding("HalfLife", 8.0)]),
-                    uses([
-                      proof(
-                        goal(sample(iodine_sample, elapsed_h, 16.0)),
-                        by(fact("radioactive-decay.pl", clause(8)))
-                      ),
-                      proof(
-                        goal(sample(iodine_sample, half_life_h, 8.0)),
-                        by(fact("radioactive-decay.pl", clause(7)))
-                      ),
-                      proof(
-                        goal(div(16.0, 8.0, 2.0)),
-                        by(builtin(div, 3))
-                      )
-                    ])
-                  ),
-                  proof(
-                    goal(pow(0.5, 2.0, 0.25)),
-                    by(builtin(pow, 3))
-                  )
-                ])
-              ),
-              proof(
-                goal(mul(80.0, 0.25, 20.0)),
-                by(builtin(mul, 3))
-              )
-            ])
-          ),
-          proof(
-            goal(threshold(iodine_sample, low_activity_bq, 25.0)),
-            by(fact("radioactive-decay.pl", clause(9)))
-          ),
-          proof(
-            goal(lt(20.0, 25.0)),
-            by(builtin(lt, 2))
-          )
-        ])
-      )
-    ])
-  )
-).
-
 reason(iodine_sample, "two half-lives leave one quarter of the initial activity").
-why(
-  reason(iodine_sample, "two half-lives leave one quarter of the initial activity"),
-  proof(
-    goal(reason(iodine_sample, "two half-lives leave one quarter of the initial activity")),
-    by(rule("radioactive-decay.pl", clause(19))),
-    bindings([binding("Sample", iodine_sample)]),
-    uses([
-      proof(
-        goal(low_activity(iodine_sample)),
-        by(rule("radioactive-decay.pl", clause(14))),
-        bindings([binding("Sample", iodine_sample), binding("Remaining", 20.0), binding("Limit", 25.0)]),
-        uses([
-          proof(
-            goal(remaining_activity(iodine_sample, 20.0)),
-            by(rule("radioactive-decay.pl", clause(12))),
-            bindings([binding("Sample", iodine_sample), binding("Remaining", 20.0), binding("Initial", 80.0), binding("Fraction", 0.25)]),
-            uses([
-              proof(
-                goal(sample(iodine_sample, initial_activity_bq, 80.0)),
-                by(fact("radioactive-decay.pl", clause(6)))
-              ),
-              proof(
-                goal(remaining_fraction(iodine_sample, 0.25)),
-                by(rule("radioactive-decay.pl", clause(11))),
-                bindings([binding("Sample", iodine_sample), binding("Fraction", 0.25), binding("Count", 2.0)]),
-                uses([
-                  proof(
-                    goal(half_lives(iodine_sample, 2.0)),
-                    by(rule("radioactive-decay.pl", clause(10))),
-                    bindings([binding("Sample", iodine_sample), binding("Count", 2.0), binding("Elapsed", 16.0), binding("HalfLife", 8.0)]),
-                    uses([
-                      proof(
-                        goal(sample(iodine_sample, elapsed_h, 16.0)),
-                        by(fact("radioactive-decay.pl", clause(8)))
-                      ),
-                      proof(
-                        goal(sample(iodine_sample, half_life_h, 8.0)),
-                        by(fact("radioactive-decay.pl", clause(7)))
-                      ),
-                      proof(
-                        goal(div(16.0, 8.0, 2.0)),
-                        by(builtin(div, 3))
-                      )
-                    ])
-                  ),
-                  proof(
-                    goal(pow(0.5, 2.0, 0.25)),
-                    by(builtin(pow, 3))
-                  )
-                ])
-              ),
-              proof(
-                goal(mul(80.0, 0.25, 20.0)),
-                by(builtin(mul, 3))
-              )
-            ])
-          ),
-          proof(
-            goal(threshold(iodine_sample, low_activity_bq, 25.0)),
-            by(fact("radioactive-decay.pl", clause(9)))
-          ),
-          proof(
-            goal(lt(20.0, 25.0)),
-            by(builtin(lt, 2))
-          )
-        ])
-      )
-    ])
-  )
-).
-

package/examples/output/sat-dpll.pl

@@ -1,126 +1,5 @@
 status(sat_instance, satisfiable).
-why(
-  status(sat_instance, satisfiable),
-  proof(
-    goal(status(sat_instance, satisfiable)),
-    by(rule("sat-dpll.pl", clause(19))),
-    bindings([binding("_Assignment", [value(a, false), value(b, true), value(c, false), value(d, true), value(e, false), value(f, true), value(g, false), value(h, true)])]),
-    uses([
-      proof(
-        goal(once(model(sat_instance, [value(a, false), value(b, true), value(c, false), value(d, true), value(e, false), value(f, true), value(g, false), value(h, true)]))),
-        by(builtin(once, 1)),
-        uses([
-          proof(
-            goal(model(sat_instance, [value(a, false), value(b, true), value(c, false), value(d, true), value(e, false), value(f, true), value(g, false), value(h, true)])),
-            by(rule("sat-dpll.pl", clause(18))),
-            bindings([binding("Name", sat_instance), binding("Assignment", [value(a, false), value(b, true), value(c, false), value(d, true), value(e, false), value(f, true), value(g, false), value(h, true)]), binding("Variables", [a, b, c, d, e, f, g, h]), binding("Clauses", [[pos(a), pos(b)], [neg(a), pos(c)], [neg(b), pos(d)], [pos(c), pos(d)], [neg(c), pos(e)], [neg(d), pos(f)], [pos(e), pos(f)], [neg(e), pos(g)], [neg(f), pos(h)], [pos(g), pos(h)], [neg(g), pos(a)], [neg(h), pos(b)]])]),
-            uses([
-              proof(
-                goal(problem(sat_instance, [a, b, c, d, e, f, g, h], [[pos(a), pos(b)], [neg(a), pos(c)], [neg(b), pos(d)], [pos(c), pos(d)], [neg(c), pos(e)], [neg(d), pos(f)], [pos(e), pos(f)], [neg(e), pos(g)], [neg(f), pos(h)], [pos(g), pos(h)], [neg(g), pos(a)], [neg(h), pos(b)]])),
-                by(fact("sat-dpll.pl", clause(7)))
-              ),
-              proof(
-                goal(cnf_model([a, b, c, d, e, f, g, h], [[pos(a), pos(b)], [neg(a), pos(c)], [neg(b), pos(d)], [pos(c), pos(d)], [neg(c), pos(e)], [neg(d), pos(f)], [pos(e), pos(f)], [neg(e), pos(g)], [neg(f), pos(h)], [pos(g), pos(h)], [neg(g), pos(a)], [neg(h), pos(b)]], [value(a, false), value(b, true), value(c, false), value(d, true), value(e, false), value(f, true), value(g, false), value(h, true)])),
-                by(builtin(cnf_model, 3))
-              )
-            ])
-          )
-        ])
-      )
-    ])
-  )
-).
-
 witness(sat_instance, [value(a, false), value(b, true), value(c, false), value(d, true), value(e, false), value(f, true), value(g, false), value(h, true)]).
-why(
-  witness(sat_instance, [value(a, false), value(b, true), value(c, false), value(d, true), value(e, false), value(f, true), value(g, false), value(h, true)]),
-  proof(
-    goal(witness(sat_instance, [value(a, false), value(b, true), value(c, false), value(d, true), value(e, false), value(f, true), value(g, false), value(h, true)])),
-    by(rule("sat-dpll.pl", clause(20))),
-    bindings([binding("Assignment", [value(a, false), value(b, true), value(c, false), value(d, true), value(e, false), value(f, true), value(g, false), value(h, true)])]),
-    uses([
-      proof(
-        goal(once(model(sat_instance, [value(a, false), value(b, true), value(c, false), value(d, true), value(e, false), value(f, true), value(g, false), value(h, true)]))),
-        by(builtin(once, 1)),
-        uses([
-          proof(
-            goal(model(sat_instance, [value(a, false), value(b, true), value(c, false), value(d, true), value(e, false), value(f, true), value(g, false), value(h, true)])),
-            by(rule("sat-dpll.pl", clause(18))),
-            bindings([binding("Name", sat_instance), binding("Assignment", [value(a, false), value(b, true), value(c, false), value(d, true), value(e, false), value(f, true), value(g, false), value(h, true)]), binding("Variables", [a, b, c, d, e, f, g, h]), binding("Clauses", [[pos(a), pos(b)], [neg(a), pos(c)], [neg(b), pos(d)], [pos(c), pos(d)], [neg(c), pos(e)], [neg(d), pos(f)], [pos(e), pos(f)], [neg(e), pos(g)], [neg(f), pos(h)], [pos(g), pos(h)], [neg(g), pos(a)], [neg(h), pos(b)]])]),
-            uses([
-              proof(
-                goal(problem(sat_instance, [a, b, c, d, e, f, g, h], [[pos(a), pos(b)], [neg(a), pos(c)], [neg(b), pos(d)], [pos(c), pos(d)], [neg(c), pos(e)], [neg(d), pos(f)], [pos(e), pos(f)], [neg(e), pos(g)], [neg(f), pos(h)], [pos(g), pos(h)], [neg(g), pos(a)], [neg(h), pos(b)]])),
-                by(fact("sat-dpll.pl", clause(7)))
-              ),
-              proof(
-                goal(cnf_model([a, b, c, d, e, f, g, h], [[pos(a), pos(b)], [neg(a), pos(c)], [neg(b), pos(d)], [pos(c), pos(d)], [neg(c), pos(e)], [neg(d), pos(f)], [pos(e), pos(f)], [neg(e), pos(g)], [neg(f), pos(h)], [pos(g), pos(h)], [neg(g), pos(a)], [neg(h), pos(b)]], [value(a, false), value(b, true), value(c, false), value(d, true), value(e, false), value(f, true), value(g, false), value(h, true)])),
-                by(builtin(cnf_model, 3))
-              )
-            ])
-          )
-        ])
-      )
-    ])
-  )
-).
-
 modelCount(sat_instance, 18).
-why(
-  modelCount(sat_instance, 18),
-  proof(
-    goal(modelCount(sat_instance, 18)),
-    by(rule("sat-dpll.pl", clause(21))),
-    bindings([binding("Count", 18), binding("Models", [[value(a, false), value(b, true), value(c, false), value(d, true), value(e, false), value(f, true), value(g, false), value(h, true)], [value(a, true), value(b, false), value(c, true), value(d, false), value(e, true), value(f, false), value(g, true), value(h, false)], [value(a, true), value(b, true), value(c, true), value(d, true), value(e, true), value(f, true), value(g, true), value(h, true)], [value(a, true), value(b, true), value(c, true), value(d, true), value(e, true), value(f, true), value(g, true), value(h, true)], [value(a, true), value(b, true), value(c, true), value(d, true), value(e, true), value(f, true), value(g, true), value(h, true)], [value(a, true), value(b, true), value(c, true), value(d, true), value(e, true), value(f, true), value(g, true), value(h, true)], [value(a, true), value(b, true), value(c, true), value(d, true), value(e, true), value(f, true), value(g, true), value(h, true)], [value(a, true), value(b, true), value(c, true), value(d, true), value(e, true), value(f, true), value(g, true), value(h, true)], [value(a, true), value(b, true), value(c, true), value(d, true), value(e, true), value(f, true), value(g, true), value(h, true)], [value(a, true), value(b, true), value(c, true), value(d, true), value(e, true), value(f, true), value(g, true), value(h, true)], [value(a, true), value(b, true), value(c, true), value(d, true), value(e, true), value(f, true), value(g, true), value(h, true)], [value(a, true), value(b, true), value(c, true), value(d, true), value(e, true), value(f, true), value(g, true), value(h, true)], [value(a, true), value(b, true), value(c, true), value(d, true), value(e, true), value(f, true), value(g, true), value(h, true)], [value(a, true), value(b, true), value(c, true), value(d, true), value(e, true), value(f, true), value(g, true), value(h, true)], [value(a, true), value(b, true), value(c, true), value(d, true), value(e, true), value(f, true), value(g, true), value(h, true)], [value(a, true), value(b, true), value(c, true), value(d, true), value(e, true), value(f, true), value(g, true), value(h, true)], [value(a, true), value(b, true), value(c, true), value(d, true), value(e, true), value(f, true), value(g, true), value(h, true)], [value(a, true), value(b, true), value(c, true), value(d, true), value(e, true), value(f, true), value(g, true), value(h, true)]])]),
-    uses([
-      proof(
-        goal(findall(Assignment, model(sat_instance, Assignment), [[value(a, false), value(b, true), value(c, false), value(d, true), value(e, false), value(f, true), value(g, false), value(h, true)], [value(a, true), value(b, false), value(c, true), value(d, false), value(e, true), value(f, false), value(g, true), value(h, false)], [value(a, true), value(b, true), value(c, true), value(d, true), value(e, true), value(f, true), value(g, true), value(h, true)], [value(a, true), value(b, true), value(c, true), value(d, true), value(e, true), value(f, true), value(g, true), value(h, true)], [value(a, true), value(b, true), value(c, true), value(d, true), value(e, true), value(f, true), value(g, true), value(h, true)], [value(a, true), value(b, true), value(c, true), value(d, true), value(e, true), value(f, true), value(g, true), value(h, true)], [value(a, true), value(b, true), value(c, true), value(d, true), value(e, true), value(f, true), value(g, true), value(h, true)], [value(a, true), value(b, true), value(c, true), value(d, true), value(e, true), value(f, true), value(g, true), value(h, true)], [value(a, true), value(b, true), value(c, true), value(d, true), value(e, true), value(f, true), value(g, true), value(h, true)], [value(a, true), value(b, true), value(c, true), value(d, true), value(e, true), value(f, true), value(g, true), value(h, true)], [value(a, true), value(b, true), value(c, true), value(d, true), value(e, true), value(f, true), value(g, true), value(h, true)], [value(a, true), value(b, true), value(c, true), value(d, true), value(e, true), value(f, true), value(g, true), value(h, true)], [value(a, true), value(b, true), value(c, true), value(d, true), value(e, true), value(f, true), value(g, true), value(h, true)], [value(a, true), value(b, true), value(c, true), value(d, true), value(e, true), value(f, true), value(g, true), value(h, true)], [value(a, true), value(b, true), value(c, true), value(d, true), value(e, true), value(f, true), value(g, true), value(h, true)], [value(a, true), value(b, true), value(c, true), value(d, true), value(e, true), value(f, true), value(g, true), value(h, true)], [value(a, true), value(b, true), value(c, true), value(d, true), value(e, true), value(f, true), value(g, true), value(h, true)], [value(a, true), value(b, true), value(c, true), value(d, true), value(e, true), value(f, true), value(g, true), value(h, true)]])),
-        by(builtin(findall, 3))
-      ),
-      proof(
-        goal(length([[value(a, false), value(b, true), value(c, false), value(d, true), value(e, false), value(f, true), value(g, false), value(h, true)], [value(a, true), value(b, false), value(c, true), value(d, false), value(e, true), value(f, false), value(g, true), value(h, false)], [value(a, true), value(b, true), value(c, true), value(d, true), value(e, true), value(f, true), value(g, true), value(h, true)], [value(a, true), value(b, true), value(c, true), value(d, true), value(e, true), value(f, true), value(g, true), value(h, true)], [value(a, true), value(b, true), value(c, true), value(d, true), value(e, true), value(f, true), value(g, true), value(h, true)], [value(a, true), value(b, true), value(c, true), value(d, true), value(e, true), value(f, true), value(g, true), value(h, true)], [value(a, true), value(b, true), value(c, true), value(d, true), value(e, true), value(f, true), value(g, true), value(h, true)], [value(a, true), value(b, true), value(c, true), value(d, true), value(e, true), value(f, true), value(g, true), value(h, true)], [value(a, true), value(b, true), value(c, true), value(d, true), value(e, true), value(f, true), value(g, true), value(h, true)], [value(a, true), value(b, true), value(c, true), value(d, true), value(e, true), value(f, true), value(g, true), value(h, true)], [value(a, true), value(b, true), value(c, true), value(d, true), value(e, true), value(f, true), value(g, true), value(h, true)], [value(a, true), value(b, true), value(c, true), value(d, true), value(e, true), value(f, true), value(g, true), value(h, true)], [value(a, true), value(b, true), value(c, true), value(d, true), value(e, true), value(f, true), value(g, true), value(h, true)], [value(a, true), value(b, true), value(c, true), value(d, true), value(e, true), value(f, true), value(g, true), value(h, true)], [value(a, true), value(b, true), value(c, true), value(d, true), value(e, true), value(f, true), value(g, true), value(h, true)], [value(a, true), value(b, true), value(c, true), value(d, true), value(e, true), value(f, true), value(g, true), value(h, true)], [value(a, true), value(b, true), value(c, true), value(d, true), value(e, true), value(f, true), value(g, true), value(h, true)], [value(a, true), value(b, true), value(c, true), value(d, true), value(e, true), value(f, true), value(g, true), value(h, true)]], 18)),
-        by(builtin(length, 2))
-      )
-    ])
-  )
-).
-
 variableCount(sat_instance, 8).
-why(
-  variableCount(sat_instance, 8),
-  proof(
-    goal(variableCount(sat_instance, 8)),
-    by(rule("sat-dpll.pl", clause(22))),
-    bindings([binding("Count", 8), binding("Variables", [a, b, c, d, e, f, g, h]), binding("_Clauses", [[pos(a), pos(b)], [neg(a), pos(c)], [neg(b), pos(d)], [pos(c), pos(d)], [neg(c), pos(e)], [neg(d), pos(f)], [pos(e), pos(f)], [neg(e), pos(g)], [neg(f), pos(h)], [pos(g), pos(h)], [neg(g), pos(a)], [neg(h), pos(b)]])]),
-    uses([
-      proof(
-        goal(problem(sat_instance, [a, b, c, d, e, f, g, h], [[pos(a), pos(b)], [neg(a), pos(c)], [neg(b), pos(d)], [pos(c), pos(d)], [neg(c), pos(e)], [neg(d), pos(f)], [pos(e), pos(f)], [neg(e), pos(g)], [neg(f), pos(h)], [pos(g), pos(h)], [neg(g), pos(a)], [neg(h), pos(b)]])),
-        by(fact("sat-dpll.pl", clause(7)))
-      ),
-      proof(
-        goal(length([a, b, c, d, e, f, g, h], 8)),
-        by(builtin(length, 2))
-      )
-    ])
-  )
-).
-
 clauseCount(sat_instance, 12).
-why(
-  clauseCount(sat_instance, 12),
-  proof(
-    goal(clauseCount(sat_instance, 12)),
-    by(rule("sat-dpll.pl", clause(23))),
-    bindings([binding("Count", 12), binding("_Variables", [a, b, c, d, e, f, g, h]), binding("Clauses", [[pos(a), pos(b)], [neg(a), pos(c)], [neg(b), pos(d)], [pos(c), pos(d)], [neg(c), pos(e)], [neg(d), pos(f)], [pos(e), pos(f)], [neg(e), pos(g)], [neg(f), pos(h)], [pos(g), pos(h)], [neg(g), pos(a)], [neg(h), pos(b)]])]),
-    uses([
-      proof(
-        goal(problem(sat_instance, [a, b, c, d, e, f, g, h], [[pos(a), pos(b)], [neg(a), pos(c)], [neg(b), pos(d)], [pos(c), pos(d)], [neg(c), pos(e)], [neg(d), pos(f)], [pos(e), pos(f)], [neg(e), pos(g)], [neg(f), pos(h)], [pos(g), pos(h)], [neg(g), pos(a)], [neg(h), pos(b)]])),
-        by(fact("sat-dpll.pl", clause(7)))
-      ),
-      proof(
-        goal(length([[pos(a), pos(b)], [neg(a), pos(c)], [neg(b), pos(d)], [pos(c), pos(d)], [neg(c), pos(e)], [neg(d), pos(f)], [pos(e), pos(f)], [neg(e), pos(g)], [neg(f), pos(h)], [pos(g), pos(h)], [neg(g), pos(a)], [neg(h), pos(b)]], 12)),
-        by(builtin(length, 2))
-      )
-    ])
-  )
-).
-