| # buf2 = EB_PAGE_SIZE, # lpt0 = # avol1, # avol0 = # avol1, n3 + n5 + n1 = # buf3, min(n1, n2) + n4 = n1 + n5, LEB_SIZE = n0 + # buf0 + # buf, avol1[m2] = mapped(buf0 + buf), avol0[m2] = mapped(buf0 + buf), subarray(buf2, 0, n2) = subarray(buf, n3, n2), n3 < n0 + # buf, (n3 + # buf0) + n2 < LEB_SIZE, # buf0 < LEB_SIZE, n2 < EB_PAGE_SIZE, m2 < # avol1, n3 < # buf, n3 + n2 < # buf, n < # buf3, awbuf-inv(avol1, buffered(m2)), ebm-vol-inv(avol0), is-aligned(n3 + # buf0, EB_PAGE_SIZE), n1 + n3 ≤ # buf + n0, min(n1, n2) ≤ n1 + n5, n3 ≤ # buf3, min(n1, n2) ≤ EB_PAGE_SIZE ⊦ (n < n3 ⊃ buf[n] ;(subarray(buf2, 0, min(n1, n2)) + subarray(subarray(buf + mkempbuf(n0), 0, n1 + n3) + subarray(buf3, n1 + n3, n5), n3 + min(n1, n2), n4))[n - n3] ) = (n < n1 + n3 ⊃ (buf + mkempbuf(n0))[n];subarray(buf3, n1 + n3, n5)[n - n1 + n3]) |
# avol0 = # avol1, # lpt0 = # avol1, # buf2 = EB_PAGE_SIZE, min(n1, n2) + n4 = n1 + n5, n3 + n5 + n1 = # buf3, LEB_SIZE = n0 + # buf0 + # buf, avol0[m2] = mapped(buf0 + buf), avol1[m2] = mapped(buf0 + buf), subarray(buf2, 0, n2) = subarray(buf, n3, n2), n < # buf3, n3 + n2 < # buf, n3 < # buf, m2 < # avol1, n2 < EB_PAGE_SIZE, # buf0 < LEB_SIZE, (n3 + # buf0) + n2 < LEB_SIZE, n3 < n0 + # buf, awbuf-inv(avol1, buffered(m2)), ebm-vol-inv(avol0), is-aligned(n3 + # buf0, EB_PAGE_SIZE), min(n1, n2) ≤ EB_PAGE_SIZE, n3 ≤ # buf3, min(n1, n2) ≤ n1 + n5, n1 + n3 ≤ # buf + n0 ⊦ (subarray(buf2, 0, min(n1, n2)) + subarray(subarray(buf + mkempbuf(n0), 0, n1 + n3) + subarray(buf3, n1 + n3, n5), n3 + min(n1, n2), n4))[n - n3] = (n < n1 + n3 ⊃ (buf + mkempbuf(n0))[n];subarray(buf3, n1 + n3, n5)[n - n1 + n3]), n < n3
Used simplifier rules: f: ⊦ m < n → n ≠ 0; (forward) from specification nat-basic%lf: ⊦ m < n ∧ n < n0 → m +1 < n0; (forward) from specification nat-basic%transitivity: ⊦ n < n0 ∧ n0 < n1 → n < n1; (forward) from specification oelem[nat-set]% ⊦ m < n → n ≠ 0; (s)% ⊦ m +1 = m + 1; (s)%a: ⊦ (m + n0) + n1 = m + n0 + n1; from specification nat-basic%c: ⊦ m + n = n + m; from specification nat-basic% ⊦ m + n < m0 → m + n < m0 + n0; (s)% ⊦ m < n ↔ ¬ n ≤ m; (ss)%fle-01: ⊦ m ≤ n ∧ n < n0 → m < n0; (forward) from specification nat% ⊦ ¬ m + n < m; (s)% ⊦ n < # buf → (buf + buf0)[n] = buf[n]; (s)%append-a: ⊦ (buf + buf0) + buf1 = buf + buf0 + buf1; from specification array-splice[buffer]