| # lpt = # avol, avol[m3] = mapped(buf1), adr = adr0, buf0 = buf, m = m2, m1 = m3, n = n1, n0 = n2, ns = ns0, plog = plog0, m3 < # avol, ebm-vol-inv(avol), m0 + n1 ≤ LEB_SIZE, n2 + n1 ≤ # buf, avol ⊆ avol0 ⊦ ⟨fail_or_success#(; ; err); if err = ESUCCESS then buf0 := copy(avol[m1].data + mkempbuf(LEB_SIZE - # avol[m1].data), m0, 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⟩ true |
# lpt = # avol, avol[m3] = mapped(buf1), m3 < # avol, ebm-vol-inv(avol), m0 + n1 ≤ LEB_SIZE, n2 + n1 ≤ # buf, avol ⊆ avol0 ⊦ ⟨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
Used simplifier rules: lf-01: ⊦ m < n ∧ n = n0 → m < n0; (forward) from specification nat-basic