| # bits ≤ # bits1 ∧ bits ≠ [] ∧ bits.first, # bits = 8, int2bits(i) = bits0 + bits, # bits1 = 8, int2bits(j) = bits2 + bits1, 8 ≤ # bitsand(bits1, bits), 8 ≤ # bitsand(bits0, bits2) + # bitsand(bits1, bits) ⊦ bits = [], bits1 = [], bits0 = [], bits2 = [], bits2 + bits1 = [], lastn(8, bitsand(bits1, bits)) = lastn(8, fillsgn(8, bits2 + bitsand(bits1, bits))), # bitsand(bits0, bits2) + # bitsand(bits1, bits) = 0 |
int2bits(j) = bits2 + bits1, # bits1 = 8, int2bits(i) = bits0 + bits, # bits = 8, bits.first ⊦ lastn(8, bitsand(bits1, bits)) = lastn(8, fillsgn(8, bits2 + bitsand(bits1, bits))), bits2 + bits1 = [], bits2 = [], bits0 = [], bits1 = [], bits = []
Used simplifier rules: ⊦ m ≤ m + n;% ⊦ (m + n0) + n1 = m + n0 + n1;%n < n0 ⊦ (* n) ≠ m0 + (* n0);% ⊦ n ≤ n0 ∧ n0 ≤ n1 → n ≤ n1; (forward)%0 < n ⊦ (* n) ≤ m → m ≠ 0; (forward)% ⊦ m + n = n + m;%⊦ bits0.first ∧ # bits0 ≤ # bits ∧ bits0 ≠ [] → # bitsand(bits, bits0) = # bits;