| # buf = PEB_SIZE, m0 + 1 = # pebs, pebs[m0] = mkpeb(buf, EB_PAGE_SIZE, false), abs(subarray(pebs, 0, m0), apebs), is-encoded(echdr(n), subarray(buf, 0, EB_PAGE_SIZE)), range=(buf, EB_PAGE_SIZE, emptypeb, EB_PAGE_SIZE, LEB_SIZE + EB_PAGE_SIZE), ubi-io-initial(pebs), ubi-io-initial(apebs), EB_PAGE_SIZE ≤ PEB_SIZE ⊦ abs(pebs, copy(apebs, 0, mkapebs(m0 + 1), 0, m0)[m0, mkpeb(aechdr(n), empty, mkempbuf(LEB_SIZE), 0, false)]) |
⊦ abs(pebs, apebs) ↔ # pebs = # apebs ∧ (∀ n. n < # pebs → abs-peb(pebs[n], apebs[n]))
# buf = PEB_SIZE, m0 + 1 = # pebs, pebs[m0] = mkpeb(buf, EB_PAGE_SIZE, false), abs(subarray(pebs, 0, m0), apebs), is-encoded(echdr(n), subarray(buf, 0, EB_PAGE_SIZE)), range=(buf, EB_PAGE_SIZE, emptypeb, EB_PAGE_SIZE, LEB_SIZE + EB_PAGE_SIZE), ubi-io-initial(apebs), ubi-io-initial(pebs), EB_PAGE_SIZE ≤ PEB_SIZE ⊦ # pebs = # copy(apebs, 0, mkapebs(m0 + 1), 0, m0)[m0, mkpeb(aechdr(n), empty, mkempbuf(LEB_SIZE), 0, false)] ∧ (∀ n0. n0 < # pebs → abs-peb(pebs[n0], copy(apebs, 0, mkapebs(m0 + 1), 0, m0)[m0, mkpeb(aechdr(n), empty, mkempbuf(LEB_SIZE), 0, false)][n0]))
Used terms: copy(apebs, 0, mkapebs(m0 + 1), 0, m0) [m0, mkpeb(aechdr(n), empty, mkempbuf(LEB_SIZE), 0, false) ], pebs