| ⊦ ⟪fail_or_success#(; ; err); lpt0 := lpt; if err = ESUCCESS then {avol := fill(mkavolume(# lpt), unmapped); adr := adr0; m := m0; plog := []; lpt := lpt0; ns := ∅} else avol := ?, adr := ?, m := ?, plog := ?, lpt := ?, ns := ?⟫ (err = ESUCCESS → ebm-vol-inv(avol) ∧ # lpt = # avol) |
⊦ ⟪choose err0 with ⌊err0⌋ ∨ err0 = ESUCCESS in err := err0; lpt0 := lpt; if err = ESUCCESS then {avol := fill(mkavolume(# lpt), unmapped); adr := adr0; m := m0; plog := []; lpt := lpt0; ns := ∅} else avol := ?, adr := ?, m := ?, plog := ?, lpt := ?, ns := ?⟫ (err = ESUCCESS → ebm-vol-inv(avol) ∧ # lpt = # avol)
Used simplifier rules: fail_or_success#(; ; ERR) {choose ERR0 with ⌊ERR0⌋ ∨ ERR0 = ESUCCESS in ERR := ERR0};