| # avol0 = # avol1, # lpt0 = # avol1, # buf1 = EB_PAGE_SIZE, rofs ↔ rofs0, avol0[m4] = mapped(buf2), adr = adr0, avol = avol1, bleb = buffered(m4), lpt = lpt0, m0 = m3, n0 = n, ns = ns0, plog = plog0, ¬ rofs0, m2 < EB_PAGE_SIZE, m2 + n < EB_PAGE_SIZE, m4 < # avol1, abs(avol1, buffered(m4), mkwbuf(buf1, # buf2, m2), avol0, false), awbuf-inv(avol1, buffered(m4)), ebm-vol-inv(avol0), is-aligned(# buf2, EB_PAGE_SIZE), # avol1[m4].data + n ≤ LEB_SIZE, n ≤ # buf, # buf2 + m2 + n ≤ LEB_SIZE ⊦ ⟨if bleb ≠ nobuffer ∧ # avol[bleb.leb].data + n0 ≤ LEB_SIZE ∧ n0 ≤ # buf then if rofs then err := EROFS else {fail_or_success#(; ; err); let m = bleb.leb in if err = ESUCCESS then avol[m] := mapped(avol[m].data + subarray(buf, 0, n0)) else { choose n with n ≠ 0 ∧ n < n0 ∧ is-aligned(# avol[m].data + n, EB_PAGE_SIZE) in avol[m] := mapped(avol[m].data + subarray(buf, 0, n)) ifnone skip or skip; rofs := true}} else abort⟩ (abs(avol, buffered(m4), mkwbuf(copy(buf, 0, buf1, m2, n), # buf2, m2 + n), avol0, false) ∧ ¬ rofs ∧ ESUCCESS = err) |
# buf1 = EB_PAGE_SIZE, # lpt0 = # avol1, # avol0 = # avol1, rofs ↔ rofs0, avol0[m4] = mapped(buf2), adr = adr0, avol = avol1, bleb = buffered(m4), lpt = lpt0, m0 = m3, n0 = n, ns = ns0, plog = plog0, ¬ rofs0, m4 < # avol1, m2 + n < EB_PAGE_SIZE, m2 < EB_PAGE_SIZE, abs(avol1, buffered(m4), mkwbuf(buf1, # buf2, m2), avol0, false), awbuf-inv(avol1, buffered(m4)), ebm-vol-inv(avol0), is-aligned(# buf2, EB_PAGE_SIZE), # buf2 + m2 + n ≤ LEB_SIZE, n ≤ # buf, # avol1[m4].data + n ≤ LEB_SIZE ⊦ ⟨if rofs then err := EROFS else {fail_or_success#(; ; err); let m = bleb.leb in if err = ESUCCESS then avol[m] := mapped(avol[m].data + subarray(buf, 0, n0)) else { choose n with n ≠ 0 ∧ n < n0 ∧ is-aligned(# avol[m].data + n, EB_PAGE_SIZE) in avol[m] := mapped(avol[m].data + subarray(buf, 0, n)) ifnone skip or skip; rofs := true}}⟩ (abs(avol, buffered(m4), mkwbuf(copy(buf, 0, buf1, m2, n), # buf2, m2 + n), avol0, false) ∧ ¬ rofs ∧ ESUCCESS = err)
Used simplifier rules: ⊦ buffered(m).leb = m; (s)% ⊦ m < n ↔ ¬ n ≤ m; (ss)% ⊦ m < n → (n ≤ m ↔ false); (s)%n < # avol ⊦ abs(avol, bleb, wbuf, avol0, rofs) ∧ avol0[n] = mapped(buf) → (avol[n].mapped? ↔ true); (ss)% ⊦ buffered(m).isbuf?; (s)% ⊦ nobuffer ≠ buffered(m); (s)