| n = n0 + # bits ∧ # bits ≤ n, # bits < n ⊦ bits = [], mklist(¬ bits.first, n0) + bitsinvert(bits) = fillsgn(n, bitsinvert(bits)) |
⊦ bits = [], mklist(¬ bits.first, n0) + bitsinvert(bits) = fillsgn(n0 + # bits, bitsinvert(bits)), n0 = 0
Used simplifier rules: ⊦ m + n = n + m;% ⊦ (m + n0) + n1 = m + n0 + n1;% ⊦ m < m + n ↔ n ≠ 0;% ⊦ m < n → m ≤ n;