Jip J. Dekker
f2a1c4e389
git-subtree-dir: software/mza git-subtree-split: f970a59b177c13ca3dd8aaef8cc6681d83b7e813
17 lines
571 B
MiniZinc
17 lines
571 B
MiniZinc
predicate fzn_value_precede_set(int: s, int: t, array[int] of var set of int: x) =
|
|
let {
|
|
int: imin = min(index_set(x)),
|
|
int: imax = max(index_set(x)),
|
|
array[imin..imax + 1] of var bool: b
|
|
} in (
|
|
forall (i in imin..imax) (
|
|
let {
|
|
var bool: xis = (s in x[i] /\ not (t in x[i]))
|
|
} in
|
|
(xis -> (b[i + 1] == true))
|
|
/\ ((not xis) -> (b[i] == b[i + 1]))
|
|
/\ ((not b[i]) -> (s in x[i] \/ not (t in x[i])))
|
|
)
|
|
/\ b[imin] == false
|
|
);
|