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