| #(bits3 + bitsand(bits1, true ' + false ' + bits)) ≤ 2 + # bits + n + # bits3 ∧ bits3 + bitsand(bits1, true ' + false ' + bits) ≠ [], # bits1 = 2 + # bits, sgn((mklist(true, n) + mklist(true, # bits3)) + true ' + false ' + bits) = true ' + false ' + bits, bits3.first ⊦ lastn (2 + # bits + n + # bits3, mklist((bits3 + bitsand(bits1, true ' + false ' + bits)).first, 2 + # bits + n + # bits3 - #(bits3 + bitsand(bits1, true ' + false ' + bits))) + bits3 + bitsand(bits1, true ' + false ' + bits)) = lastn(2 + # bits + n + # bits3, fillsgn(2 + # bits + n + # bits3, bits2 + mklist(true, n) + bits3 + bitsand(bits1, true ' + false ' + bits))), bits1 = [], bits3 + bits1 = [], bits3 = [], bits2 + mklist(true, n) + mklist(true, # bits3) = [] |
# bits1 = 2 + # bits, sgn((mklist(true, n) + mklist(true, # bits3)) + true ' + false ' + bits) = true ' + false ' + bits, bits3.first, # bitsand(bits1, true ' + false ' + bits) ≤ 2 + # bits + n ⊦ bits1 = [], bits3 + bits1 = [], bits3 = [], bits2 + mklist(true, n) + mklist(true, # bits3) = [], bits3 + bitsand(bits1, true ' + false ' + bits) = [], lastn (2 + # bits + n + # bits3, mklist(true, 2 + # bits + n - # bitsand(bits1, true ' + false ' + bits)) + bits3 + bitsand(bits1, true ' + false ' + bits)) = lastn(2 + # bits + n + # bits3, fillsgn(2 + # bits + n + # bits3, bits2 + mklist(true, n) + bits3 + bitsand(bits1, true ' + false ' + bits)))
Used simplifier rules: ⊦ m + n ≤ m + n0 ↔ n ≤ n0;% ⊦ m + n = n + m;% ⊦ (m + n0) + n1 = m + n0 + n1;% ⊦ m + n - n + n1 = m - n1;% ⊦ #(bits + bits0) = # bits + # bits0;% ⊦ (bits + bits0) + bits1 = bits + bits0 + bits1;% ⊦ bits ≠ [] → ((bits + bits0).first ↔ bits.first);