predicate fzn_inverse_reif(array[int] of var int: f,
                           array[int] of var int: invf,
                           var bool: b) =
    b <-> forall(i in index_set(f), j in index_set(invf)) (
        f[i] in index_set(invf) /\
        invf[j] in index_set(f) /\
        (j == f[i] <-> i == invf[j])
    );