| 0 ≤ i, 0 ≤ i0 ⊦ i >> (i0 + 1) = i / 2 >> i0 |
⊦ i >> j = bits2int(sublist(0, # int2bits(i), mklist(int2bits(i).first, i→n(j)) + int2bits(i)))
0 ≤ i, 0 ≤ i0 ⊦ bits2int(sublist(0, # int2bits(i), mklist(int2bits(i).first, i→n(i0 + 1)) + int2bits(i))) = i / 2 >> i0
Used terms: i0 + 1, i