| # 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, m1 + n2 ≤ LEB_SIZE, n3 + n2 ≤ # buf2, n1 ≤ LEB_SIZE, n2 ≤ # buf2 - n3 ⊦ 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 - 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)
Used simplifier rules: n0 ≤ n ⊦ m ≤ n - n0 ↔ m + n0 ≤ n; (s)%c: ⊦ m + n = n + m; from specification nat-basic%a: ⊦ (m + n0) + n1 = m + n0 + n1; from specification nat-basic% ⊦ ¬ m + n < m; (s)% ⊦ m < n → n ≠ 0; (s)%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 < m; (ss)