| apebs[n] = mkpeb(aehdr, empty, buf, m, false), avhdr.valid?, aehdr.valid?, n < # apebs, ubi-io-inv(apebs) ⊦ ⟨fail_or_success#(; ; err); apebs0 := apebs; if err = ESUCCESS then apebs[n].vidhdr := avhdr else choose avhdr with ¬ avhdr.valid? in apebs[n].vidhdr := avhdr⟩ (apebs0 = apebs) |
apebs[n] = mkpeb(aehdr, empty, buf, m, false), aehdr.valid?, avhdr.valid?, n < # apebs, ubi-io-inv(apebs) ⊦ ⟨choose err0 with ⌊err0⌋ ∨ err0 = ESUCCESS in err := err0; apebs0 := apebs; if err = ESUCCESS then apebs[n].vidhdr := avhdr else choose avhdr with ¬ avhdr.valid? in apebs[n].vidhdr := avhdr⟩ (apebs0 = apebs)
Used simplifier rules: fail_or_success#(; ; ERR) {choose ERR0 with ⌊ERR0⌋ ∨ ERR0 = ESUCCESS in ERR := ERR0};