| # apebs0 = # wlar, LEB_SIZE = n2 + n0, apebs0[n1] = mkpeb(aehdr, empty, mkempbuf(LEB_SIZE), 0, false), wlar[n1] = wl-entry(m1, free), vols[v][m0] = ⌜m⌝ , wlar[m] = wl-entry(m2, used), aehdr.valid?, m < # wlar, n1 < # wlar, m0 < # vols[v], bflipset-cons(bflipset, wlar), is-aligned(n0, EB_PAGE_SIZE), ubi-io-inv(apebs0), ubi-io-inv(apebs0[n1, mkpeb(aehdr, avidhdr(v, m0, sqnum, 0, 0), mkempbuf(LEB_SIZE), 0, false)]), unique-sqns(apebs0), valid-ebatbl(apebs0, wlar, vols, vtblpnum1), valid-eraseq(q + eq-entry(m, v × m0) '), valid-eraseq(apebs0, q), valid-eraseq(wlar, q), valid-eraseq(q), valid-global-sqn(apebs0, sqnum), valid-peb(v, m0, apebs0[m]), valid-vtbl(apebs0, vols, wlar, vtblpnum1), valid-wl(apebs0, wlar), v ∈ vols, n0 ≤ LEB_SIZE ⊦ m = vtblpnum1, vtblpnum1 = n1, VTBL_VOLID ∈ vols, vtblpnum1 ∈ q, m ∈ q, valid-ebatbl (apebs0[n1, mkpeb(aehdr, avidhdr(v, m0, sqnum, 0, 0), mkempbuf(LEB_SIZE), 0, false)], wlar[m, wl-entry(m2, erasing)][n1, wl-entry(m1, used)], vols[v, vols[v][m0, ⌜n1⌝ ]], vtblpnum1) ∧ bflipset-cons(bflipset -- m, wlar[m, wl-entry(m2, erasing)][n1, wl-entry(m1, used)]) ∧ valid-eraseq(apebs0[n1, mkpeb(aehdr, avidhdr(v, m0, sqnum, 0, 0), mkempbuf(LEB_SIZE), 0, false)], q + eq-entry(m, v × m0) ') ∧ valid-eraseq(wlar[m, wl-entry(m2, erasing)][n1, wl-entry(m1, used)], q + eq-entry(m, v × m0) ') ∧ valid-wl (apebs0[n1, mkpeb(aehdr, avidhdr(v, m0, sqnum, 0, 0), mkempbuf(LEB_SIZE), 0, false)], wlar[m, wl-entry(m2, erasing)][n1, wl-entry(m1, used)]) ∧ valid-global-sqn(apebs0[n1, mkpeb(aehdr, avidhdr(v, m0, sqnum, 0, 0), mkempbuf(LEB_SIZE), 0, false)], sqnum + 1) ∧ unique-sqns(apebs0[n1, mkpeb(aehdr, avidhdr(v, m0, sqnum, 0, 0), mkempbuf(LEB_SIZE), 0, false)]), n1 < # apebs0 ∧ valid-peb(mkpeb(aehdr, avidhdr(v, m0, sqnum, 0, 0), mkempbuf(LEB_SIZE), 0, false)) ∧ valid-global-sqn(apebs0, sqnum + 1) ∧ mkpeb(aehdr, avidhdr(v, m0, sqnum, 0, 0), mkempbuf(LEB_SIZE), 0, false).vidhdr.sqn < sqnum + 1 |
# apebs0 = # wlar, LEB_SIZE = n2 + n0, apebs0[n1] = mkpeb(aehdr, empty, mkempbuf(LEB_SIZE), 0, false), wlar[n1] = wl-entry(m1, free), vols[v][m0] = ⌜m⌝ , wlar[m] = wl-entry(m2, used), aehdr.valid?, m < # wlar, n1 < # wlar, m0 < # vols[v], bflipset-cons(bflipset, wlar), is-aligned(n0, EB_PAGE_SIZE), ubi-io-inv(apebs0), ubi-io-inv(apebs0[n1, mkpeb(aehdr, avidhdr(v, m0, sqnum, 0, 0), mkempbuf(LEB_SIZE), 0, false)]), unique-sqns(apebs0), valid-ebatbl(apebs0, wlar, vols, vtblpnum1), valid-eraseq(q + eq-entry(m, v × m0) '), valid-eraseq(apebs0, q), valid-eraseq(wlar, q), valid-eraseq(q), valid-global-sqn(apebs0, sqnum), valid-peb(v, m0, apebs0[m]), valid-vtbl(apebs0, vols, wlar, vtblpnum1), valid-wl(apebs0, wlar), v ∈ vols, n0 ≤ LEB_SIZE ⊦ m = vtblpnum1, vtblpnum1 = n1, valid-peb(v, m0, mkpeb(aehdr, avidhdr(v, m0, sqnum, 0, 0), mkempbuf(LEB_SIZE), 0, false)), VTBL_VOLID ∈ vols, vtblpnum1 ∈ q, m ∈ q, valid-ebatbl (apebs0[n1, mkpeb(aehdr, avidhdr(v, m0, sqnum, 0, 0), mkempbuf(LEB_SIZE), 0, false)], wlar[m, wl-entry(m2, erasing)][n1, wl-entry(m1, used)], vols[v, vols[v][m0, ⌜n1⌝ ]], vtblpnum1) ∧ bflipset-cons(bflipset -- m, wlar[m, wl-entry(m2, erasing)][n1, wl-entry(m1, used)]) ∧ valid-eraseq(apebs0[n1, mkpeb(aehdr, avidhdr(v, m0, sqnum, 0, 0), mkempbuf(LEB_SIZE), 0, false)], q + eq-entry(m, v × m0) ') ∧ valid-eraseq(wlar[m, wl-entry(m2, erasing)][n1, wl-entry(m1, used)], q + eq-entry(m, v × m0) ') ∧ valid-wl (apebs0[n1, mkpeb(aehdr, avidhdr(v, m0, sqnum, 0, 0), mkempbuf(LEB_SIZE), 0, false)], wlar[m, wl-entry(m2, erasing)][n1, wl-entry(m1, used)]) ∧ valid-global-sqn(apebs0[n1, mkpeb(aehdr, avidhdr(v, m0, sqnum, 0, 0), mkempbuf(LEB_SIZE), 0, false)], sqnum + 1) ∧ unique-sqns(apebs0[n1, mkpeb(aehdr, avidhdr(v, m0, sqnum, 0, 0), mkempbuf(LEB_SIZE), 0, false)])
Used simplifier rules: ⊦ valid-peb (mkpeb(aehdr, avidhdr(v, m, n, n0, n2), buf, n1, boolvar)) ↔ valid-peb (v, m, mkpeb(aehdr, avidhdr(v, m, n, n0, n2), buf, n1, boolvar)); (ss)% ⊦ ¬ n < n; (s)% ⊦ m < n + 1 ↔ ¬ n < m; (s)% ⊦ avidhdr(v, m, m0, m1, m2).sqn = m0; (s)% ⊦ mkpeb(aehdr, avhdr, buf, m, boolvar).vidhdr = avhdr; (s)%c: ⊦ m + n = n + m; from specification nat-basic%a: ⊦ (m + n0) + n1 = m + n0 + n1; from specification nat-basic% ⊦ valid-global-sqn(apebs, n) → valid-global-sqn(apebs, n + m); (ss)