| m ≤ n ⊦ bits = [], lastn(m, fillsgn(n, bits)) = lastn(m, fillsgn(m, bits)) |
⊦ # bits ≤ n ∧ bits ≠ [] → fillsgn(n, bits) = mklist(bits.first, n - # bits) + bits
¬(# bits ≤ m ∧ bits ≠ []), m ≤ n ⊦ bits = [], lastn(m, fillsgn(n, bits)) = lastn(m, fillsgn(m, bits))
# bits ≤ m ∧ bits ≠ [], m ≤ n ⊦ bits = [], lastn(m, fillsgn(n, bits)) = lastn(m, mklist(bits.first, m - # bits) + bits)
Used terms: bits, m