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