| ⊦ i i>> j = i i>> band(j, 31) |
⊦ i i>> j = (# int2bits(i) ≤ i→n(band(j, 31)) ⊃ (i < 0 ⊃ ~1;0);bits2int(sublist(0, # int2bits(i) - i→n(band(j, 31)), int2bits(i))))
⊦ i i>> j = (# int2bits(i) ≤ i→n(band(band(j, 31), 31)) ⊃ (i < 0 ⊃ ~1;0);bits2int(sublist(0, # int2bits(i) - i→n(band(band(j, 31), 31)), int2bits(i))))
Used terms: band(j, 31), i