| ¬ 1 ≤ # int2bytes(i) - 1, int2bytes(i).first = i2b(~1), 2 ^ (8 * (1 + n→i(# int2bytes(i) - 1 - 1)) - 1) + i < 0, 0 ≤ 2 ^ (8 * (1 + n→i(# int2bytes(i) - 1 - 1))) + i, 0 ≤ b2i(int2bytes(i).rest.first) ⊦ n ≤ # int2bytes(i) ↔ ¬ 0 ≤ i + 2 ^ (8 * (n→i(n) - 1) - 1), int2bytes(i).rest = [] |
int2bytes(i).first = i2b(~1), # int2bytes(i) < 2, 0 ≤ b2i(int2bytes(i).rest.first), 0 ≤ 2 ^ (8 * (1 + n→i(# int2bytes(i) - 1 - 1))) + i, 2 ^ (8 * (1 + n→i(# int2bytes(i) - 1 - 1)) - 1) + i < 0 ⊦ int2bytes(i).rest = [], n ≤ # int2bytes(i) ↔ ¬ 0 ≤ i + 2 ^ (8 * (n→i(n) - 1) - 1)
Used simplifier rules: int2bytes-empty: ⊦ int2bytes(i) ≠ [];% ⊦ m < n → n ≠ 0; (forward)%n0 ≤ n ⊦ m ≤ n - n0 ↔ m + n0 ≤ n;% ⊦ ¬ m ≤ n ↔ n < m;% ⊦ m < 1 ↔ m = 0;% ⊦ # bytes = 0 ↔ bytes = [];