eyeprolog 1.5.97 → 1.5.99

package/examples/output/propositional-dynamic-logic.pl

@@ -0,0 +1 @@
+answer(true, true, true, false, true, true, true).

package/examples/proof/attributed-variables.pl

@@ -0,0 +1,62 @@
+accepts_required_value(ok).
+why(
+  accepts_required_value(ok),
+  proof(
+    goal(accepts_required_value(ok)),
+    by(rule("attributed-variables.pl", clause(4))),
+    bindings([binding("X", 7)]),
+    uses([
+      proof(
+        goal(attach_required(Variable, 7)),
+        by(rule("attributed-variables.pl", clause(1))),
+        bindings([binding("Value", 7)]),
+        uses([
+          proof(
+            goal(put_atts(Variable, required(7))),
+            by(builtin(put_atts, 2))
+          )
+        ])
+      ),
+      proof(
+        goal(=(7, 7)),
+        by(builtin(=, 2))
+      )
+    ])
+  )
+).
+
+alias_preserves_attribute(ok).
+why(
+  alias_preserves_attribute(ok),
+  proof(
+    goal(alias_preserves_attribute(ok)),
+    by(rule("attributed-variables.pl", clause(5))),
+    bindings([binding("X", ready), binding("Y", ready)]),
+    uses([
+      proof(
+        goal(attach_required(Variable, ready)),
+        by(rule("attributed-variables.pl", clause(1))),
+        bindings([binding("Value", ready)]),
+        uses([
+          proof(
+            goal(put_atts(Variable, required(ready))),
+            by(builtin(put_atts, 2))
+          )
+        ])
+      ),
+      proof(
+        goal(=(Y, Y)),
+        by(builtin(=, 2))
+      ),
+      proof(
+        goal(get_atts(Y, required(ready))),
+        by(builtin(get_atts, 2))
+      ),
+      proof(
+        goal(=(ready, ready)),
+        by(builtin(=, 2))
+      )
+    ])
+  )
+).
+

package/examples/proof/catalan-convolution.pl

