| 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) |
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) ⊦ ⟨fail_or_success#(; ; err); if err = ESUCCESS then isbad := apebs[m].bad else isbad := ?⟩ ((boolvar ↔ isbad) ∧ ESUCCESS = err)
Used simplifier rules: ⊦ ubi-io-isbad-pre(n, apebs) ↔ n < # apebs; (s)% ⊦ m < n ↔ ¬ n ≤ m; (ss)% ⊦ m < n → (n ≤ m ↔ false); (s)