| ¬(# bits ≤ # bits1 ∧ bits ≠ [] ∧ ¬ bits.first), # bits = # bits1, mklist(true, # bits1) = bits1 ⊦ bits2 = [], bits1 = [], bits2 + bits1 = [], bits = [], bits = lastn(# bits1, fillsgn(# bits1, bitsand(bits2 + bits1, bits))) |
mklist(true, # bits1) = bits1, # bits = # bits1, bits.first ⊦ bits = lastn(# bits1, fillsgn(# bits1, bits2 + bitsand(bits1, bits))), bits = [], bits2 + bits1 = [], bits1 = [], bits2 = []
Used simplifier rules: bitsand-app-true: ⊦ # bits1 ≤ # bits0 ∧ bits1 ≠ [] ∧ bits1.first → bitsand(bits + bits0, bits1) = bits + bitsand(bits0, bits1);% ⊦ m ≤ m;% ⊦ (bits + bits0) + bits1 = bits + bits0 + bits1;% ⊦ ¬ m < n ↔ n ≤ m;% ⊦ ¬ n < n;% ⊦ # bits = 0 ↔ bits = [];% ⊦ m < n → n ≠ 0; (forward)% ⊦ m < n ∧ n = n0 → m < n0; (forward)% ⊦ m < n ∧ m = n0 → n0 < n; (forward)% ⊦ ¬ m ≤ n ↔ n < m;