| 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 ⊦ copy(buf0, m1, buf2, n3, n2) = subarray(buf2, 0, n3) + subarray(subarray(buf0, 0, n1) + mkempbuf(n0), m1, n2) + subarray(buf2, n3 + n2, # buf2 - n3 - n2) |
# 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)
Used simplifier rules: ⊦ m ≤ n ↔ ¬ n < m; (ss)%fle-01: ⊦ m ≤ n ∧ n < n0 → m < n0; (forward) from specification nat%f: ⊦ m < n → n ≠ 0; (forward) from specification nat-basic% ⊦ 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%n0 ≤ n ⊦ m ≤ n - n0 ↔ m + n0 ≤ n; (s)% ⊦ m ≤ n → (n < m ↔ false); (s)%n ≤ m ⊦ n0 = m - n ↔ m = n0 + n; (elim) Used terms: n2, # buf2 - n3, n