| # buf1 = # buf2, # buf2 = n0 + n3 + n2, avols[default-volid][m2] = mapped(buf0, n1), m2 < # avols[default-volid], ebm-cons(avols), ebm-vol-inv(abs(avols[default-volid])), range=(buf1, n3 + n2, buf2, n3 + n2, n0), range=(buf1, 0, buf2, 0, n3), default-volid ∈ avols, n3 + n2 ≤ # buf2, m1 + n2 ≤ LEB_SIZE, ⌊err0⌋ ⊦ ⟨ebm_avol_read#(m2, m1, n3, n2, abs(avols[default-volid]); buf2; err1)⟩ (buf1 = buf2 ∧ err0 = err1) |
# buf2 = n4 + n3 + n2, # buf1 = # buf2, avols[default-volid][m2] = mapped(buf, n1), avol = abs(avols[default-volid]), buf0 = buf2, m = m1, m0 = m2, n = n2, n0 = n3, m2 < # avols[default-volid], ebm-cons(avols), ebm-vol-inv(abs(avols[default-volid])), range=(buf1, 0, buf2, 0, n3), range=(buf1, n3 + n2, buf2, n3 + n2, n4), default-volid ∈ avols, m1 + n2 ≤ LEB_SIZE, n3 + n2 ≤ # buf2, ⌊err0⌋ ⊦ ⟨if m0 < # avol ∧ avol[m0].mapped? ∧ n0 + n ≤ # buf0 ∧ m + n ≤ LEB_SIZE then {fail_or_success#(; ; err); if err = ESUCCESS then buf0 := copy(avol[m0].data + mkempbuf(LEB_SIZE - # avol[m0].data), m, buf0, n0, n) else choose buf with # buf = # buf0 ∧ range=(buf0, 0, buf, 0, n0) ∧ range=(buf0, n0 + n, buf, n0 + n, # buf0 - n0 + n) in buf0 := buf} else abort⟩ (buf1 = buf0 ∧ err0 = err)
Used simplifier rules: ebm_avol_read#(LNUM, OFFSET, N0, N, AVOL; BUF; ERR) {if LNUM < # AVOL ∧ AVOL[LNUM].mapped? ∧ N0 + N ≤ # BUF ∧ OFFSET + N ≤ LEB_SIZE then {fail_or_success#(; ; ERR); if ERR = ESUCCESS then BUF := copy ( AVOL[LNUM].data + mkempbuf(LEB_SIZE - # AVOL[LNUM].data), OFFSET, BUF, N0, N) else choose BUF0 with # BUF0 = # BUF ∧ range=(BUF, 0, BUF0, 0, N0) ∧ range=(BUF, N0 + N, BUF0, N0 + N, # BUF - N0 + N) in BUF := BUF0} else abort };