| # buf2 = (n4 + n2) + n3, LEB_SIZE = n0 + n1, avols[default-volid][m2] = mapped(buf0, n1), m2 < # avols[default-volid], n < # buf2, n < # subarray(buf2, 0, n3) + #(subarray(subarray(buf0, 0, n1) + mkempbuf(n0), m1, n2) + subarray(buf2, n3 + n2, n4)), ebm-cons(avols), ebm-vol-inv(abs(avols[default-volid])), default-volid ∈ avols, n3 ≤ # buf2, n1 ≤ LEB_SIZE, n3 + n2 ≤ # buf2, m1 + n2 ≤ LEB_SIZE, n2 + n3 ≤ # buf2 ⊦ (n < n3 ∨ n3 + n2 ≤ n ⊃ buf2[n];buf0[n + m1 - n3]) = (n < # subarray(buf2, 0, n3) ⊃ subarray(buf2, 0, n3)[n] ;(subarray(subarray(buf0, 0, n1) + mkempbuf(n0), m1, n2) + subarray(buf2, n3 + n2, n4))[n - # subarray(buf2, 0, n3)] ) |
# buf2 = (n4 + n2) + n3, LEB_SIZE = n0 + n1, avols[default-volid][m2] = mapped(buf0, n1), m2 < # avols[default-volid], n < # buf2, 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 ⊦ (n < n3 ∨ n3 + n2 ≤ n ⊃ buf2[n];buf0[n + m1 - n3]) = (n < n3 ⊃ buf2[n];(subarray(subarray(buf0, 0, n1) + mkempbuf(n0), m1, n2) + subarray(buf2, n3 + n2, n4))[n - n3])
Used simplifier rules: append-a: ⊦ (buf + buf0) + buf1 = buf + buf0 + buf1; from specification array-splice[buffer]% ⊦ #(buf + buf0) = # buf + # buf0; (s)%c: ⊦ m + n = n + m; from specification nat-basic%a: ⊦ (m + n0) + n1 = m + n0 + n1; from specification nat-basic% ⊦ n + 0 = n; (s)% ⊦ n0 < n → subarray(buf, m, n)[n0] = buf[m + n0]; (s)% ⊦ # subarray(buf, m, n) = n; (s)