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