| # bits ≤ m, m ≤ n, # bits ≤ n ⊦ lastn(m, fillsgn(n, bits)) = lastn(m, mklist(bits.first, m - # bits) + bits), bits = [] |
⊦ # bits ≤ n ∧ bits ≠ [] → fillsgn(n, bits) = mklist(bits.first, n - # bits) + bits
# bits ≤ n ∧ bits ≠ [], # bits ≤ m, m ≤ n, # bits ≤ n ⊦ lastn(m, mklist(bits.first, n - # bits) + bits) = lastn(m, mklist(bits.first, m - # bits) + bits), bits = []
Used simplifier rules: ⊦ ¬ m ≤ n ↔ n < m;% ⊦ m ≤ n → (n < m ↔ false); Used terms: bits, n