Jip J. Dekker
fad1b07018
git-subtree-dir: software/minizinc git-subtree-split: 4f10c82056ffcb1041d7ffef29d77a7eef92cf76
12 lines
456 B
MiniZinc
12 lines
456 B
MiniZinc
predicate fzn_seq_precede_chain_int(array[int] of var int: X) =
|
|
let {
|
|
int : l = lb_array (X) ; % least possible value
|
|
int : u = ub_array (X) ; % greatest possible value
|
|
int : f = min ( index_set (X ));
|
|
array [ index_set (X) ] of var l .. u: H;
|
|
} in
|
|
H[f] <= 1 /\ H[f] = max (X[f], 0) /\
|
|
forall ( i in index_set ( X) diff {f} ) (
|
|
H[i] <= H[i-1] + 1 /\ H[i] = max (X[i], H[i-1])
|
|
);
|