| firstn(# int2bytes(i) - i→n(n→i(# int2bytes(i)) - j + 1), int2bytes(i)) ≠ [], j < n→i(# int2bytes(i)), 0 ≤ j, i→n(n→i(# int2bytes(i)) - j + 1) < # int2bytes(i) ⊦ int2bytes(i)[i→n(j)] = firstn(# int2bytes(i) - i→n(n→i(# int2bytes(i)) - j + 1), int2bytes(i)).last |
j < n→i(# int2bytes(i)), 0 ≤ j, i→n(n→i(# int2bytes(i)) - j + 1) < # int2bytes(i) ⊦ int2bytes(i)[i→n(j)] = firstn(# int2bytes(i) - i→n(n→i(# int2bytes(i)) - j + 1), int2bytes(i)).last
Used simplifier rules: ⊦ n < m → m - n ≠ 0;% ⊦ firstn(n, bytes) = [] ↔ n = 0;