@@ -0,0 +1,139 @@
+catalan_answer(catalan_12, 208012).
+why(
+  catalan_answer(catalan_12, 208012),
+  proof(
+    goal(catalan_answer(catalan_12, 208012)),
+    by(rule("catalan-convolution.pl", clause(6))),
+    bindings([binding("C", 208012)]),
+    uses([
+      proof(
+        goal(catalan(12, 208012)),
+        by(rule("catalan-convolution.pl", clause(3))),
+        bindings([binding("N", 12), binding("C", 208012), binding("N1", 11)]),
+        uses([
+          proof(
+            goal(>(12, 0)),
+            by(builtin(>, 2))
+          ),
+          proof(
+            goal(is(11, '-'(12, 1))),
+            by(builtin(is, 2))
+          ),
+          proof(
+            goal(sumall(Expression, (between(0, 11, I), is(J, '-'(11, I)), catalan(I, A), catalan(J, B), is(Expression, *(A, B))), 208012)),
+            by(library(sumall, 3))
+          )
+        ])
+      )
+    ])
+  )
+).
+
+catalan_answer(triangulations_14_gon, 208012).
+why(
+  catalan_answer(triangulations_14_gon, 208012),
+  proof(
+    goal(catalan_answer(triangulations_14_gon, 208012)),
+    by(rule("catalan-convolution.pl", clause(7))),
+    bindings([binding("Count", 208012)]),
+    uses([
+      proof(
+        goal(polygon_triangulations(14, 208012)),
+        by(rule("catalan-convolution.pl", clause(4))),
+        bindings([binding("Sides", 14), binding("Count", 208012), binding("N", 12)]),
+        uses([
+          proof(
+            goal(>=(14, 3)),
+            by(builtin(>=, 2))
+          ),
+          proof(
+            goal(is(12, '-'(14, 2))),
+            by(builtin(is, 2))
+          ),
+          proof(
+            goal(catalan(12, 208012)),
+            by(rule("catalan-convolution.pl", clause(3))),
+            bindings([binding("N", 12), binding("C", 208012), binding("N1", 11)]),
+            uses([
+              proof(
+                goal(>(12, 0)),
+                by(builtin(>, 2))
+              ),
+              proof(
+                goal(is(11, '-'(12, 1))),
+                by(builtin(is, 2))
+              ),
+              proof(
+                goal(sumall(Expression, (between(0, 11, I), is(J, '-'(11, I)), catalan(I, A), catalan(J, B), is(Expression, *(A, B))), 208012)),
+                by(library(sumall, 3))
+              )
+            ])
+          )
+        ])
+      )
+    ])
+  )
+).
+
+catalan_answer(parenthesizations_13_factors, 208012).
+why(
+  catalan_answer(parenthesizations_13_factors, 208012),
+  proof(
+    goal(catalan_answer(parenthesizations_13_factors, 208012)),
+    by(rule("catalan-convolution.pl", clause(8))),
+    bindings([binding("Count", 208012)]),
+    uses([
+      proof(
+        goal(parenthesizations(13, 208012)),
+        by(rule("catalan-convolution.pl", clause(5))),
+        bindings([binding("Factors", 13), binding("Count", 208012), binding("N", 12)]),
+        uses([
+          proof(
+            goal(>=(13, 1)),
+            by(builtin(>=, 2))
+          ),
+          proof(
+            goal(is(12, '-'(13, 1))),
+            by(builtin(is, 2))
+          ),
+          proof(
+            goal(catalan(12, 208012)),
+            by(rule("catalan-convolution.pl", clause(3))),
+            bindings([binding("N", 12), binding("C", 208012), binding("N1", 11)]),
+            uses([
+              proof(
+                goal(>(12, 0)),
+                by(builtin(>, 2))
+              ),
+              proof(
+                goal(is(11, '-'(12, 1))),
+                by(builtin(is, 2))
+              ),
+              proof(
+                goal(sumall(Expression, (between(0, 11, I), is(J, '-'(11, I)), catalan(I, A), catalan(J, B), is(Expression, *(A, B))), 208012)),
+                by(library(sumall, 3))
+              )
+            ])
+          )
+        ])
+      )
+    ])
+  )
+).
+
+catalan_answer(first_ten_sum, 6918).
+why(
+  catalan_answer(first_ten_sum, 6918),
+  proof(
+    goal(catalan_answer(first_ten_sum, 6918)),
+    by(rule("catalan-convolution.pl", clause(9))),
+    bindings([binding("Sum", 6918)]),
+    uses([
+      proof(
+        goal(sumall(Expression, (between(0, 9, N), catalan(N, Expression)), 6918)),
+        by(library(sumall, 3))
+      )
+    ])
+  )
+).
+

package/examples/proof/cdcl-sat-solver.pl

