| pebs[m2] = mkpeb(buf1, m, false), apebs[m2] = mkpeb(aehdr1, avhdr, buf0, m1, false), buf = mkbuf(EB_PAGE_SIZE), m2 < # apebs, m2 < # pebs, abs(pebs, apebs), abs-peb(mkpeb(buf1, m, false), mkpeb(aehdr1, avhdr, buf0, m1, false)), mtd-cons(pebs), ubi-io-inv(apebs), EB_PAGE_SIZE ≤ PEB_SIZE ⊦ [ubi_io_read#(m2, 0, 0, EB_PAGE_SIZE, pebs; buf; bitflips, err)] ( # buf = EB_PAGE_SIZE ∧ EB_PAGE_SIZE ≤ # buf ∧ (err = ESUCCESS ∨ ⌊err⌋ ) ∧ (err = ESUCCESS → buf = subarray(pebs[m2].data, 0, EB_PAGE_SIZE)) → ⟪aehdr := aehdr0; if err = ESUCCESS then if buf = mkempbuf(# buf) then aehdr := empty else let ehdr = ? in {decode_echeader#(EB_PAGE_SIZE, buf; ehdr; err); if err = ESUCCESS then aehdr := aechdr(ehdr.ec)}⟫ ⟨aubi_io_read_echdr#(m2, apebs; aehdr0; isbad, err0)⟩ (aehdr = aehdr0 ∧ (bitflips ↔ isbad) ∧ err = err0)) |
apebs[m2] = mkpeb(aehdr1, avhdr, buf0, m1, false), pebs[m2] = mkpeb(buf1, m, false), buf = mkbuf(EB_PAGE_SIZE), m2 < # pebs, m2 < # apebs, abs(pebs, apebs), abs-peb(mkpeb(buf1, m, false), mkpeb(aehdr1, avhdr, buf0, m1, false)), mtd-cons(pebs), ubi-io-inv(apebs), EB_PAGE_SIZE ≤ PEB_SIZE ⊦ ∀ buf, bitflips, err. # buf = EB_PAGE_SIZE ∧ EB_PAGE_SIZE ≤ # buf ∧ (err = ESUCCESS ∨ ⌊err⌋ ) ∧ (err = ESUCCESS → buf = subarray(pebs[m2].data, 0, EB_PAGE_SIZE)) → ⟪aehdr := aehdr0; if err = ESUCCESS then if buf = mkempbuf(# buf) then aehdr := empty else let ehdr = ? in {decode_echeader#(EB_PAGE_SIZE, buf; ehdr; err); if err = ESUCCESS then aehdr := aechdr(ehdr.ec)}⟫ ⟨aubi_io_read_echdr#(m2, apebs; aehdr0; isbad, err0)⟩ (aehdr = aehdr0 ∧ (bitflips ↔ isbad) ∧ err = err0)