| LEB_SIZE = (n4 + n) + m1, avols[default-volid][m2] = mapped(buf0, n2), avol = abs(avols[default-volid]), err = ESUCCESS, avol[m2].mapped?, m2 < # avol, m2 < # avols[default-volid], ebm-cons(avols), ebm-vol-inv(abs(avols[default-volid])), is-aligned(m1, EB_PAGE_SIZE), is-aligned(n, EB_PAGE_SIZE), default-volid ∈ avols, m1 + n ≤ LEB_SIZE, n3 + n ≤ # buf, n2 ≤ LEB_SIZE, m1 ≤ LEB_SIZE, n2 ≤ m1, n + m1 ≤ LEB_SIZE, m1 ≥ # avol[m2].data ⊦ n = 0, avol[m2, mapped(avol[m2].data + mkempbuf(m1 - # avol[m2].data) + subarray(buf, n3, n))] = abs(avols[default-volid][m2, mapped(subarray(avols[default-volid][m2].data, 0, m1) + subarray(buf, n3, n) + mkempbuf(n4), m1 + n)]) ∧ ESUCCESS = err |
LEB_SIZE = (n4 + n) + m1, avols[default-volid][m2] = mapped(buf0, n2), m2 < # avols[default-volid], ebm-cons(avols), ebm-vol-inv(abs(avols[default-volid])), is-aligned(n, EB_PAGE_SIZE), is-aligned(m1, EB_PAGE_SIZE), default-volid ∈ avols, n + m1 ≤ LEB_SIZE, n2 ≤ m1, m1 ≤ LEB_SIZE, n2 ≤ LEB_SIZE, n3 + n ≤ # buf, m1 + n ≤ LEB_SIZE ⊦ abs(avols[default-volid])[m2, mapped(subarray(buf0, 0, n2) + mkempbuf(m1 - n2) + subarray(buf, n3, n))] = abs(avols[default-volid][m2, mapped(subarray(buf0, 0, m1) + subarray(buf, n3, n) + mkempbuf(n4), m1 + n)]), n = 0
Used simplifier rules: ⊦ mapped(buf, m).data = buf; (s)% ⊦ # subarray(buf, m, n) = n; (s)% ⊦ mapped(buf).data = buf; (s)% ⊦ abs(mapped(buf, n)) = mapped(subarray(buf, 0, n)); (s)% ⊦ mapped(buf, m) = mapped(buf0, m0) ↔ buf = buf0 ∧ m = m0; (ws)%append-a: ⊦ (buf + buf0) + buf1 = buf + buf0 + buf1; from specification array-splice[buffer]% ⊦ abs(leb).mapped? ↔ (∃ buf, n. leb = mapped(buf, n)); (s)% ⊦ # abs(evol) = # evol; (s)% ⊦ n ≥ m ↔ m ≤ n; (s)% ⊦ n < # evol → abs(evol)[n] = abs(evol[n]); (s)