| pebs[m] = mkpeb(buf0, m1, false), pebs0 = pebs, m < # pebs, is-aligned(n, EB_PAGE_SIZE), is-aligned(m0, EB_PAGE_SIZE), mtd-cons(pebs), n0 + n ≤ # buf, m0 + n ≤ PEB_SIZE, m1 ≤ m0 ⊦ ⟨mtd_asm_write#(m, m0, n0, n, buf; pebs; err)⟩ (pebs0 = pebs) |
pebs[m3] = mkpeb(buf0, m1, false), m = m2, m0 = m3, n0 = n, n1 = n2, pebs0 = pebs, m3 < # pebs, is-aligned(m2, EB_PAGE_SIZE), is-aligned(n, EB_PAGE_SIZE), mtd-cons(pebs), m1 ≤ m2, m2 + n ≤ PEB_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⟩ (pebs0 = pebs)
Used simplifier rules: write: ⊦ ;