| ~128 < 0, # int2bits(128) = 1 + n, # sgn(bitsinvert(uint2bits(abs(~128))) +1) = 1 + n0, i2b(bits2int(sublist(0, n, int2bits(128)))) = i2b(bits2int(sublist(0, n0, sgn(bitsinvert(uint2bits(abs(~128))) +1)))) ⊦ n = 0, n0 = 0 |
# int2bits(128) = 1 + n, i2b(bits2int(sublist(0, n, int2bits(128)))) = i2b(bits2int(true ' + false ' + false ' + false ' + false ' + false ' + false ')) ⊦ n = 0
Used simplifier rules: ⊦ bits + [] = bits;% ⊦ sublist(0, 0, bits) = [];%n ≠ 0 ⊦ sublist(0, (* n), boolvar ' + bits) = boolvar ' + sublist(0, n -1, bits);% ⊦ m + n = n + m;% ⊦ (m + n0) + n1 = m + n0 + n1;%n0 < n ⊦ (* n) = m0 + (* n0) ↔ n - n0 = m0;% ⊦ # boolvar ' = 0 +1;% ⊦ #(bits + bits0) = # bits + # bits0;% ⊦ sgn(true ' + false ' + bits) = true ' + false ' + bits;% ⊦ sgn(boolvar ' + boolvar ' + bits) = sgn(boolvar ' + bits);% ⊦ (bits + false ')+1 = bits + true;% ⊦ (bits + true ')+1 = bits +1 + false;% ⊦ (bits + bits0) + bits1 = bits + bits0 + bits1;% ⊦ boolvar + bits = boolvar ' + bits;% ⊦ bitsinvert(false ') = true ';% ⊦ bitsinvert(true ' + bits) = false + bitsinvert(bits);% ⊦ bitsinvert(false ' + bits) = true + bitsinvert(bits);% ⊦ bits + boolvar = bits + boolvar ';% ⊦ boolvar + boolvar0 = boolvar ' + boolvar0 ';% ⊦ uint2bits(1) = false + true;%1 < i ⊦ uint2bits((* i)) = uint2bits(i / 2) + (i % 2 = 1);