| ⊦ bits2int(sublist(0, # int2bits(i), mklist(¬ 0 ≤ i, i→n(j)) + int2bits(i))) = i >> abs(j) |
⊦ i >> j = bits2int(sublist(0, # int2bits(i), mklist(int2bits(i).first, i→n(j)) + int2bits(i)))
Used simplifier rules: ⊦ int2bits(j).first ↔ j < 0;% ⊦ ¬ i < j ↔ j ≤ i;% ⊦ i→n(abs(i)) = i→n(i); Used terms: abs(j), i