| # buf3 = n0 + n, # buf2 = EB_PAGE_SIZE, # lpt0 = # avol1, # avol0 = # avol1, # buf = n0 + n, avol1[m2] = mapped(buf1), adr = adr0, avol = avol1, buf0 = buf3, lpt = lpt0, m = m5, m1 = m2, ns = ns0, plog = plog0, m2 < # avol1, abs(avol1, bleb, mkwbuf(buf2, m6, m4), avol0, rofs), awbuf-inv(avol1, bleb), ebm-vol-inv(avol0), range=(buf3, n, buf, n, n0), m0 + n ≤ LEB_SIZE, ⌊err0⌋ , bleb ≠ nobuffer → bleb.leb < # avol1 ∧ avol0[bleb.leb].mapped? ∧ m4 < EB_PAGE_SIZE ∧ (¬ rofs → # avol0[bleb.leb].data = m6) ∧ (rofs → m6 ≤ # avol0[bleb.leb].data) ∧ is-aligned(m6, EB_PAGE_SIZE) ⊦ ⟨if m1 < # avol ∧ n ≤ # buf0 ∧ m0 + n ≤ LEB_SIZE ∧ avol[m1].mapped? then {fail_or_success#(; ; err); if err = ESUCCESS then buf0 := copy(avol[m1].data + mkempbuf(LEB_SIZE - # avol[m1].data), m0, buf0, 0, n) else choose buf with # buf = # buf0 ∧ range=(buf, n, buf0, n, # buf0 - n) in buf0 := buf} else abort⟩ (buf = buf0 ∧ err0 = err) |
# buf = n0 + n, # avol0 = # avol1, # lpt0 = # avol1, # buf2 = EB_PAGE_SIZE, # buf3 = n0 + n, avol1[m2] = mapped(buf1), adr = adr0, avol = avol1, buf0 = buf3, lpt = lpt0, m = m5, m1 = m2, ns = ns0, plog = plog0, m2 < # avol1, abs(avol1, bleb, mkwbuf(buf2, m6, m4), avol0, rofs), awbuf-inv(avol1, bleb), ebm-vol-inv(avol0), range=(buf3, n, buf, n, n0), m0 + n ≤ LEB_SIZE, ⌊err0⌋ , bleb ≠ nobuffer → bleb.leb < # avol1 ∧ avol0[bleb.leb].mapped? ∧ m4 < EB_PAGE_SIZE ∧ (¬ rofs → # avol0[bleb.leb].data = m6) ∧ (rofs → m6 ≤ # avol0[bleb.leb].data) ∧ is-aligned(m6, EB_PAGE_SIZE) ⊦ ⟨fail_or_success#(; ; err); if err = ESUCCESS then buf0 := copy(avol[m1].data + mkempbuf(LEB_SIZE - # avol[m1].data), m0, buf0, 0, n) else choose buf with # buf = # buf0 ∧ range=(buf, n, buf0, n, # buf0 - n) in buf0 := buf⟩ (buf = buf0 ∧ err0 = err)
Used simplifier rules: ⊦ m ≤ m + n; (s)%a: ⊦ (m + n0) + n1 = m + n0 + n1; from specification nat-basic%c: ⊦ m + n = n + m; from specification nat-basic% ⊦ mapped(buf).mapped?; (s)