| # avol1 = n3 + n0 + n2 + n1, # buf = (n2 + n1) * LEB_SIZE, # avol = # avol1, err = err0, lebs(avol, n0, n1) = subarray(buf, 0, n1 * LEB_SIZE), n = n1, 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; 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 |
# avol = # avol1, # buf = (n2 + n1) * LEB_SIZE, # avol1 = n3 + n0 + n2 + n1, err = err0, lebs(avol, n0, n1) = subarray(buf, 0, n1 * LEB_SIZE), n = n1, 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 ⊦ ⟪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