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