| # int2bytes(i) = n + i→n(j) + 1, 0 ≤ j, j < n→i(# int2bytes(i)), # int2bytes(i) ≤ n, i→n(j) < # int2bytes(i), i→n(j) < n ⊦ int2bytes(i)[i→n(j)] = i2b(i >> 8 * (n→i(# int2bytes(i)) - j + 1)) |
Used simplifier rules: ⊦ n→i(m + n) = n→i(m) + n→i(n);% ⊦ 0 ≤ i → n→i(i→n(i)) = i;% ⊦ (m + n0) + n1 = m + n0 + n1;% ⊦ m + n = n + m;% ⊦ i + j - i + 1 = j - 1;% ⊦ (* i) + i0 - (* j) = (i - j) + i0;% ⊦ i + 0 = i;% ⊦ i + j + i0 = (i + j) + i0;% ⊦ i + j = j + i;% ⊦ i < j + 1 ↔ i ≤ j;% ⊦ i ≤ i + j ↔ 0 ≤ j;% ⊦ 0 ≤ n→i(n);% ⊦ m + m0 ≤ m ↔ m0 = 0;% ⊦ m + 1 ≠ 0;