| # buf2 = EB_PAGE_SIZE, pebs[m2] = mkpeb(buf1, 0, false), apebs[m2] = mkpeb(empty, avhdr, buf0, m1, false), buf = buf2, m = 0, m0 = m2, n0 = EB_PAGE_SIZE, n1 = 0, m2 < # apebs, m2 < # pebs, abs(pebs, apebs), abs-peb(mkpeb(buf1, 0, false), mkpeb(empty, avhdr, buf0, m1, false)), is-encoded(echdr(m3), buf2), mtd-cons(pebs), ubi-io-inv(apebs) ⊦ ⟪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}⟫ ⟨aubi_io_write_echdr#(m2, aechdr(m3); apebs; err0)⟩ (abs(pebs, apebs) ∧ err = err0) |
# buf2 = EB_PAGE_SIZE, apebs[m2] = mkpeb(empty, avhdr, buf0, m1, false), pebs[m2] = mkpeb(buf1, 0, false), m2 < # pebs, m2 < # apebs, abs(pebs, apebs), abs-peb(mkpeb(buf1, 0, false), mkpeb(empty, avhdr, buf0, m1, false)), is-encoded(echdr(m3), buf2), mtd-cons(pebs), ubi-io-inv(apebs) ⊦ ⟪fail_or_success#(; ; err); if err = ESUCCESS then {pebs[m2].data := copy(buf2, 0, pebs[m2].data, 0, EB_PAGE_SIZE); pebs[m2].fill := EB_PAGE_SIZE} else {n1 := 0; n0 := EB_PAGE_SIZE; m0 := m2; m := 0; choose n with (n < n0 ∨ n = 0 ∧ n0 = 0) ∧ is-aligned(n, EB_PAGE_SIZE) in if n ≠ 0 then {pebs[m0].data := copy(buf2, n1, pebs[m0].data, m, n); pebs[m0].fill := m + n}}⟫ ⟨aubi_io_write_echdr#(m2, aechdr(m3); apebs; err0)⟩ (abs(pebs, apebs) ∧ err = err0)
Used simplifier rules: c: ⊦ m + n = n + m; from specification nat-basic%a: ⊦ (m + n0) + n1 = m + n0 + n1; from specification nat-basic% ⊦ n + 0 = n; (s)