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