@@ -0,0 +1,158 @@
+cdclAnswer(conflict_clause, c2).
+why(
+  cdclAnswer(conflict_clause, c2),
+  proof(
+    goal(cdclAnswer(conflict_clause, c2)),
+    by(rule("cdcl-sat-solver.pl", clause(22))),
+    bindings([binding("Clause", c2)]),
+    uses([
+      proof(
+        goal(conflict(initial, c2)),
+        by(rule("cdcl-sat-solver.pl", clause(12))),
+        bindings([binding("Trail", initial), binding("Clause", c2), binding("Literals", [neg(c)])]),
+        uses([
+          proof(
+            goal(sat_clause(c2, [neg(c)])),
+            by(fact("cdcl-sat-solver.pl", clause(2)))
+          ),
+          proof(
+            goal('\\+'(nonfalse_literal(initial, [neg(c)]))),
+            by(builtin('\\+', 1))
+          )
+        ])
+      )
+    ])
+  )
+).
+
+cdclAnswer(learned_clause, [neg(a)]).
+why(
+  cdclAnswer(learned_clause, [neg(a)]),
+  proof(
+    goal(cdclAnswer(learned_clause, [neg(a)])),
+    by(rule("cdcl-sat-solver.pl", clause(23))),
+    bindings([binding("Literals", [neg(a)])]),
+    uses([
+      proof(
+        goal(learned_clause(l1, [neg(a)])),
+        by(fact("cdcl-sat-solver.pl", clause(14)))
+      )
+    ])
+  )
+).
+
+cdclAnswer(learned_from, resolve(c2, c1, pivot(c))).
+why(
+  cdclAnswer(learned_from, resolve(c2, c1, pivot(c))),
+  proof(
+    goal(cdclAnswer(learned_from, resolve(c2, c1, pivot(c)))),
+    by(rule("cdcl-sat-solver.pl", clause(24))),
+    bindings([binding("Reason", resolve(c2, c1, pivot(c)))]),
+    uses([
+      proof(
+        goal(learned_from(l1, resolve(c2, c1, pivot(c)))),
+        by(fact("cdcl-sat-solver.pl", clause(15)))
+      )
+    ])
+  )
+).
+
+cdclAnswer(final_value(a), false).
+why(
+  cdclAnswer(final_value(a), false),
+  proof(
+    goal(cdclAnswer(final_value(a), false)),
+    by(rule("cdcl-sat-solver.pl", clause(25))),
+    bindings([binding("Var", a), binding("Value", false), binding("__anon5", learned(l1))]),
+    uses([
+      proof(
+        goal(final_model_ok(ok)),
+        by(rule("cdcl-sat-solver.pl", clause(20))),
+        uses([
+          proof(
+            goal('\\+'(unsatisfied_final_clause)),
+            by(builtin('\\+', 1))
+          )
+        ])
+      ),
+      proof(
+        goal(final_value(a, false, learned(l1))),
+        by(fact("cdcl-sat-solver.pl", clause(16)))
+      )
+    ])
+  )
+).
+
+cdclAnswer(final_value(c), false).
+why(
+  cdclAnswer(final_value(c), false),
+  proof(
+    goal(cdclAnswer(final_value(c), false)),
+    by(rule("cdcl-sat-solver.pl", clause(25))),
+    bindings([binding("Var", c), binding("Value", false), binding("__anon5", unit(c2))]),
+    uses([
+      proof(
+        goal(final_model_ok(ok)),
+        by(rule("cdcl-sat-solver.pl", clause(20))),
+        uses([
+          proof(
+            goal('\\+'(unsatisfied_final_clause)),
+            by(builtin('\\+', 1))
+          )
+        ])
+      ),
+      proof(
+        goal(final_value(c, false, unit(c2))),
+        by(fact("cdcl-sat-solver.pl", clause(17)))
+      )
+    ])
+  )
+).
+
+cdclAnswer(final_value(b), true).
+why(
+  cdclAnswer(final_value(b), true),
+  proof(
+    goal(cdclAnswer(final_value(b), true)),
+    by(rule("cdcl-sat-solver.pl", clause(25))),
+    bindings([binding("Var", b), binding("Value", true), binding("__anon5", unit(c3))]),
+    uses([
+      proof(
+        goal(final_model_ok(ok)),
+        by(rule("cdcl-sat-solver.pl", clause(20))),
+        uses([
+          proof(
+            goal('\\+'(unsatisfied_final_clause)),
+            by(builtin('\\+', 1))
+          )
+        ])
+      ),
+      proof(
+        goal(final_value(b, true, unit(c3))),
+        by(fact("cdcl-sat-solver.pl", clause(18)))
+      )
+    ])
+  )
+).
+
+cdclAnswer(note, "one learned clause makes the final model satisfy all original clauses").
+why(
+  cdclAnswer(note, "one learned clause makes the final model satisfy all original clauses"),
+  proof(
+    goal(cdclAnswer(note, "one learned clause makes the final model satisfy all original clauses")),
+    by(rule("cdcl-sat-solver.pl", clause(26))),
+    uses([
+      proof(
+        goal(final_model_ok(ok)),
+        by(rule("cdcl-sat-solver.pl", clause(20))),
+        uses([
+          proof(
+            goal('\\+'(unsatisfied_final_clause)),
+            by(builtin('\\+', 1))
+          )
+        ])
+      )
+    ])
+  )
+).
+

package/examples/proof/clpb-boolean-circuit.pl

