| ⊦ # bits = # bits0 ∧ 1 < # bits → bitsand(bits, bits0) = (bits.first ∧ bits0.first)' + bitsand(bits.rest, bits0.rest) |
# bits = # bits0 ⊦ bitsand(bits, bits0) = (bits.first ∧ bits0.first)' + bitsand(bits.rest, bits0.rest), # bits0 = 1, bits = []
Used simplifier rules: ⊦ # bits = 0 ↔ bits = [];% ⊦ 1 < m ↔ ¬(m = 0 ∨ m = 1);