| ¬(¬ true ∈ bits ∧ # bits0 < # bits ∧ ¬ bits0.first ∧ bits ≠ [] ∧ bits0 ≠ []), n = # fillsgn(n, bits), # bits < n ⊦ bits = [], bits0 = [], mklist(false, n) = lastn(n, fillsgn(n, bitsand(bits, bits0))), true ∈ bits |
n = # fillsgn(n, bits), # bits < n ⊦ bits = [], bits0 = [], mklist(false, n) = lastn(n, fillsgn(n, bitsand(bits, bits0))), true ∈ bits, ¬ # bits ≤ # bits0 ∧ ¬ bits0.first
Used simplifier rules: ⊦ ¬ m < n ↔ n ≤ m;