| # lpt = # avol, avol[m3] = mapped(buf), adr = adr0, m = m2, m0 = # avol[m3].data, m1 = m3, ns = ns0, nx = nx0, nx1 = nx0, avol[m3].mapped?, m3 < # avol, awbuf-inv(avol, bleb), synced(avol0), synced(avol), avol0 ↓ avol ⊦ ⟨fail_or_success#(; ; err); if err = ESUCCESS then nx := nx + m1, bleb := buffered(m1)⟩ (nx1 = nx) |
# lpt = # avol, avol[m3] = mapped(buf), m3 < # avol, awbuf-inv(avol, bleb), synced(avol), synced(avol0), avol0 ↓ avol ⊦ ⟨fail_or_success#(; ; err); nx := nx0; if err = ESUCCESS then nx := nx + m3 ', bleb := buffered(m3)⟩ (nx0 = nx)
Used simplifier rules: ⊦ mapped(buf) = mapped(buf0) ↔ buf = buf0; (s)%lf-01: ⊦ m < n ∧ n = n0 → m < n0; (forward) from specification nat-basic% ⊦ nx + n = nx + n '; (s)% ⊦ aleb.mapped? ↔ (∃ buf. aleb = mapped(buf)); (as)