| 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 = [], (bits0 ≠ [] ∨ bits1 ≠ []) ∧ # bits0 + # bits1 ≠ 1 ∧ bits ≠ true ' |
bits.first, # bits ≤ # bits1, ∀ bits2, bits1, bits0. # bits2 < # bits → # bits2 ≤ # bits1 ∧ bits2.first → bits2 = [] ∨ bitsand(bits2, bits0 + bits1) = bits0 + bitsand(bits2, bits1) ⊦ bits1 = [], bitsand(bits, bits0 + bits1) = bits0 + bitsand(bits, bits1), bits = [], (bits0 ≠ [] ∨ bits1 ≠ []) ∧ # bits0 + # bits1 ≠ 1 ∧ bits ≠ true '
Used simplifier rules: ⊦ bits + [] = bits;% ⊦ (bits + bits0) + bits1 = bits + bits0 + bits1;% ⊦ # [] = 0;% ⊦ m ≤ 0 ↔ m = 0;% ⊦ # bits = 0 ↔ bits = []; Used formulas: bits1 = []