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