| m ≤ # bits2, 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 ⊦ 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, m ≤ # bits2, n0 < m, 2 + # bits1 + m < n0 + # bits, n0 < # bits2 ⊦ 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: ⊦ # bits = 0 ↔ bits = [];% ⊦ m < n → n ≠ 0; (forward)% ⊦ m < n ∧ n ≤ n0 → m < n0; (forward)% ⊦ m + n = n + m;% ⊦ (m + n0) + n1 = m + n0 + n1;