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