| # bytes ≤ m, 0 ≤ bytes2int(bytes) ⊦ bytes = [], mklist(i2b(0), (m - # bytes) + 1) + bytes = (¬ 0 ≤ b2i(bytes.first) ⊃ i2b(~1);i2b(0)) ' + fillsgn(m, bytes) |
m = n + # bytes, # bytes ≤ m, 0 ≤ bytes2int(bytes) ⊦ bytes = [], mklist(i2b(0), n + 1) + bytes = (¬ 0 ≤ b2i(bytes.first) ⊃ i2b(~1);i2b(0)) ' + fillsgn(m, bytes)
Used simplifier rules: n ≤ m ⊦ n0 = m - n ↔ m = n0 + n; (elim) Used terms: m, # bytes, n