@@ -0,0 +1,114 @@
+xor_row(row(0, 0, 0)).
+why(
+  xor_row(row(0, 0, 0)),
+  proof(
+    goal(xor_row(row(0, 0, 0))),
+    by(rule("clpb-boolean-circuit.pl", clause(2))),
+    bindings([binding("X", 0), binding("Y", 0), binding("Z", 0)]),
+    uses([
+      proof(
+        goal(xor_circuit(0, 0, 0)),
+        by(rule("clpb-boolean-circuit.pl", clause(1))),
+        bindings([binding("X", 0), binding("Y", 0), binding("Z", 0)]),
+        uses([
+          proof(
+            goal(sat('=:='(0, '+'(*(0, ~(0)), *(~(0), 0))))),
+            by(library(sat, 1))
+          )
+        ])
+      ),
+      proof(
+        goal(labeling([0, 0, 0])),
+        by(library(labeling, 1))
+      )
+    ])
+  )
+).
+
+xor_row(row(1, 1, 0)).
+why(
+  xor_row(row(1, 1, 0)),
+  proof(
+    goal(xor_row(row(1, 1, 0))),
+    by(rule("clpb-boolean-circuit.pl", clause(2))),
+    bindings([binding("X", 1), binding("Y", 1), binding("Z", 0)]),
+    uses([
+      proof(
+        goal(xor_circuit(1, 1, 0)),
+        by(rule("clpb-boolean-circuit.pl", clause(1))),
+        bindings([binding("X", 1), binding("Y", 1), binding("Z", 0)]),
+        uses([
+          proof(
+            goal(sat('=:='(0, '+'(*(1, ~(1)), *(~(1), 1))))),
+            by(library(sat, 1))
+          )
+        ])
+      ),
+      proof(
+        goal(labeling([1, 1, 0])),
+        by(library(labeling, 1))
+      )
+    ])
+  )
+).
+
+xor_row(row(0, 1, 1)).
+why(
+  xor_row(row(0, 1, 1)),
+  proof(
+    goal(xor_row(row(0, 1, 1))),
+    by(rule("clpb-boolean-circuit.pl", clause(2))),
+    bindings([binding("X", 0), binding("Y", 1), binding("Z", 1)]),
+    uses([
+      proof(
+        goal(xor_circuit(0, 1, 1)),
+        by(rule("clpb-boolean-circuit.pl", clause(1))),
+        bindings([binding("X", 0), binding("Y", 1), binding("Z", 1)]),
+        uses([
+          proof(
+            goal(sat('=:='(1, '+'(*(0, ~(1)), *(~(0), 1))))),
+            by(library(sat, 1))
+          )
+        ])
+      ),
+      proof(
+        goal(labeling([0, 1, 1])),
+        by(library(labeling, 1))
+      )
+    ])
+  )
+).
+
+xor_row(row(1, 0, 1)).
+why(
+  xor_row(row(1, 0, 1)),
+  proof(
+    goal(xor_row(row(1, 0, 1))),
+    by(rule("clpb-boolean-circuit.pl", clause(2))),
+    bindings([binding("X", 1), binding("Y", 0), binding("Z", 1)]),
+    uses([
+      proof(
+        goal(xor_circuit(1, 0, 1)),
+        by(rule("clpb-boolean-circuit.pl", clause(1))),
+        bindings([binding("X", 1), binding("Y", 0), binding("Z", 1)]),
+        uses([
+          proof(
+            goal(sat('=:='(1, '+'(*(1, ~(0)), *(~(1), 0))))),
+            by(library(sat, 1))
+          )
+        ])
+      ),
+      proof(
+        goal(labeling([1, 0, 1])),
+        by(library(labeling, 1))
+      )
+    ])
+  )
+).
+
+xor_circuit_verified(1).
+why(
+  xor_circuit_verified(1),
+  no_proof
+).
+

package/examples/proof/clpb-cardinality.pl

@@ -0,0 +1,18 @@
+review_quorum(selection(alice(0), bob(0), carol(1), dan(1))).
+why(
+  review_quorum(selection(alice(0), bob(0), carol(1), dan(1))),
+  no_proof
+).
+
+review_quorum(selection(alice(0), bob(1), carol(1), dan(0))).
+why(
+  review_quorum(selection(alice(0), bob(1), carol(1), dan(0))),
+  no_proof
+).
+
+review_quorum_count(2).
+why(
+  review_quorum_count(2),
+  no_proof
+).
+

package/examples/proof/clpb-feature-model.pl

