| ⊦ bits2int(sublist(0, # int2bits(i), mklist(int2bits(i).first, i→n(band(j, 31))) + int2bits(i))) = (¬ i→n(band(j, 31)) < # int2bits(i) ⊃ (¬ 0 ≤ i ⊃ ~1;0);bits2int(sublist(0, # int2bits(i) - i→n(band(j, 31)), int2bits(i)))) |
⊦ bits2int(sublist(0, # int2bits(i), mklist(¬ 0 ≤ i, i→n(band(j, 31))) + int2bits(i))) = (¬ 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;% ⊦ int2bits(j).first ↔ j < 0;