| ¬(# bits1 ≤ # bits ∧ bits1 ≠ [] ∧ bits1.first), # bits = # bits1, mklist(true, # bits1) = bits1 ⊦ bits1 = [], bits3 + bits = [], bits = lastn(# bits1, fillsgn(# bits1, bitsand(bits3 + bits, bits1))) |
mklist(true, # bits1) = bits1, # bits = # bits1 ⊦ bits = lastn(# bits1, fillsgn(# bits1, bitsand(bits, bits1))), bits3 + bits = [], bits1 = [], bits1.first
Used simplifier rules: bitsand-app-false: ⊦ # bits1 ≤ # bits0 ∧ bits1 ≠ [] ∧ ¬ bits1.first → bitsand(bits + bits0, bits1) = 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;