| bits1 = bits4 + boolvar0 ', bits2 = bits3 + boolvar ', # bits2 = n + # bits1, # bits1 ≤ # bits2, ∀ bits0, bits, n. # bits0 < # bits1 → # bits = n + 1 + # bits0 ∧ # bits0 < # bits → bits = [] ∨ bitsand(bits, true ' + bits0) = (true ' + mklist(true, n)) + bits0 ∨ false ∈ bits ⊦ bitsand(true ' + bits3, true ' + bits4) + (boolvar ∧ boolvar0)' = (true ' + mklist(true, n)) + bits1, bits1 = [], bits2 = [], false ∈ bits2 |
# bits3 = # bits4 + n, # bits4 ≤ # bits3, ∀ bits0, bits, n. # bits0 < #(bits4 + boolvar0 ') → # bits = n + 1 + # bits0 ∧ # bits0 < # bits → bits = [] ∨ bitsand(bits, true ' + bits0) = (true ' + mklist(true, n)) + bits0 ∨ false ∈ bits ⊦ bitsand(true ' + bits3, true ' + bits4) = true ' + mklist(true, n) + bits4, false ∈ bits3
Used simplifier rules: ⊦ bits + bits0 = bits1 + bits0 ↔ bits = bits1;% ⊦ boolvar ∈ boolvar0 ' ↔ boolvar ↔ boolvar0;% ⊦ boolvar ∈ bits + bits0 ↔ ¬ ¬(boolvar ∈ bits ∨ boolvar ∈ bits0);% ⊦ m + n ≤ m + n0 ↔ n ≤ n0;% ⊦ bits + boolvar ' ≠ [];% ⊦ m + n = n + m;% ⊦ (m + n0) + n1 = m + n0 + n1;% ⊦ m + n = m + n0 ↔ n = n0;% ⊦ (bits + bits0) + bits1 = bits + bits0 + bits1;% ⊦ # boolvar ' = 0 +1;% ⊦ #(bits + bits0) = # bits + # bits0;