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