| # apebs = # wlar, # wlar0 = # wlar, # apebs1 = # wlar, apebs1[vtblpnum1] = mkpeb(aehdr0, avhdr0, buf, align↑(datasize(buf, LEB_SIZE), EB_PAGE_SIZE), boolvar), wlar[vtblpnum1] = wl-entry(m0, free), wlar[vtblpnum2] = wl-entry(m1, used), apebs[vtblpnum1] = mkpeb(aehdr, empty, mkempbuf(LEB_SIZE), 0, false), apebs[vtblpnum2] = mkpeb(aechdr(m1), avidhdr(v1, m4, valid-sqns(v, m, apebs).max, m6, m7), buf, m3, false), vols[v][m] = ⌜vtblpnum2⌝ , apebs2 = apebs1, wlar1 = wlar0, aehdr.valid?, vtblpnum2 < # wlar, m < # vols[v], vtblpnum1 < # wlar, bflipset-cons(bflipset0, wlar), bflipset-cons(bflipset, wlar), bflipset-cons(bflipset1, wlar0), id(apebs1, apebs, mapped-pebs(vols)), id○(apebs1, apebs, vtblpnum1), is-aligned(LEB_SIZE, EB_PAGE_SIZE), ubi-io-inv(apebs1), ubi-io-inv(apebs), ubi-io-peb-inv(mkpeb(aehdr0, avhdr0, buf, align↑(datasize(buf, LEB_SIZE), EB_PAGE_SIZE), boolvar)), ubi-io-peb-inv(mkpeb(aechdr(m1), avidhdr(v1, m4, valid-sqns(v, m, apebs).max, m6, m7), buf, m3, false)), unique-sqns(apebs), unique-sqns(apebs1), valid-ebatbl(apebs, wlar, vols, vtblpnum4), valid-ebatbl(apebs1, wlar0, vols[v, vols[v][m, ⌜vtblpnum1⌝ ]], vtblpnum), valid-eraseq(apebs, q), valid-eraseq(wlar, q), valid-eraseq(q), valid-eraseq(apebs1, q + eq-entry(vtblpnum2, v × m) '), valid-eraseq(wlar0, q + eq-entry(vtblpnum2, v × m) '), valid-eraseq(q + eq-entry(vtblpnum2, v × m) '), valid-global-sqn(apebs, sqnum), valid-global-sqn(apebs1, sqnum0), valid-peb(v, m, mkpeb(aechdr(m1), avidhdr(v1, m4, valid-sqns(v, m, apebs).max, m6, m7), buf, m3, false)), valid-peb(mkpeb(aechdr(m1), avidhdr(v1, m4, valid-sqns(v, m, apebs).max, m6, m7), buf, m3, false)), valid-vtbl(apebs1, vols, wlar0, vtblpnum), valid-vtbl(apebs, vols, wlar, vtblpnum4), valid-wl(apebs, wlar), valid-wl(apebs1, wlar0), v ∈ vols, bflipset = ∅ → m1 + WL_THRESHOLD ≤ m0 ⊦ ∀ wlar0, apebs1, err. ( err = ESUCCESS → # apebs1 = # wlar0 ∧ unique-sqns(apebs1) ∧ valid-global-sqn(apebs1, sqnum0) ∧ valid-wl(apebs1, wlar0) ∧ valid-eraseq(wlar0, q) ∧ valid-eraseq(apebs1, q) ∧ ¬ VTBL_VOLID ∈ vols[v, vols[v][m, ⌜vtblpnum1⌝ ]] ∧ bflipset-cons(bflipset1, wlar0) ∧ valid-ebatbl(apebs1, wlar0, vols[v, vols[v][m, ⌜vtblpnum1⌝ ]], vtblpnum) ∧ valid-vtbl(apebs1, vols, wlar0, vtblpnum)) ∧ ( err ≠ ESUCCESS → # apebs1 = # wlar0 ∧ unique-sqns(apebs1) ∧ valid-global-sqn(apebs1, sqnum0) ∧ valid-wl(apebs1, wlar0) ∧ valid-eraseq(wlar0, q + eq-entry(vtblpnum2, v × m) ') ∧ valid-eraseq(apebs1, q + eq-entry(vtblpnum2, v × m) ') ∧ ¬ VTBL_VOLID ∈ vols[v, vols[v][m, ⌜vtblpnum1⌝ ]] ∧ bflipset-cons(bflipset1, wlar0) ∧ valid-ebatbl(apebs1, wlar0, vols[v, vols[v][m, ⌜vtblpnum1⌝ ]], vtblpnum) ∧ valid-vtbl(apebs1, vols, wlar0, vtblpnum)) ∧ ubi-io-inv(apebs1) ∧ wlar0[vtblpnum2].status ≠ used ∧ (err = ESUCCESS ∨ ⌊err⌋ ) ∧ id○(wlar0, wlar1, vtblpnum2) ∧ id○(apebs1, apebs2, vtblpnum2) ∧ id(apebs1, apebs2, (mapped-pebs(vols) -- vtblpnum2) ++ vtblpnum1) → ⟪q1 := q + eq-entry(vtblpnum2, v × m) '; if err = ESUCCESS then q1 := q1.butlast⟫ ( # apebs1 = # wlar0 ∧ unique-sqns(apebs1) ∧ valid-global-sqn(apebs1, sqnum0) ∧ valid-wl(apebs1, wlar0) ∧ valid-eraseq(q1) ∧ valid-eraseq(wlar0, q1) ∧ valid-eraseq(apebs1, q1) ∧ bflipset-cons(bflipset1, wlar0) ∧ valid-ebatbl(apebs1, wlar0, vols[v, vols[v][m, ⌜vtblpnum1⌝ ]], vtblpnum) ∧ valid-vtbl(apebs1, vols, wlar0, vtblpnum) ∧ ( vols = vols[v, vols[v][m, ⌜vtblpnum1⌝ ]] ∧ id(apebs1, apebs, (mapped-pebs(vols) -- vtblpnum2) ++ vtblpnum1) ∧ q1.lebrefs ⊆ q.lebrefs ++ (VTBL_VOLID × VTBL_LNUM) ∨ (∃ v0, m2, n. v0 ∈ vols ∧ m2 < # vols[v0] ∧ vols[v0][m2] ≠ unmapped ∧ vols[v, vols[v][m, ⌜vtblpnum1⌝ ]] = vols[v0, vols[v0][m2, ⌜n⌝ ]] ∧ id(apebs1, apebs, mapped-pebs(vols) -- vols[v0][m2].pnum) ∧ apebs1[n].data = apebs[vols[v0][m2].pnum].data ∧ apebs1[n].fill ≤ apebs[vols[v0][m2].pnum].fill ∧ q1.lebrefs ⊆ q.lebrefs ++ (v0 × m2)))), vtblpnum = vtblpnum2, vtblpnum2 = vtblpnum4, vtblpnum4 = vtblpnum1, vtblpnum ∈ q, vtblpnum2 ∈ q, vtblpnum4 ∈ q, VTBL_VOLID ∈ vols |
# apebs1 = # wlar, # wlar0 = # wlar, # apebs = # wlar, # apebs0 = # wlar, # wlar2 = # wlar, vols[v][m] = ⌜vtblpnum2⌝ , apebs[vtblpnum2] = mkpeb(aechdr(m1), avidhdr(v1, m4, valid-sqns(v, m, apebs).max, m6, m7), buf, m3, false), apebs[vtblpnum1] = mkpeb(aehdr, empty, mkempbuf(LEB_SIZE), 0, false), wlar[vtblpnum2] = wl-entry(m1, used), wlar[vtblpnum1] = wl-entry(m0, free), apebs1[vtblpnum1] = mkpeb(aehdr0, avhdr0, buf, align↑(datasize(buf, LEB_SIZE), EB_PAGE_SIZE), boolvar), wlar2[vtblpnum2].status ≠ used, vtblpnum ≠ vtblpnum2, vtblpnum2 ≠ vtblpnum4, vtblpnum4 ≠ vtblpnum1, aehdr.valid?, vtblpnum1 < # wlar, m < # vols[v], vtblpnum2 < # wlar, bflipset-cons(bflipset1, wlar0), bflipset-cons(bflipset, wlar), bflipset-cons(bflipset0, wlar), id(apebs0, apebs, mapped-pebs(vols) -- vtblpnum2 -- vtblpnum1), id(apebs0, apebs1, (mapped-pebs(vols) -- vtblpnum2) ++ vtblpnum1), id(apebs1, apebs, mapped-pebs(vols)), id(apebs0, apebs, ((mapped-pebs(vols) -- vtblpnum2) ++ vtblpnum1) ∩ mapped-pebs(vols)), id○(wlar2, wlar0, vtblpnum2), id○(apebs0, apebs1, vtblpnum2), id○(apebs1, apebs, vtblpnum1), is-aligned(LEB_SIZE, EB_PAGE_SIZE), ubi-io-inv(apebs0), ubi-io-inv(apebs), ubi-io-inv(apebs1), ubi-io-peb-inv(mkpeb(aechdr(m1), avidhdr(v1, m4, valid-sqns(v, m, apebs).max, m6, m7), buf, m3, false)), ubi-io-peb-inv(mkpeb(aehdr0, avhdr0, buf, align↑(datasize(buf, LEB_SIZE), EB_PAGE_SIZE), boolvar)), unique-sqns(apebs1), unique-sqns(apebs), valid-ebatbl(apebs1, wlar0, vols[v, vols[v][m, ⌜vtblpnum1⌝ ]], vtblpnum), valid-ebatbl(apebs, wlar, vols, vtblpnum4), valid-eraseq(q + eq-entry(vtblpnum2, v × m) '), valid-eraseq(wlar0, q + eq-entry(vtblpnum2, v × m) '), valid-eraseq(apebs1, q + eq-entry(vtblpnum2, v × m) '), valid-eraseq(q), valid-eraseq(wlar, q), valid-eraseq(apebs, q), valid-global-sqn(apebs1, sqnum0), valid-global-sqn(apebs, sqnum), valid-peb(mkpeb(aechdr(m1), avidhdr(v1, m4, valid-sqns(v, m, apebs).max, m6, m7), buf, m3, false)), valid-peb(v, m, mkpeb(aechdr(m1), avidhdr(v1, m4, valid-sqns(v, m, apebs).max, m6, m7), buf, m3, false)), valid-vtbl(apebs, vols, wlar, vtblpnum4), valid-vtbl(apebs1, vols, wlar0, vtblpnum), valid-wl(apebs1, wlar0), valid-wl(apebs, wlar), v ∈ vols, ¬ VTBL_VOLID ∈ vols, ¬ vtblpnum4 ∈ q, ¬ vtblpnum2 ∈ q, ¬ vtblpnum ∈ q, bflipset = ∅ → m1 + WL_THRESHOLD ≤ m0, err = ESUCCESS → unique-sqns(apebs0) ∧ valid-global-sqn(apebs0, sqnum0) ∧ valid-wl(apebs0, wlar2) ∧ valid-eraseq(wlar2, q) ∧ valid-eraseq(apebs0, q) ∧ ¬ VTBL_VOLID ∈ vols[v, vols[v][m, ⌜vtblpnum1⌝ ]] ∧ bflipset-cons(bflipset1, wlar2) ∧ valid-ebatbl(apebs0, wlar2, vols[v, vols[v][m, ⌜vtblpnum1⌝ ]], vtblpnum) ∧ valid-vtbl(apebs0, vols, wlar2, vtblpnum), err ≠ ESUCCESS → unique-sqns(apebs0) ∧ valid-global-sqn(apebs0, sqnum0) ∧ valid-wl(apebs0, wlar2) ∧ valid-eraseq(wlar2, q + eq-entry(vtblpnum2, v × m) ') ∧ valid-eraseq(apebs0, q + eq-entry(vtblpnum2, v × m) ') ∧ ¬ VTBL_VOLID ∈ vols[v, vols[v][m, ⌜vtblpnum1⌝ ]] ∧ bflipset-cons(bflipset1, wlar2) ∧ valid-ebatbl(apebs0, wlar2, vols[v, vols[v][m, ⌜vtblpnum1⌝ ]], vtblpnum) ∧ valid-vtbl(apebs0, vols, wlar2, vtblpnum), err = ESUCCESS ∨ ⌊err⌋ ⊦ ⟪q1 := q + eq-entry(vtblpnum2, v × m) '; if err = ESUCCESS then q1 := q1.butlast⟫ ( unique-sqns(apebs0) ∧ valid-global-sqn(apebs0, sqnum0) ∧ valid-wl(apebs0, wlar2) ∧ valid-eraseq(q1) ∧ valid-eraseq(wlar2, q1) ∧ valid-eraseq(apebs0, q1) ∧ bflipset-cons(bflipset1, wlar2) ∧ valid-ebatbl(apebs0, wlar2, vols[v, vols[v][m, ⌜vtblpnum1⌝ ]], vtblpnum) ∧ valid-vtbl(apebs0, vols, wlar2, vtblpnum) ∧ ( vols = vols[v, vols[v][m, ⌜vtblpnum1⌝ ]] ∧ id(apebs0, apebs, (mapped-pebs(vols) -- vtblpnum2) ++ vtblpnum1) ∧ q1.lebrefs ⊆ q.lebrefs ++ (VTBL_VOLID × VTBL_LNUM) ∨ (∃ v0, m2, n. v0 ∈ vols ∧ m2 < # vols[v0] ∧ vols[v0][m2] ≠ unmapped ∧ vols[v, vols[v][m, ⌜vtblpnum1⌝ ]] = vols[v0, vols[v0][m2, ⌜n⌝ ]] ∧ id(apebs0, apebs, mapped-pebs(vols) -- vols[v0][m2].pnum) ∧ apebs0[n].data = apebs[vols[v0][m2].pnum].data ∧ apebs0[n].fill ≤ apebs[vols[v0][m2].pnum].fill ∧ q1.lebrefs ⊆ q.lebrefs ++ (v0 × m2))))
Used simplifier rules: lf-01: ⊦ m < n ∧ n = n0 → m < n0; (forward) from specification nat-basic% ⊦ (ns ++ n) -- n = ns -- n; (s)%idexcept-size: ⊦ id○(wlar, wlar0, n) → # wlar = # wlar0; (forward) from specification array-copy[wlarray-base]%idexcept-size: ⊦ id○(apebs, apebs0, n) → # apebs = # apebs0; (forward) from specification array-copy[apebs]%idset-trans-intersect: ⊦ id(apebs2, apebs1, ns0) ∧ id(apebs1, apebs0, ns1) → id(apebs2, apebs0, ns0 ∩ ns1); (forward) from specification ubi-base%idset-idexpt-fwd: ⊦ id(apebs2, apebs1, ns) ∧ id○(apebs1, apebs0, n) → id(apebs2, apebs0, ns -- n); (forward) from specification ubi-base