| ¬ false ∈ bits1 ∧ # bits0 ≤ # bits1 ∧ bits0.first ∧ bits0 ≠ [], mklist(true, # bits1) = bits1, # bits0 < # bits1, bits0.first ⊦ bits2 + bits1 = [], bits0 = [], bits1 = [], lastn(# bits1, mklist(true, # bits1 - # bits0) + bits0) = lastn(# bits1, fillsgn(# bits1, bits2 + fillsgn(# bits1, bits0))) |
# bits0 < # bits1, bits0.first ⊦ bits0 = [], bits2 + bits1 = [], bits1 = [], lastn(# bits1, mklist(true, # bits1 - # bits0) + bits0) = lastn(# bits1, fillsgn(# bits1, bits2 + mklist(true, # bits1 - # bits0) + bits0)), false ∈ bits1
Used simplifier rules: ⊦ m < n → m ≤ n;%⊦ # bits ≤ n ∧ bits ≠ [] → fillsgn(n, bits) = mklist(bits.first, n - # bits) + bits;% ⊦ ¬ false ∈ bits → mklist(true, # bits) = bits;