| bits = [], ∀ bits, boolvar0, boolvar, n, bits1. # bits1 < # bits0 → true → n = 0 ∨ bits1 = [] ∨ (boolvar ∈ bitsor(mklist(boolvar0, n) + bits, bits1) ↔ boolvar ∈ bitsor(boolvar0 ' + bits, bits1)) ⊦ bits0 = [], n = 0, boolvar ∈ bitsor((mklist(boolvar0, n) + bits).butlast, bits0.butlast) ∨ (boolvar ↔ (mklist(boolvar0, n) + bits).last ∨ bits0.last) ↔ boolvar ∈ bitsor(boolvar0 ' + bits, bits0), n + # bits = 0, # bits0 = 1, bits = [] ∧ n = 1 |
∀ bits, boolvar0, boolvar, n, bits1. # bits1 < # bits0 → true → n = 0 ∨ bits1 = [] ∨ (boolvar ∈ bitsor(mklist(boolvar0, n) + bits, bits1) ↔ boolvar ∈ bitsor(boolvar0 ' + bits, bits1)) ⊦ # bits0 = 1, bits0 = [], boolvar ∈ bitsor(mklist(boolvar0, n - 1), bits0.butlast) ∨ (boolvar ↔ boolvar0 ∨ bits0.last) ↔ boolvar ∈ bitsor(boolvar0 ', bits0), n = 0, n = 1
Used simplifier rules: ⊦ m + n = n + m;% ⊦ (m + n0) + n1 = m + n0 + n1;% ⊦ 0 + m = m;% ⊦ # [] = 0;% ⊦ m ≠ 0 → (mklist(boolvar, m).last ↔ boolvar);% ⊦ m ≠ 0 → mklist(boolvar, m).butlast = mklist(boolvar, m - 1);% ⊦ (bits + bits0) + bits1 = bits + bits0 + bits1;% ⊦ bits + [] = bits;