| # int2bits(j) ≤ i→n(i0), # int2bits(j) < i→n(i), 1 < i0, 0 < i0, 0 < i, i < i0, i ≤ i0, i→n(i0) ≤ i→n(i0) ⊦ mklist(¬ 0 ≤ j, i→n(i) - # int2bits(j)) + int2bits(j) = [], i = 0, i0 = 0, bits2int(lastn(i→n(i), fillsgn(i→n(i0), int2bits(j)))) = bits2int(restn(i→n(i0) - i→n(i0), mklist(¬ 0 ≤ j, i→n(i0) - # int2bits(j)) + int2bits(j))) |
# int2bits(j) ≤ i→n(i0), # int2bits(j) < i→n(i), 1 < i0, 0 < i0, 0 < i, i < i0, i ≤ i0 ⊦ mklist(¬ 0 ≤ j, i→n(i) - # int2bits(j)) + int2bits(j) = [], i = 0, i0 = 0, bits2int(lastn(i→n(i), fillsgn(i→n(i0), int2bits(j)))) = bits2int(mklist(¬ 0 ≤ j, i→n(i0) - # int2bits(j)) + int2bits(j))
Used simplifier rules: ⊦ i ≤ i;% ⊦ 1 < i → abs(i) = i;% ⊦ i→n(i) ≤ i→n(j) ↔ abs(i) ≤ abs(j);% ⊦ restn(0, bits) = bits;% ⊦ m - m = 0;