| i < ~1, # int2bits(i) ≤ n, i < 0, 1 < j, 0 < j ⊦ >>>(n, i, j) = bits2int(sublist(0, # fillsgn(n - 1, int2bits((i - 1) / 2)), mklist(false, i→n(j - 1)) + fillsgn(n - 1, int2bits((i - 1) / 2)))) |
i < ~1, # int2bits(i) ≤ n, i < 0, 1 < j, 0 < j ⊦ >>>(n, i, j) = bits2int(sublist(0, # fillsgn(n - 1, int2bits((i - 1) / 2)), mklist(false, i→n(j) - 1) + fillsgn(n - 1, int2bits((i - 1) / 2))))
Used simplifier rules: ⊦ n -1 = n - 1;% ⊦ 1 < i → i→n(i - 1) = i→n(i) -1;