| 32767 < 65536 * i0 + j, j ≤ 32767, 0 < 65536 * i0 + j, 0 ≤ j, 0 ≤ i0, 0 < i0 ⊦ 16 = # fillsgn(17, int2bits(j)).rest, s2i(i2s(bits2int(lastn(16, int2bits(i0) + fillsgn(17, int2bits(j)).rest)))) = j |
⊦ bits ≠ [] → # bits.rest = (# bits)-1
fillsgn(17, int2bits(j)) ≠ [], 32767 < 65536 * i0 + j, j ≤ 32767, 0 < 65536 * i0 + j, 0 ≤ j, 0 ≤ i0, 0 < i0 ⊦ 16 = (# fillsgn(17, int2bits(j)))-1, s2i(i2s(bits2int(lastn(16, int2bits(i0) + fillsgn(17, int2bits(j)).rest)))) = j
Used simplifier rules: ⊦ fillsgn(n, bits) = [] ↔ bits = [] ∧ n = 0;% ⊦ int2bits(j) ≠ []; Used terms: fillsgn(17, int2bits(j))