| mklist(false, # bits1) = bits1, # bits0 ≤ # bits1 ⊦ ¬ true ∈ bits1, bits0 = [], bits1 = lastn(# bits1, fillsgn(# bits1, bitsand(bits1, bits0))), bits2 + bits1 = [], bits1 = [], bits0.first, ¬ true ∈ bits1 ∧ # bits0 ≠ # bits1 |
mklist(false, # bits1) = bits1, true ∈ bits1, # bits0 ≤ # bits1 ⊦ bits0 = [], bits1 = lastn(# bits1, fillsgn(# bits1, bitsand(bits1, bits0))), bits2 + bits1 = [], bits1 = [], bits0.first