| 0 < i, j0 * 2 ^ (i * 8) + 2 ^ (i * 8 - 1) < 0 ⊦ 2 ^ (i * 8) = 0, bits2bytes(int2bits(j0 * 2 ^ (i * 8))) = int2bytes(j0) + fix(i→n(i) + 1, i2b(0) ').rest |
0 ≤ i, j ≠ 0 ⊦ int2bits(j * 2 ^ i) = int2bits(j) + mklist(false, i→n(i))
0 ≤ i * 8 ∧ j0 ≠ 0, 0 < i, j0 * 2 ^ (i * 8) + 2 ^ (i * 8 - 1) < 0 ⊦ 2 ^ (i * 8) = 0, bits2bytes(int2bits(j0) + mklist(false, i→n(i * 8))) = int2bytes(j0) + fix(i→n(i) + 1, i2b(0) ').rest
Used simplifier rules: int2bytes-byte: ~128 ≤ i, i < 128 ⊦ int2bytes((* i)) = i2b(i) ';% ⊦ 0 < i → (0 ≤ i * j ↔ 0 ≤ j);% ⊦ i * j * j0 = (i * j) * j0;% ⊦ i * j = j * i;% ⊦ i * 0 = 0;% ⊦ int2bits(0) = false ';% ⊦ i + 0 = i;% ⊦ i + j + i0 = (i + j) + i0;% ⊦ i + j = j + i;% ⊦ ¬ 2 ^ i < 0; Used terms: i * 8, j0