| ⊦ 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 = (¬ i→n(band(j, 31)) < # int2bits(i) ⊃ (¬ 0 ≤ i ⊃ ~1;0);bits2int(sublist(0, # int2bits(i) - i→n(band(j, 31)), int2bits(i))))
Used simplifier rules: ⊦ ¬ i < j ↔ j ≤ i;% ⊦ ¬ m ≤ n ↔ n < m;