| # buf0 + # buf1 = # buf2 + # buf3, n < # buf0, n < # buf2, is-encoded(a, buf0), # buf0 ≤ # buf2, ∀ n0. n0 < # buf2 + # buf3 → (buf0 + buf1)[n0] = (buf2 + buf3)[n0] ⊦ is-encoded(b, buf2) ↔ # buf0 = # buf2 ∧ a = b, buf2[n] = buf0[n], is-encoded(a, subarray(buf2, 0, # buf0)) |
Used simplifier rules: ⊦ n < # buf → (buf + buf0)[n] = buf[n]; (s)%append-a: ⊦ (buf + buf0) + buf1 = buf + buf0 + buf1; from specification array-splice[buffer]% ⊦ m ≠ n → (m ≤ n ↔ m < n); (s)% ⊦ m < n ↔ ¬ n ≤ m; (ss)%fle-01: ⊦ m ≤ n ∧ n < n0 → m < n0; (forward) from specification nat%lf: ⊦ m < n ∧ n < n0 → m +1 < n0; (forward) from specification nat-basic% ⊦ ¬ m + n < m; (s)%a: ⊦ (m + n0) + n1 = m + n0 + n1; from specification nat-basic%c: ⊦ m + n = n + m; from specification nat-basic%# buf = n ⊦ subarray(buf, 0, n) = buf; (s) Used terms: n