| 0 ≤ i ⊦ bits2int(sublist(0, # fillsgn(n, int2bits(i)), mklist(false, i→n(j)) + fillsgn(n, int2bits(i)))) = i >> j |
⊦ sublist(m, n, bits) = firstn(n, restn(m, bits))
0 ≤ i ⊦ bits2int(firstn(# fillsgn(n, int2bits(i)), restn(0, mklist(false, i→n(j)) + fillsgn(n, int2bits(i))))) = i >> j
Used terms: mklist(false, i→n(j)) + fillsgn(n, int2bits(i)), # fillsgn(n, int2bits(i)), 0