| # bits0 ≠ 0, n = # fillsgn(n, bits), # bits0 + 1 < n, # bits0 < # bits, # bits < n, # bits0 < n ⊦ bits0 = [], bits = [], mklist(false, n) = mklist(false, n - # bits0) + mklist(false, # bits0), bits0.first, true ∈ bits |
n = # fillsgn(n, bits), # bits0 + 1 < n, # bits0 < # bits, # bits < n, # bits0 < n ⊦ bits0 = [], bits = [], mklist(false, n) = mklist(false, n - # bits0) + mklist(false, # bits0), bits0.first, true ∈ bits
Used simplifier rules: ⊦ # bits = 0 ↔ bits = [];