| # lpt = # avol, avol[m3] = mapped(buf1), m3 < # avol, ebm-vol-inv(avol), m0 + n1 ≤ LEB_SIZE, n2 + n1 ≤ # buf ⊦ ⟪fail_or_success#(; ; err); if err = ESUCCESS then buf := copy(avol[m3].data + mkempbuf(LEB_SIZE - # avol[m3].data), m0, buf, n2, n1) else choose buf1 with # buf1 = # buf ∧ range=(buf, 0, buf1, 0, n2) ∧ range=(buf, n2 + n1, buf1, n2 + n1, # buf - n2 + n1) in buf := buf1⟫ true |
# lpt = # avol, avol[m3] = mapped(buf1), m3 < # avol, ebm-vol-inv(avol), n2 + n1 ≤ # buf, m0 + n1 ≤ LEB_SIZE ⊦ ⟪choose err0 with ⌊err0⌋ ∨ err0 = ESUCCESS in err := err0; if err = ESUCCESS then buf := copy(avol[m3].data + mkempbuf(LEB_SIZE - # avol[m3].data), m0, buf, n2, n1) else choose buf1 with # buf1 = # buf ∧ range=(buf, 0, buf1, 0, n2) ∧ range=(buf, n2 + n1, buf1, n2 + n1, # buf - n2 + n1) in buf := buf1⟫ true
Used simplifier rules: fail_or_success#(; ; ERR) {choose ERR0 with ⌊ERR0⌋ ∨ ERR0 = ESUCCESS in ERR := ERR0};