| 2 * 2 ^ (31 - band(j, 31)) = 2 ^ (32 - band(j, 31)), # int2bits(i) ≤ 32, ~2147483648 ≤ i, i < 0, band(j, 31) ≤ 31, 0 < band(j, 31) ⊦ band(j, 31) = 0, bits2int(sublist(0, 32, mklist(false, i→n(band(j, 31))) + fillsgn(32, int2bits(i)))) = 2 ^ (32 - band(j, 31)) + bits2int(sublist(0, 32, mklist(true, i→n(band(j, 31))) + fillsgn(32, int2bits(i)))), false ∈ int2bits(31).rest |
⊦ sublist(m, n, bits) = firstn(n, restn(m, bits))
2 * 2 ^ (31 - band(j, 31)) = 2 ^ (32 - band(j, 31)), # int2bits(i) ≤ 32, ~2147483648 ≤ i, i < 0, band(j, 31) ≤ 31, 0 < band(j, 31) ⊦ band(j, 31) = 0, bits2int(sublist(0, 32, mklist(false, i→n(band(j, 31))) + fillsgn(32, int2bits(i)))) = 2 ^ (32 - band(j, 31)) + bits2int(firstn(32, restn(0, mklist(true, i→n(band(j, 31))) + fillsgn(32, int2bits(i))))), false ∈ int2bits(31).rest
Used terms: mklist(true, i→n(band(j, 31))) + fillsgn(32, int2bits(i)), 32, 0