| # bytes = m + 1, b2i(bytes[n]) = 0, bytes[n] = i2b(0), n ≤ m ⊦ bytes = [], m = 0, (mklist(bytes[n], m) + bytes[n] ')[n] = bytes[n] |
⊦ n < # bytes → (bytes + by ')[n] = bytes[n]
Used simplifier rules: ⊦ m < n → mklist(by, n)[m] = by;% ⊦ m < n → n ≠ 0;% ⊦ ¬ n < # bytes → (bytes + bytes0)[n] = bytes0[n - # bytes];% ⊦ # mklist(by, n) = n;% ⊦ (bytes + bytes0) + bytes1 = bytes + bytes0 + bytes1;% ⊦ ¬ m < n ↔ n ≤ m;% ⊦ m ≤ n → (n ≤ m ↔ m = n);% ⊦ m - m = 0;% ⊦ by '[0] = by; Used terms: n, bytes[n], mklist(bytes[n], m)