| i0 < 31, 0 ≤ i, 0 ≤ i0 ⊦ i i>> (i0 + 1) = bits2int(sublist(0, # int2bits(i / 2), mklist(int2bits(i / 2).first, i→n(band(i0, 31))) + int2bits(i / 2))) |
i0 < 31, 0 ≤ i, 0 ≤ i0 ⊦ i i>> (i0 + 1) = bits2int(sublist(0, # int2bits(i / 2), mklist(false, i→n(band(i0, 31))) + int2bits(i / 2)))
Used simplifier rules: ⊦ i + j = j + i;% ⊦ i + j + i0 = (i + j) + i0;%i0 ≠ 0, i0 < i ⊦ (* i) ≤ j → (* i0) < j;% ⊦ ¬ i ≤ j ↔ j < i;% ⊦ i + (* j) ≤ (* j0) ↔ i ≤ j0 - j;%0 < j ⊦ i / (* j) < 0 ↔ i + j ≤ 0;% ⊦ int2bits(j).first ↔ j < 0;