| ⊦ bits ≠ [] ∧ ¬ bits.first ∧ # bits ≤ n → fillsgn(n + 1, bits) = false ' + fillsgn(n, bits) |
# bits ≤ n ⊦ bits = [], fillsgn(n + 1, bits) = false ' + mklist(false, n - # bits) + bits, bits.first
Used simplifier rules: fill-fill: ⊦ # bits ≤ n ∧ bits ≠ [] → fillsgn(n, bits) = mklist(bits.first, n - # bits) + bits;