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