| pebs[m] = mkpeb(buf, m0, boolvar), m < # pebs, m < # apebs, abs(pebs, apebs), abs-peb(mkpeb(buf, m0, boolvar), apebs[m]), mtd-cons(pebs), ubi-io-inv(apebs) ⊦ ⟨aubi_io_isbad#(m, apebs; ; isbad0, err1)⟩ ((boolvar ↔ isbad0) ∧ ESUCCESS = err1) |
pebs[m] = mkpeb(buf, m0, boolvar), m < # apebs, m < # pebs, abs(pebs, apebs), abs-peb(mkpeb(buf, m0, boolvar), apebs[m]), mtd-cons(pebs), ubi-io-inv(apebs) ⊦ ⟨if ubi-io-isbad-pre(m, apebs) then {fail_or_success#(; ; err); if err = ESUCCESS then isbad := apebs[m].bad else isbad := ?} else abort⟩ ((boolvar ↔ isbad) ∧ ESUCCESS = err)
Used simplifier rules: aubi_io_isbad#(PNUM, APEBS; ; ISBAD, ERR) {if ubi-io-isbad-pre(PNUM, APEBS) then {fail_or_success#(; ; ERR); if ERR = ESUCCESS then ISBAD := APEBS[PNUM].bad else ISBAD := ?} else abort };