| # mklist(false, # bits0) ≤ # bits1 ∧ mklist(false, # bits0) ≠ [], # bits1 = #(mklist(mklist(false, # bits0).first, # bits1 - # mklist(false, # bits0)) + mklist(false, # bits0)), # bits0 < # bits1 ⊦ bits1 = [], bits0 = [], bits2 + bits1 = [], bits1 = mklist(mklist(false, # bits0).first, # bits1 - # mklist(false, # bits0)) + mklist(false, # bits0), true ∈ bits1, bits0.first |
# bits0 < # bits1 ⊦ bits1 = [], bits0 = [], bits2 + bits1 = [], bits1 = mklist(mklist(false, # bits0).first, # bits1 - # bits0) + mklist(false, # bits0), true ∈ bits1, bits0.first
Used simplifier rules: ⊦ m < n → m ≤ n;% ⊦ # bits = 0 ↔ bits = [];% ⊦ mklist(boolvar, m) = [] ↔ m = 0;% ⊦ (bits + bits0) + bits1 = bits + bits0 + bits1;% ⊦ m + n = n + m;% ⊦ (m + n0) + n1 = m + n0 + n1;% ⊦ n < m → (m - n) + n = m;% ⊦ #(bits + bits0) = # bits + # bits0;% ⊦ # mklist(boolvar, n) = n;