@@ -0,0 +1,114 @@
+feature_plan(features(cloud(0), edge(1), audit(1), encryption(1))).
+why(
+  feature_plan(features(cloud(0), edge(1), audit(1), encryption(1))),
+  proof(
+    goal(feature_plan(features(cloud(0), edge(1), audit(1), encryption(1)))),
+    by(rule("clpb-feature-model.pl", clause(2))),
+    bindings([binding("Cloud", 0), binding("Edge", 1), binding("Audit", 1), binding("Encryption", 1)]),
+    uses([
+      proof(
+        goal(feature_constraints(0, 1, 1, 1)),
+        by(rule("clpb-feature-model.pl", clause(1))),
+        bindings([binding("Cloud", 0), binding("Edge", 1), binding("Audit", 1), binding("Encryption", 1)]),
+        uses([
+          proof(
+            goal(sat(*(*(#(0, 1), =<(1, 1)), =<(1, 1)))),
+            by(library(sat, 1))
+          )
+        ])
+      ),
+      proof(
+        goal(labeling([0, 1, 1, 1])),
+        by(library(labeling, 1))
+      )
+    ])
+  )
+).
+
+feature_plan(features(cloud(1), edge(0), audit(0), encryption(0))).
+why(
+  feature_plan(features(cloud(1), edge(0), audit(0), encryption(0))),
+  proof(
+    goal(feature_plan(features(cloud(1), edge(0), audit(0), encryption(0)))),
+    by(rule("clpb-feature-model.pl", clause(2))),
+    bindings([binding("Cloud", 1), binding("Edge", 0), binding("Audit", 0), binding("Encryption", 0)]),
+    uses([
+      proof(
+        goal(feature_constraints(1, 0, 0, 0)),
+        by(rule("clpb-feature-model.pl", clause(1))),
+        bindings([binding("Cloud", 1), binding("Edge", 0), binding("Audit", 0), binding("Encryption", 0)]),
+        uses([
+          proof(
+            goal(sat(*(*(#(1, 0), =<(0, 0)), =<(0, 0)))),
+            by(library(sat, 1))
+          )
+        ])
+      ),
+      proof(
+        goal(labeling([1, 0, 0, 0])),
+        by(library(labeling, 1))
+      )
+    ])
+  )
+).
+
+feature_plan(features(cloud(1), edge(0), audit(0), encryption(1))).
+why(
+  feature_plan(features(cloud(1), edge(0), audit(0), encryption(1))),
+  proof(
+    goal(feature_plan(features(cloud(1), edge(0), audit(0), encryption(1)))),
+    by(rule("clpb-feature-model.pl", clause(2))),
+    bindings([binding("Cloud", 1), binding("Edge", 0), binding("Audit", 0), binding("Encryption", 1)]),
+    uses([
+      proof(
+        goal(feature_constraints(1, 0, 0, 1)),
+        by(rule("clpb-feature-model.pl", clause(1))),
+        bindings([binding("Cloud", 1), binding("Edge", 0), binding("Audit", 0), binding("Encryption", 1)]),
+        uses([
+          proof(
+            goal(sat(*(*(#(1, 0), =<(0, 1)), =<(0, 0)))),
+            by(library(sat, 1))
+          )
+        ])
+      ),
+      proof(
+        goal(labeling([1, 0, 0, 1])),
+        by(library(labeling, 1))
+      )
+    ])
+  )
+).
+
+feature_plan(features(cloud(1), edge(0), audit(1), encryption(1))).
+why(
+  feature_plan(features(cloud(1), edge(0), audit(1), encryption(1))),
+  proof(
+    goal(feature_plan(features(cloud(1), edge(0), audit(1), encryption(1)))),
+    by(rule("clpb-feature-model.pl", clause(2))),
+    bindings([binding("Cloud", 1), binding("Edge", 0), binding("Audit", 1), binding("Encryption", 1)]),
+    uses([
+      proof(
+        goal(feature_constraints(1, 0, 1, 1)),
+        by(rule("clpb-feature-model.pl", clause(1))),
+        bindings([binding("Cloud", 1), binding("Edge", 0), binding("Audit", 1), binding("Encryption", 1)]),
+        uses([
+          proof(
+            goal(sat(*(*(#(1, 0), =<(1, 1)), =<(0, 1)))),
+            by(library(sat, 1))
+          )
+        ])
+      ),
+      proof(
+        goal(labeling([1, 0, 1, 1])),
+        by(library(labeling, 1))
+      )
+    ])
+  )
+).
+
+feature_plan_count(4).
+why(
+  feature_plan_count(4),
+  no_proof
+).
+

package/examples/proof/combinatorics-findall-sort.pl

@@ -0,0 +1,58 @@
+combinations(combinations_5_choose_3, [[1, 2, 3], [1, 2, 4], [1, 2, 5], [1, 3, 4], [1, 3, 5], [1, 4, 5], [2, 3, 4], [2, 3, 5], [2, 4, 5], [3, 4, 5]]).
+why(
+  combinations(combinations_5_choose_3, [[1, 2, 3], [1, 2, 4], [1, 2, 5], [1, 3, 4], [1, 3, 5], [1, 4, 5], [2, 3, 4], [2, 3, 5], [2, 4, 5], [3, 4, 5]]),
+  proof(
+    goal(combinations(combinations_5_choose_3, [[1, 2, 3], [1, 2, 4], [1, 2, 5], [1, 3, 4], [1, 3, 5], [1, 4, 5], [2, 3, 4], [2, 3, 5], [2, 4, 5], [3, 4, 5]])),
+    by(rule("combinatorics-findall-sort.pl", clause(6))),
+    bindings([binding("Unique", [[1, 2, 3], [1, 2, 4], [1, 2, 5], [1, 3, 4], [1, 3, 5], [1, 4, 5], [2, 3, 4], [2, 3, 5], [2, 4, 5], [3, 4, 5]])]),
+    uses([
+      proof(
+        goal(unique_combinations(3, [1, 2, 3, 4, 5], [[1, 2, 3], [1, 2, 4], [1, 2, 5], [1, 3, 4], [1, 3, 5], [1, 4, 5], [2, 3, 4], [2, 3, 5], [2, 4, 5], [3, 4, 5]])),
+        by(rule("combinatorics-findall-sort.pl", clause(5))),
+        bindings([binding("K", 3), binding("Items", [1, 2, 3, 4, 5]), binding("Unique", [[1, 2, 3], [1, 2, 4], [1, 2, 5], [1, 3, 4], [1, 3, 5], [1, 4, 5], [2, 3, 4], [2, 3, 5], [2, 4, 5], [3, 4, 5]]), binding("All", [[1, 2, 3], [1, 2, 4], [1, 2, 5], [1, 2, 3], [1, 3, 4], [1, 3, 5], [1, 2, 4], [1, 3, 4], [1, 4, 5], [1, 2, 5], [1, 3, 5], [1, 4, 5], [1, 2, 3], [1, 2, 4], [1, 2, 5], [1, 2, 3], [2, 3, 4], [2, 3, 5], [1, 2, 4], [2, 3, 4], [2, 4, 5], [1, 2, 5], [2, 3, 5], [2, 4, 5], [1, 2, 3], [1, 3, 4], [1, 3, 5], [1, 2, 3], [2, 3, 4], [2, 3, 5], [1, 3, 4], [2, 3, 4], [3, 4, 5], [1, 3, 5], [2, 3, 5], [3, 4, 5], [1, 2, 4], [1, 3, 4], [1, 4, 5], [1, 2, 4], [2, 3, 4], [2, 4, 5], [1, 3, 4], [2, 3, 4], [3, 4, 5], [1, 4, 5], [2, 4, 5], [3, 4, 5], [1, 2, 5], [1, 3, 5], [1, 4, 5], [1, 2, 5], [2, 3, 5], [2, 4, 5], [1, 3, 5], [2, 3, 5], [3, 4, 5], [1, 4, 5], [2, 4, 5], [3, 4, 5]])]),
+        uses([
+          proof(
+            goal(findall(C, combination(3, [1, 2, 3, 4, 5], C), [[1, 2, 3], [1, 2, 4], [1, 2, 5], [1, 2, 3], [1, 3, 4], [1, 3, 5], [1, 2, 4], [1, 3, 4], [1, 4, 5], [1, 2, 5], [1, 3, 5], [1, 4, 5], [1, 2, 3], [1, 2, 4], [1, 2, 5], [1, 2, 3], [2, 3, 4], [2, 3, 5], [1, 2, 4], [2, 3, 4], [2, 4, 5], [1, 2, 5], [2, 3, 5], [2, 4, 5], [1, 2, 3], [1, 3, 4], [1, 3, 5], [1, 2, 3], [2, 3, 4], [2, 3, 5], [1, 3, 4], [2, 3, 4], [3, 4, 5], [1, 3, 5], [2, 3, 5], [3, 4, 5], [1, 2, 4], [1, 3, 4], [1, 4, 5], [1, 2, 4], [2, 3, 4], [2, 4, 5], [1, 3, 4], [2, 3, 4], [3, 4, 5], [1, 4, 5], [2, 4, 5], [3, 4, 5], [1, 2, 5], [1, 3, 5], [1, 4, 5], [1, 2, 5], [2, 3, 5], [2, 4, 5], [1, 3, 5], [2, 3, 5], [3, 4, 5], [1, 4, 5], [2, 4, 5], [3, 4, 5]])),
+            by(builtin(findall, 3))
+          ),
+          proof(
+            goal(sort([[1, 2, 3], [1, 2, 4], [1, 2, 5], [1, 2, 3], [1, 3, 4], [1, 3, 5], [1, 2, 4], [1, 3, 4], [1, 4, 5], [1, 2, 5], [1, 3, 5], [1, 4, 5], [1, 2, 3], [1, 2, 4], [1, 2, 5], [1, 2, 3], [2, 3, 4], [2, 3, 5], [1, 2, 4], [2, 3, 4], [2, 4, 5], [1, 2, 5], [2, 3, 5], [2, 4, 5], [1, 2, 3], [1, 3, 4], [1, 3, 5], [1, 2, 3], [2, 3, 4], [2, 3, 5], [1, 3, 4], [2, 3, 4], [3, 4, 5], [1, 3, 5], [2, 3, 5], [3, 4, 5], [1, 2, 4], [1, 3, 4], [1, 4, 5], [1, 2, 4], [2, 3, 4], [2, 4, 5], [1, 3, 4], [2, 3, 4], [3, 4, 5], [1, 4, 5], [2, 4, 5], [3, 4, 5], [1, 2, 5], [1, 3, 5], [1, 4, 5], [1, 2, 5], [2, 3, 5], [2, 4, 5], [1, 3, 5], [2, 3, 5], [3, 4, 5], [1, 4, 5], [2, 4, 5], [3, 4, 5]], [[1, 2, 3], [1, 2, 4], [1, 2, 5], [1, 3, 4], [1, 3, 5], [1, 4, 5], [2, 3, 4], [2, 3, 5], [2, 4, 5], [3, 4, 5]])),
+            by(builtin(sort, 2))
+          )
+        ])
+      )
+    ])
+  )
+).
+
+count(combinations_5_choose_3, 10).
+why(
+  count(combinations_5_choose_3, 10),
+  proof(
+    goal(count(combinations_5_choose_3, 10)),
+    by(rule("combinatorics-findall-sort.pl", clause(7))),
+    bindings([binding("Count", 10), binding("Unique", [[1, 2, 3], [1, 2, 4], [1, 2, 5], [1, 3, 4], [1, 3, 5], [1, 4, 5], [2, 3, 4], [2, 3, 5], [2, 4, 5], [3, 4, 5]])]),
+    uses([
+      proof(
+        goal(unique_combinations(3, [1, 2, 3, 4, 5], [[1, 2, 3], [1, 2, 4], [1, 2, 5], [1, 3, 4], [1, 3, 5], [1, 4, 5], [2, 3, 4], [2, 3, 5], [2, 4, 5], [3, 4, 5]])),
+        by(rule("combinatorics-findall-sort.pl", clause(5))),
+        bindings([binding("K", 3), binding("Items", [1, 2, 3, 4, 5]), binding("Unique", [[1, 2, 3], [1, 2, 4], [1, 2, 5], [1, 3, 4], [1, 3, 5], [1, 4, 5], [2, 3, 4], [2, 3, 5], [2, 4, 5], [3, 4, 5]]), binding("All", [[1, 2, 3], [1, 2, 4], [1, 2, 5], [1, 2, 3], [1, 3, 4], [1, 3, 5], [1, 2, 4], [1, 3, 4], [1, 4, 5], [1, 2, 5], [1, 3, 5], [1, 4, 5], [1, 2, 3], [1, 2, 4], [1, 2, 5], [1, 2, 3], [2, 3, 4], [2, 3, 5], [1, 2, 4], [2, 3, 4], [2, 4, 5], [1, 2, 5], [2, 3, 5], [2, 4, 5], [1, 2, 3], [1, 3, 4], [1, 3, 5], [1, 2, 3], [2, 3, 4], [2, 3, 5], [1, 3, 4], [2, 3, 4], [3, 4, 5], [1, 3, 5], [2, 3, 5], [3, 4, 5], [1, 2, 4], [1, 3, 4], [1, 4, 5], [1, 2, 4], [2, 3, 4], [2, 4, 5], [1, 3, 4], [2, 3, 4], [3, 4, 5], [1, 4, 5], [2, 4, 5], [3, 4, 5], [1, 2, 5], [1, 3, 5], [1, 4, 5], [1, 2, 5], [2, 3, 5], [2, 4, 5], [1, 3, 5], [2, 3, 5], [3, 4, 5], [1, 4, 5], [2, 4, 5], [3, 4, 5]])]),
+        uses([
+          proof(
+            goal(findall(C, combination(3, [1, 2, 3, 4, 5], C), [[1, 2, 3], [1, 2, 4], [1, 2, 5], [1, 2, 3], [1, 3, 4], [1, 3, 5], [1, 2, 4], [1, 3, 4], [1, 4, 5], [1, 2, 5], [1, 3, 5], [1, 4, 5], [1, 2, 3], [1, 2, 4], [1, 2, 5], [1, 2, 3], [2, 3, 4], [2, 3, 5], [1, 2, 4], [2, 3, 4], [2, 4, 5], [1, 2, 5], [2, 3, 5], [2, 4, 5], [1, 2, 3], [1, 3, 4], [1, 3, 5], [1, 2, 3], [2, 3, 4], [2, 3, 5], [1, 3, 4], [2, 3, 4], [3, 4, 5], [1, 3, 5], [2, 3, 5], [3, 4, 5], [1, 2, 4], [1, 3, 4], [1, 4, 5], [1, 2, 4], [2, 3, 4], [2, 4, 5], [1, 3, 4], [2, 3, 4], [3, 4, 5], [1, 4, 5], [2, 4, 5], [3, 4, 5], [1, 2, 5], [1, 3, 5], [1, 4, 5], [1, 2, 5], [2, 3, 5], [2, 4, 5], [1, 3, 5], [2, 3, 5], [3, 4, 5], [1, 4, 5], [2, 4, 5], [3, 4, 5]])),
+            by(builtin(findall, 3))
+          ),
+          proof(
+            goal(sort([[1, 2, 3], [1, 2, 4], [1, 2, 5], [1, 2, 3], [1, 3, 4], [1, 3, 5], [1, 2, 4], [1, 3, 4], [1, 4, 5], [1, 2, 5], [1, 3, 5], [1, 4, 5], [1, 2, 3], [1, 2, 4], [1, 2, 5], [1, 2, 3], [2, 3, 4], [2, 3, 5], [1, 2, 4], [2, 3, 4], [2, 4, 5], [1, 2, 5], [2, 3, 5], [2, 4, 5], [1, 2, 3], [1, 3, 4], [1, 3, 5], [1, 2, 3], [2, 3, 4], [2, 3, 5], [1, 3, 4], [2, 3, 4], [3, 4, 5], [1, 3, 5], [2, 3, 5], [3, 4, 5], [1, 2, 4], [1, 3, 4], [1, 4, 5], [1, 2, 4], [2, 3, 4], [2, 4, 5], [1, 3, 4], [2, 3, 4], [3, 4, 5], [1, 4, 5], [2, 4, 5], [3, 4, 5], [1, 2, 5], [1, 3, 5], [1, 4, 5], [1, 2, 5], [2, 3, 5], [2, 4, 5], [1, 3, 5], [2, 3, 5], [3, 4, 5], [1, 4, 5], [2, 4, 5], [3, 4, 5]], [[1, 2, 3], [1, 2, 4], [1, 2, 5], [1, 3, 4], [1, 3, 5], [1, 4, 5], [2, 3, 4], [2, 3, 5], [2, 4, 5], [3, 4, 5]])),
+            by(builtin(sort, 2))
+          )
+        ])
+      ),
+      proof(
+        goal(length([[1, 2, 3], [1, 2, 4], [1, 2, 5], [1, 3, 4], [1, 3, 5], [1, 4, 5], [2, 3, 4], [2, 3, 5], [2, 4, 5], [3, 4, 5]], 10)),
+        by(library(length, 2))
+      )
+    ])
+  )
+).
+