| apebs[m2] = mkpeb(aehdr1, avhdr, buf0, m1, false), aehdr = aehdr0, buf = mkbuf(m), m = EB_PAGE_SIZE, m0 = m2, m2 < # apebs, m0 < # pebs, abs(pebs, apebs), mtd-cons(pebs), ubi-io-inv(apebs), m0 < # pebs → m0 < # pebs ⊦ ⟪ubi_io_read#(m0, 0, 0, m, pebs; buf; bitflips, err); if err = ESUCCESS then if isempty(buf) then aehdr := empty else let ehdr = ? in {decode_echeader#(m, 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), pebs[m0].bad |
apebs[m2] = mkpeb(aehdr1, avhdr, buf0, m1, false), buf = mkbuf(EB_PAGE_SIZE), m2 < # apebs, m2 < # pebs, abs(pebs, apebs), mtd-cons(pebs), ubi-io-inv(apebs), ¬ pebs[m2].bad ⊦ ⟪ubi_io_read#(m2, 0, 0, EB_PAGE_SIZE, pebs; buf; bitflips, err); 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)
Used simplifier rules: ⊦ m < n → n ≠ 0; (s)%f: ⊦ m < n → n ≠ 0; (forward) from specification nat-basic% ⊦ isempty(buf) ↔ buf = mkempbuf(# buf); (s)