| # lpt = # avol, m = m2, m0 = # avol[m3].data, m1 = m3, avol[m3].mapped?, m3 < # avol, awbuf-inv(avol, bleb), synced(avol) ⊦ ⟪fail_or_success#(; ; err); if err = ESUCCESS then nx := nx + m1, bleb := buffered(m1)⟫ awbuf-inv(avol, bleb) |
# lpt = # avol, avol[m3] = mapped(buf), m3 < # avol, awbuf-inv(avol, bleb), synced(avol) ⊦ ⟪fail_or_success#(; ; err); if err = ESUCCESS then nx := nx + m3 ', bleb := buffered(m3)⟫ awbuf-inv(avol, bleb)
Used simplifier rules: ⊦ m < n → n ≠ 0; (s)%lf-01: ⊦ m < n ∧ n = n0 → m < n0; (forward) from specification nat-basic%f: ⊦ m < n → n ≠ 0; (forward) from specification nat-basic% ⊦ nx + n = nx + n '; (s)% ⊦ aleb.mapped? ↔ (∃ buf. aleb = mapped(buf)); (as)