Jip J. Dekker
f2a1c4e389
git-subtree-dir: software/mza git-subtree-split: f970a59b177c13ca3dd8aaef8cc6681d83b7e813
10 lines
298 B
MiniZinc
10 lines
298 B
MiniZinc
predicate fzn_value_precede_int(int: s, int: t, array[int] of var int: x) =
|
|
let {
|
|
var index_set(x): pos_s;
|
|
constraint forall (i in index_set(x)) (
|
|
(pos_s <= i) -> (x[i] = s) \/ (pos_s < i)
|
|
);
|
|
} in forall(i in index_set(x)) (
|
|
(x[i] = t) -> (pos_s < i)
|
|
);
|