| # avol = # avol1, # buf = (n2 + n1) * LEB_SIZE, # avol1 = n3 + n0 + n2 + n1, err = err0, lebs(avol, n0, n1) = subarray(buf, 0, n1 * LEB_SIZE), n0 + n1 < # avol1, ebm-vol-inv(avol1), ebm-vol-inv(avol), mapped-full?(avol, n0, n1), range=(avol, n0 + n2 + n1, avol1, n0 + n2 + n1, n3), range=(avol, 0, avol1, 0, n0), n0 + n2 + n1 ≤ # avol1, ⌊err0⌋ ∨ err0 = ESUCCESS ⊦ [if err = ESUCCESS then avol[n0 + n1] := mapped(mkbuf(0)) else {skip or avol[n0 + n1] := unmapped}] ( ebm-vol-inv(avol) → ⟪n := n1; if err = ESUCCESS then ebm_avol_write#(n0 + n, 0, n * LEB_SIZE, LEB_SIZE, buf; avol; err); n := n + 1⟫ ( n ≤ n2 + n1 ∧ ebm-vol-inv(avol) ∧ (err = ESUCCESS ∨ ⌊err⌋ ) ∧ # avol = # avol1 ∧ range=(avol, 0, avol1, 0, n0) ∧ range=(avol, n0 + n2 + n1, avol1, n0 + n2 + n1, n3) ∧ (err = ESUCCESS → lebs(avol, n0, n) = subarray(buf, 0, n * LEB_SIZE) ∧ mapped-full?(avol, n0, n)) ∧ n1 < n)), n3 + n2 = 0, n2 = 0 |
# avol1 = n3 + n0 + n2 + n1, # buf = (n2 + n1) * LEB_SIZE, # avol = # avol1, err = ESUCCESS, err = err0, lebs(avol, n0, n1) = subarray(buf, 0, n1 * LEB_SIZE), n0 + n1 < # avol1, ebm-vol-inv(avol), ebm-vol-inv(avol1), mapped-full?(avol, n0, n1), range=(avol, 0, avol1, 0, n0), range=(avol, n0 + n2 + n1, avol1, n0 + n2 + n1, n3), n0 + n2 + n1 ≤ # avol1, ⌊err0⌋ ∨ err0 = ESUCCESS ⊦ [avol[n0 + n1] := mapped(mkbuf(0))] ( ebm-vol-inv(avol) → ⟪n := n1; if err = ESUCCESS then ebm_avol_write#(n0 + n, 0, n * LEB_SIZE, LEB_SIZE, buf; avol; err); n := n + 1⟫ ( n ≤ n2 + n1 ∧ ebm-vol-inv(avol) ∧ (err = ESUCCESS ∨ ⌊err⌋ ) ∧ # avol = # avol1 ∧ range=(avol, 0, avol1, 0, n0) ∧ range=(avol, n0 + n2 + n1, avol1, n0 + n2 + n1, n3) ∧ (err = ESUCCESS → lebs(avol, n0, n) = subarray(buf, 0, n * LEB_SIZE) ∧ mapped-full?(avol, n0, n)) ∧ n1 < n)), n3 + n2 = 0, n2 = 0
# avol1 = n3 + n0 + n2 + n1, # buf = (n2 + n1) * LEB_SIZE, # avol = # avol1, err = err0, lebs(avol, n0, n1) = subarray(buf, 0, n1 * LEB_SIZE), n0 + n1 < # avol1, ebm-vol-inv(avol), ebm-vol-inv(avol1), mapped-full?(avol, n0, n1), range=(avol, 0, avol1, 0, n0), range=(avol, n0 + n2 + n1, avol1, n0 + n2 + n1, n3), n0 + n2 + n1 ≤ # avol1, ⌊err0⌋ ∨ err0 = ESUCCESS ⊦ [skip or avol[n0 + n1] := unmapped] ( ebm-vol-inv(avol) → ⟪n := n1; if err = ESUCCESS then ebm_avol_write#(n0 + n, 0, n * LEB_SIZE, LEB_SIZE, buf; avol; err); n := n + 1⟫ ( n ≤ n2 + n1 ∧ ebm-vol-inv(avol) ∧ (err = ESUCCESS ∨ ⌊err⌋ ) ∧ # avol = # avol1 ∧ range=(avol, 0, avol1, 0, n0) ∧ range=(avol, n0 + n2 + n1, avol1, n0 + n2 + n1, n3) ∧ (err = ESUCCESS → lebs(avol, n0, n) = subarray(buf, 0, n * LEB_SIZE) ∧ mapped-full?(avol, n0, n)) ∧ n1 < n)), n3 + n2 = 0, err = ESUCCESS, n2 = 0