| pebs[m3] = mkpeb(buf1, 2 * EB_PAGE_SIZE + m2, false), apebs[m3] = mkpeb(aehdr, avhdr, buf0, m2, false), avhdr.valid?, aehdr.valid?, m3 < # pebs, m3 < # apebs, abs(pebs, apebs), abs-peb(mkpeb(buf1, 2 * EB_PAGE_SIZE + m2, false), mkpeb(aehdr, avhdr, buf0, m2, false)), is-aligned(n1, EB_PAGE_SIZE), is-aligned(m0, EB_PAGE_SIZE), mtd-cons(pebs), ubi-io-inv(apebs), n2 + n1 ≤ # buf, m0 + n1 ≤ LEB_SIZE, m2 ≤ m0 ⊦ ⟪mtd_asm_write#(m3, m0 + 2 * EB_PAGE_SIZE, n2, n1, buf; pebs; err)⟫ ⟨aubi_io_write_data#(m3, m0, n2, n1, buf; apebs; err0)⟩ (abs(pebs, apebs) ∧ err = err0) |
apebs[m3] = mkpeb(aehdr, avhdr, buf0, m2, false), pebs[m3] = mkpeb(buf1, 2 * EB_PAGE_SIZE + m2, false), m = m1 + 2 * EB_PAGE_SIZE, m0 = m3, n0 = n, n1 = n2, aehdr.valid?, avhdr.valid?, m3 < # apebs, m3 < # pebs, abs(pebs, apebs), abs-peb(mkpeb(buf1, 2 * EB_PAGE_SIZE + m2, false), mkpeb(aehdr, avhdr, buf0, m2, false)), is-aligned(m1, EB_PAGE_SIZE), is-aligned(n, EB_PAGE_SIZE), mtd-cons(pebs), ubi-io-inv(apebs), m2 ≤ m1, m1 + n ≤ LEB_SIZE, n2 + n ≤ # buf ⊦ ⟪if m0 < # pebs ∧ ¬ pebs[m0].bad ∧ pebs[m0].fill ≤ m ∧ m + n0 ≤ PEB_SIZE ∧ n1 + n0 ≤ # buf ∧ is-aligned(m, EB_PAGE_SIZE) ∧ is-aligned(n0, EB_PAGE_SIZE) then {fail_or_success#(; ; err); if err = ESUCCESS then {pebs[m0].data := copy(buf, n1, pebs[m0].data, m, n0); pebs[m0].fill := m + n0} else choose n with (n < n0 ∨ n = 0 ∧ n0 = 0) ∧ is-aligned(n, EB_PAGE_SIZE) in if n ≠ 0 then {pebs[m0].data := copy(buf, n1, pebs[m0].data, m, n); pebs[m0].fill := m + n}} else abort⟫ ⟨aubi_io_write_data#(m3, m1, n2, n, buf; apebs; err0)⟩ (abs(pebs, apebs) ∧ err = err0)
Used simplifier rules: mtd_asm_write#(PNUM, OFFSET, N0, N, BUF; PEBS; ERR) {if PNUM < # PEBS ∧ ¬ PEBS[PNUM].bad ∧ PEBS[PNUM].fill ≤ OFFSET ∧ OFFSET + N ≤ PEB_SIZE ∧ N0 + N ≤ # BUF ∧ is-aligned(OFFSET, EB_PAGE_SIZE) ∧ is-aligned(N, EB_PAGE_SIZE) then {fail_or_success#(; ; ERR); if ERR = ESUCCESS then {PEBS[PNUM].data := copy(BUF, N0, PEBS[PNUM].data, OFFSET, N); PEBS[PNUM].fill := OFFSET + N} else choose N1 with (N1 < N ∨ N1 = 0 ∧ N = 0) ∧ is-aligned(N1, EB_PAGE_SIZE) in if N1 ≠ 0 then {PEBS[PNUM].data := copy(BUF, N0, PEBS[PNUM].data, OFFSET, N1); PEBS[PNUM].fill := OFFSET + N1}} else abort };