| 0 ≤ i, 0 ≤ i0 ⊦ bits2int(firstn(# int2bits(i), (mklist(false, i→n(i0)) + false ') + int2bits(i))) = bits2int(sublist(0, # int2bits(i / 2), mklist(false, i→n(i0)) + int2bits(i / 2))) |
⊦ sublist(m, n, bits) = firstn(n, restn(m, bits))
0 ≤ i, 0 ≤ i0 ⊦ bits2int(firstn(# int2bits(i), (mklist(false, i→n(i0)) + false ') + int2bits(i))) = bits2int(firstn(# int2bits(i / 2), restn(0, mklist(false, i→n(i0)) + int2bits(i / 2))))
Used terms: mklist(false, i→n(i0)) + int2bits(i / 2), # int2bits(i / 2), 0