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