2020-05-12 06:39:50 +02:00
|
|
|
|
# Auxiliary predicate to determine whether a variable is integer. is_int/1 is declared as an input
|
|
|
|
|
# predicate so that anthem doesn’t generate its completed definition
|
|
|
|
|
input: is_int/1.
|
2020-05-07 02:54:13 +02:00
|
|
|
|
axiom: forall X (is_int(X) <-> exists N X = N).
|
|
|
|
|
|
2020-05-12 06:39:50 +02:00
|
|
|
|
# Perform the proofs under the assumption that n is a nonnegative integer input constant. n stands
|
|
|
|
|
# for the total number of input sets
|
|
|
|
|
input: n -> integer.
|
2020-05-07 02:54:13 +02:00
|
|
|
|
assume: n >= 0.
|
2020-05-12 06:39:50 +02:00
|
|
|
|
|
|
|
|
|
# s/2 is the input predicate defining the sets for which the program searches for exact covers
|
|
|
|
|
input: s/2.
|
|
|
|
|
|
|
|
|
|
# Perform the proofs under the assumption that the second parameter of s/2 (the number of the set)
|
|
|
|
|
# is always an integer
|
2020-05-07 02:54:13 +02:00
|
|
|
|
assume: forall X, Y (s(X, Y) -> is_int(Y)).
|
|
|
|
|
|
2020-05-12 06:39:50 +02:00
|
|
|
|
# Only valid sets can be included in the solution
|
2020-05-07 02:54:13 +02:00
|
|
|
|
assert: forall X (in(X) -> X >= 1 and X <= n).
|
2020-05-12 06:39:50 +02:00
|
|
|
|
# If an element is contained in an input set, it must be covered by all solutions
|
2020-05-07 02:54:13 +02:00
|
|
|
|
assert: forall X (exists I s(X, I) -> exists I (in(I) and s(X, I))).
|
2020-05-12 06:39:50 +02:00
|
|
|
|
# Elements may not be covered by two input sets
|
2020-05-07 02:54:13 +02:00
|
|
|
|
assert: forall I, J (exists X (s(X, I) and s(X, J)) and in(I) and in(J) -> I = J).
|