| # int2bits(i / 2) ≠ 0, i0 < 31, 0 ≤ i, 0 ≤ i0, 1 < i, 0 < i ⊦ bits2int ( (false ' + sublist(0, (# int2bits(i / 2))-1, mklist(false, i→n(i0)) + int2bits(i / 2))) + ((false ' + mklist(false, i→n(i0)) + int2bits(i / 2)) + (i % 2 = 1)')[# int2bits(i / 2)] ') = bits2int(sublist(0, # int2bits(i / 2), mklist(false, i→n(i0)) + int2bits(i / 2))) |
i0 < 31, 0 ≤ i, 0 ≤ i0, 1 < i, 0 < i ⊦ bits2uint ( sublist(0, # int2bits(i / 2) - 1, mklist(false, i→n(i0)) + int2bits(i / 2)) + ((false ' + mklist(false, i→n(i0)) + int2bits(i / 2)) + (i % 2 = 1)')[# int2bits(i / 2)] ') = bits2int(sublist(0, # int2bits(i / 2), mklist(false, i→n(i0)) + int2bits(i / 2)))
Used simplifier rules: ⊦ int2bits(j) ≠ [];% ⊦ # bits = 0 ↔ bits = [];% ⊦ (bits + bits0) + bits1 = bits + bits0 + bits1;% ⊦ bits2int(false ' + bits) = bits2uint(bits);% ⊦ n -1 = n - 1;