| ⊦ bits ≠ [] ∧ n ≠ 0 ∧ # bits ≤ 8 * n → fix(n, bits2bytes(bits)) = bits2bytes(fillsgn(n * 8, bits)) |
# bits ≤ 8 * n ⊦ n = 0, bits = [], fix(n, bits2bytes(bits)) = bits2bytes(mklist(bits.first, n * 8 - # bits) + bits)
Used simplifier rules: ⊦ # bits ≤ n ∧ bits ≠ [] → fillsgn(n, bits) = mklist(bits.first, n - # bits) + bits;% ⊦ m * n = n * m;