| j < ~(2 ^ (i * 8 - 1)), 0 < i, j % 2 ^ (i * 8) = 0 ⊦ int2bytes(j) = int2bytes(j / 2 ^ (i * 8)) + fix(i→n(i + 1), int2bytes(j % 2 ^ (i * 8))).rest |
j % 2 ^ (i * 8) = 0, j + 2 ^ (i * 8 - 1) < 0, 0 < i ⊦ int2bytes(j) = int2bytes(j / 2 ^ (i * 8)) + fix(i→n(i) + 1, i2b(0) ').rest
Used simplifier rules: int2bytes-byte: ~128 ≤ i, i < 128 ⊦ int2bytes((* i)) = i2b(i) ';% ⊦ i < j ∧ 0 ≤ i → 0 < j; (forward)% ⊦ j < i ∧ i ≤ 0 → j < 0; (forward)% ⊦ i < ~ j ↔ i + j < 0;% ⊦ i + j = j + i;% ⊦ i + j + i0 = (i + j) + i0;% ⊦ 0 < i → i→n(i + 1) = i→n(i) + 1;