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