| # buf2 - n3 = n4 + n2, LEB_SIZE = n0 + n1, avols[default-volid][m2] = mapped(buf0, n1), m2 < # avols[default-volid], ebm-cons(avols), ebm-vol-inv(abs(avols[default-volid])), default-volid ∈ avols, n1 ≤ LEB_SIZE, n3 + n2 ≤ # buf2, m1 + n2 ≤ LEB_SIZE, n2 + n3 ≤ # buf2 ⊦ copy(buf0, m1, buf2, n3, n2) = subarray(buf2, 0, n3) + subarray(subarray(buf0, 0, n1) + mkempbuf(n0), m1, n2) + subarray(buf2, n3 + n2, n4) |
# buf2 = n5 + n3, LEB_SIZE = n0 + n1, avols[default-volid][m2] = mapped(buf0, n1), n5 = n4 + n2, m2 < # avols[default-volid], ebm-cons(avols), ebm-vol-inv(abs(avols[default-volid])), default-volid ∈ avols, n2 + n3 ≤ # buf2, m1 + n2 ≤ LEB_SIZE, n3 + n2 ≤ # buf2, n1 ≤ LEB_SIZE, n3 ≤ # buf2 ⊦ copy(buf0, m1, buf2, n3, n2) = subarray(buf2, 0, n3) + subarray(subarray(buf0, 0, n1) + mkempbuf(n0), m1, n2) + subarray(buf2, n3 + n2, n4)
Used simplifier rules: ⊦ m ≠ n → (m ≤ n ↔ m < n); (s)% ⊦ n ≠ n0 → (n < n0 ↔ ¬ n0 < n); (ss)%f: ⊦ m < n → n ≠ 0; (forward) from specification nat-basic%fle-01: ⊦ m ≤ n ∧ n < n0 → m < n0; (forward) from specification nat% ⊦ m < n → n ≠ 0; (s)% ⊦ ¬ 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)%⊦ v ∈ avols ∧ m < # avols[v] ∧ avols[v][m] = mapped(buf, m0) ∧ ebm-cons(avols) → # buf = LEB_SIZE; (s)% ⊦ m ≤ n ↔ ¬ n < m; (ss)%lf-01: ⊦ m < n ∧ n = n0 → m < n0; (forward) from specification nat-basic% ⊦ LEB_SIZE ≠ 0; (s)% ⊦ m < m + n ↔ n ≠ 0; (s)% ⊦ # mkempbuf(n) = n; (s)%fle: ⊦ m < n ∧ n ≤ n0 → m < n0; (forward) from specification nat%# buf ≤ n0, n0 + m ≤ # buf + # buf0 ⊦ subarray(buf + buf0, n0, m) = subarray(buf0, n0 - # buf, m); (s)%append-a: ⊦ (buf + buf0) + buf1 = buf + buf0 + buf1; from specification array-splice[buffer]%n ≤ m ⊦ n0 = m - n ↔ m = n0 + n; (elim) Used terms: n3, # buf2, n