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