| # bits ≤ # bits1 ∧ bits.first, ∀ bits2, bits1, bits0. # bits2 < # bits → # bits2 ≤ # bits1 ∧ bits2.first → bits2 = [] ∨ bitsand(bits2, bits0 + bits1) = bits0 + bitsand(bits2, bits1) ⊦ bits = [] ∨ bitsand(bits, bits0 + bits1) = bits0 + bitsand(bits, bits1) |
bits.first, # bits ≤ # bits1, ∀ bits2, bits1, bits0. # bits2 < # bits → # bits2 ≤ # bits1 ∧ bits2.first → bits2 = [] ∨ bitsand(bits2, bits0 + bits1) = bits0 + bitsand(bits2, bits1) ⊦ bitsand(bits, bits0 + bits1) = bits0 + bitsand(bits, bits1), bits = []