| apebs[n] = mkpeb(empty, avhdr, buf, m, false), apebs0 = apebs, aehdr.valid?, n < # apebs, ubi-io-inv(apebs) ⊦ ⟨if ubi-io-write-echdr-pre(n, aehdr, apebs) then {fail_or_success#(; ; err); if err = ESUCCESS then apebs[n].echdr := aehdr else choose aehdr with ¬ aehdr.valid? in apebs[n].echdr := aehdr} else abort⟩ (apebs0 = apebs) |
apebs[n] = mkpeb(empty, avhdr, buf, m, false), apebs0 = apebs, aehdr.valid?, n < # apebs, ubi-io-inv(apebs), ubi-io-write-echdr-pre(n, aehdr, apebs) ⊦ ⟨fail_or_success#(; ; err); if err = ESUCCESS then apebs[n].echdr := aehdr else choose aehdr with ¬ aehdr.valid? in apebs[n].echdr := aehdr⟩ (apebs0 = apebs)
apebs[n] = mkpeb(empty, avhdr, buf, m, false), apebs0 = apebs, aehdr.valid?, n < # apebs, ubi-io-inv(apebs) ⊦ ⟨abort⟩ (apebs0 = apebs), ubi-io-write-echdr-pre(n, aehdr, apebs)