| ⊦ j ≠ 0 → >>>(0, i, j) = bits2uint(int2bits(i)) >> j |
⊦ >>>(n, i, j) = bits2int(sublist(0, # fillsgn(n, int2bits(i)), mklist(false, i→n(j)) + fillsgn(n, int2bits(i))))
⊦ j ≠ 0 → bits2int(sublist(0, # fillsgn(0, int2bits(i)), mklist(false, i→n(j)) + fillsgn(0, int2bits(i)))) = bits2uint(int2bits(i)) >> j
Used terms: j, i, 0