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