| # int2bytes(i) < i→n(j) + # int2bytes(i) ∧ 0 ≤ bytes2int(int2bytes(i)), # int2bytes(i) ≤ i→n(j), 0 ≤ i ⊦ i >> 8 * j = bytes2int(firstn(# int2bytes(i), mklist(i2b(0), i→n(j) + # int2bytes(i) - # int2bytes(i)) + int2bytes(i))), j = 0 |
# int2bytes(i) ≤ i→n(j), 0 ≤ i ⊦ j = 0, i >> 8 * j = bytes2int(firstn(# int2bytes(i), mklist(i2b(0), (i→n(j) - # int2bytes(i)) + # int2bytes(i)) + int2bytes(i)))
Used simplifier rules: int2int: ⊦ bytes2int(int2bytes(i)) = i;% ⊦ i ≤ 0 ∧ 0 ≤ j → i ≤ j;% ⊦ i→n(i) = 0 ↔ i = 0;% ⊦ m < m + n ↔ n ≠ 0;% ⊦ m + n = n + m;% ⊦ (m + n0) + n1 = m + n0 + n1;% ⊦ n ≤ m → m + n0 - n = (m - n) + n0;