| ∃ bits0, bits1. int2bits(j) = bits0 + bits1 ∧ # bits1 = i→n(i) + 1, i→n(i) < # int2bits(j), 0 < i ⊦ i→n(i) = # int2bits(j), bits2int(bitsand(int2bits(j), false ' + mklist(true, i→n(i)))) = bits2uint(lastn(i→n(i), int2bits(j))) |
int2bits(j) = bits0 + bits, # bits = i→n(i) + 1, i→n(i) < # bits0 + # bits, 0 < i ⊦ i→n(i) = # bits0 + # bits, bits2int(bitsand(bits0 + bits, false ' + mklist(true, i→n(i)))) = bits2uint(lastn(i→n(i), bits0 + bits))
Used simplifier rules: ⊦ m < n → n ≠ 0;% ⊦ m ≤ m + n;% ⊦ (bits + bits0) + bits1 = bits + bits0 + bits1;% ⊦ #(bits + bits0) = # bits + # bits0;% ⊦ m < n → n ≠ 0; (forward)% ⊦ m + n = n + m;% ⊦ (m + n0) + n1 = m + n0 + n1;% ⊦ m = n + 1 ∧ n < n0 → m ≤ n0; (forward)