| n→i(n) - 1 ≤ n→i(# int2bytes(i)), 0 ≤ 2 ^ (8 * n→i(# int2bytes(i)) - 1) + i, 8 * (n→i(n) - 1) + 1 < 8 * n→i(# int2bytes(i)), 8 * (n→i(# int2bytes(i)) - 1) + 1 < 8 * n→i(# int2bytes(i)), i + 2 ^ (8 * (n→i(n) - 1)) < 0, 2 ^ (8 * (n→i(# int2bytes(i)) - 1)) + i < 0, i < 0, 1 ≤ # int2bytes(i), # int2bytes(i) < n ⊦ n = 1, b2i(int2bytes(i).first) = ~1, int2bytes(i).first = i2b(~1) |
0 ≤ 2 ^ (8 * n→i(# int2bytes(i)) - 1) + i, 8 * (n→i(n) - 1) + 1 < 8 * n→i(# int2bytes(i)), 8 * (n→i(# int2bytes(i)) - 1) + 1 < 8 * n→i(# int2bytes(i)), i + 2 ^ (8 * (n→i(n) - 1)) < 0, 2 ^ (8 * (n→i(# int2bytes(i)) - 1)) + i < 0, i < 0, 1 ≤ # int2bytes(i), # int2bytes(i) < n, n→i(n) ≤ 1 + n→i(# int2bytes(i)) ⊦ n = 1, b2i(int2bytes(i).first) = ~1, int2bytes(i).first = i2b(~1)
Used simplifier rules: ⊦ i * j = j * i;% ⊦ i + j = j + i;% ⊦ i + j + i0 = (i + j) + i0;% ⊦ i - j ≤ i0 ↔ i ≤ j + i0;