| # bits2 < # bits0, ∀ bits, bits0, bits1. # bits1 < # bits2 → # bits1 < # bits0 → bitsand(bits + bits0, true ' + bits1) = bits + bitsand(bits0, true ' + bits1) ∨ bits0 = [] ⊦ bits2 ≠ [], bits0 = [], bitsand(bits + bits0, true ' + bits2) = bits + bitsand(bits0, true ' + bits2), # bits + # bits0 ≠ 1 ∧ bits2 ≠ [] |
∀ bits, bits0, bits1. # bits1 < # [] → # bits1 < # bits0 → bitsand(bits + bits0, true ' + bits1) = bits + bitsand(bits0, true ' + bits1) ∨ bits0 = [] ⊦ bits0 = [], bitsand(bits + bits0, true ') = bits + bits0
Used simplifier rules: and-oner-01: ⊦ bits ≠ [] → bitsand(bits, true ') = bits;% ⊦ # bits = 0 ↔ bits = [];% ⊦ 0 < n ↔ n ≠ 0;% ⊦ # [] = 0;% ⊦ (bits + bits0) + bits1 = bits + bits0 + bits1;% ⊦ bits + [] = bits;