| # bits1 ≠ 0, mklist(true, # bits1) = bits1, true ∈ mklist(true, # bits1) ⊦ bits2 + mklist(true, # bits1) = [], bits0 = [], lastn(# mklist(true, # bits1), fillsgn(# mklist(true, # bits1), bitsand(true ', bits0))) = lastn(# mklist(true, # bits1), fillsgn(# mklist(true, # bits1), bitsand(bits2 + mklist(true, # bits1), bits0))) |
mklist(true, # bits1) = bits1 ⊦ bits2 + bits1 = [], bits0 = [], lastn(# bits1, fillsgn(# bits1, bits0)) = lastn(# bits1, fillsgn(# bits1, bitsand(bits2 + bits1, bits0))), bits1 = []
Used simplifier rules: and-onel-01: ⊦ bits ≠ [] → bitsand(true ', bits) = bits;% ⊦ boolvar ∈ mklist(boolvar, m) ↔ m ≠ 0;% ⊦ # bits = 0 ↔ bits = [];% ⊦ # mklist(boolvar, n) = n;