| # bits = n0 + # bits0, (n + n0) + # bits0 = # fillsgn((n + n0) + # bits0, bits), # bits0 ≤ # bits, bits0.first, true ∈ bits, # bits < (n + n0) + # bits0 ⊦ n = 0, (mklist(true, n) + mklist(true, n0)) + bits0 = lastn((n + n0) + # bits0, mklist(true, n) + mklist(true, n0) + bits0), bits0 = [], bits = [], mklist(true, n0) + bits0 = [], n0 = 0, n + n0 = 0, false ∈ bits |
⊦ n = # bits → lastn(n, bits) = bits
Used simplifier rules: ⊦ m + n = n + m;% ⊦ (m + n0) + n1 = m + n0 + n1;% ⊦ #(bits + bits0) = # bits + # bits0;% ⊦ # mklist(boolvar, n) = n;% ⊦ (bits + bits0) + bits1 = bits + bits0 + bits1;% ⊦ m + n = m + n0 ↔ n = n0; Used terms: mklist(true, n) + mklist(true, n0) + bits0, (n + n0) + # bits0