| ⊦ ¬ true ∈ bits → int2bits(bits2int(true ' + bits)) = true ' + bits |
Used simplifier rules: bits2int-2pot: ⊦ ¬ true ∈ bits → bits2int(true ' + bits) = ~(2 ^ n→i(# bits));%int2bits-2pot-01: 0 ≤ i ⊦ int2bits(~(2 ^ i)) = true ' + mklist(false, i→n(i));% ⊦ bits + bits0 = bits + bits1 ↔ bits0 = bits1;% ⊦ ¬ true ∈ bits → mklist(false, # bits) = bits;% ⊦ i→n(n→i(n)) = n;% ⊦ 0 ≤ n→i(n);% ⊦ (bits + bits0) + bits1 = bits + bits0 + bits1;