| # bits ≤ # bits1 ∧ bits ≠ [] ∧ ¬ bits.first, # bits = # bits1, mklist(true, # bits1) = bits1 ⊦ bits2 = [], bits1 = [], bits2 + bits1 = [], bits = [], bits = lastn(# bits1, fillsgn(# bits1, bitsand(bits1, bits))) |
mklist(true, # bits1) = bits1, # bits = # bits1 ⊦ bits = [], bits = lastn(# bits1, fillsgn(# bits1, bitsand(bits1, bits))), bits2 + bits1 = [], bits1 = [], bits2 = [], bits.first
Used simplifier rules: ⊦ m ≤ m;