| # apebs = # wlar, # apebs1 = # wlar0, q0.lebrefs = ∅, buf = mkbuf(LEB_SIZE), err = ESUCCESS, vols0 = vols, vtbl = vtbl1[v, n], vtbl0 = to-vtbl(vols), vtbl1 = to-vtbl(vols), bflipset-cons(bflipset, wlar), bflipset-cons(bflipset, wlar0), id(apebs1, apebs, mapped-pebs(vols)), id(apebs0, apebs1, mapped-pebs(vols)), id(apebs0, apebs, mapped-pebs(vols)), ubi-io-inv(apebs1), ubi-io-inv(apebs), ubi-io-inv(apebs0), unique-sqns(apebs), unique-sqns(apebs1), valid-ebatbl(apebs, wlar, vols, vtblpnum3), valid-ebatbl(apebs1, wlar0, vols, vtblpnum3), valid-eraseq(q), valid-eraseq(wlar, q), valid-eraseq(apebs, q), valid-eraseq(wlar0, []), valid-global-sqn(apebs, sqnum), valid-global-sqn(apebs1, sqnum), valid-vtbl(apebs, vols, wlar, vtblpnum3), valid-vtbl(apebs1, vols, wlar0, vtblpnum3), valid-wl(apebs, wlar), valid-wl(apebs1, wlar0), 2 * ENCODED_NAT_SIZE + (ENCODED_VOLID_SIZE + ENCODED_NAT_SIZE) * # vols + ENCODED_VOLID_SIZE ≤ LEB_SIZE, err = ESUCCESS → vtblpnum < # apebs0 ∧ wlar2[vtblpnum].status = free ∧ apebs1 = apebs0 ∧ wlar0 = wlar2 ∧ [] = q0, err ≠ ESUCCESS → # apebs0 = # wlar2 ∧ unique-sqns(apebs0) ∧ valid-global-sqn(apebs0, sqnum) ∧ valid-wl(apebs0, wlar2) ∧ valid-eraseq(q0) ∧ valid-eraseq(wlar2, q0) ∧ valid-eraseq(apebs0, q0) ∧ bflipset-cons(bflipset, wlar2) ∧ valid-ebatbl(apebs0, wlar2, vols, vtblpnum3) ∧ valid-vtbl(apebs0, vols, wlar2, vtblpnum3), err = ESUCCESS ∨ ⌊err⌋ ⊦ ⟪encode_vtbl#(; vtbl, buf; err); if err = ESUCCESS then {ubi_atomic_leb_change# (VTBL_VOLID, VTBL_LNUM, vtblpnum, LEB_SIZE, buf, EB_PAGE_SIZE; vols, wlar2, q0, bflipset, vtblpnum3, sqnum, apebs0; err); if err = ESUCCESS then {vols[v] := mkebatbl(n); vols[v] := fill(vols[v], unmapped)}}⟫ ( # apebs0 = # wlar2 ∧ unique-sqns(apebs0) ∧ valid-global-sqn(apebs0, sqnum) ∧ valid-wl(apebs0, wlar2) ∧ valid-eraseq(q0) ∧ valid-eraseq(wlar2, q0) ∧ valid-eraseq(apebs0, q0) ∧ ¬ VTBL_VOLID ∈ vols ∧ bflipset-cons(bflipset, wlar2) ∧ valid-ebatbl(apebs0, wlar2, vols, vtblpnum3) ∧ valid-vtbl(apebs0, vols, wlar2, vtblpnum3) ∧ ubi-io-inv(apebs0) ∧ (err = ESUCCESS ∨ ⌊err⌋ ) ∧ id(apebs0, apebs, mapped-pebs(vols)) ∧ (err = ESUCCESS → ¬ v ∈ vols0 ∧ vols = vols0[v, fill(mkebatbl(n), unmapped)] ∧ q0.lebrefs ⊆ ∅ ++ (VTBL_VOLID × VTBL_LNUM)) ∧ (err ≠ ESUCCESS → q0.lebrefs ⊆ q.lebrefs ∧ vols = vols0)), v = VTBL_VOLID, vtblpnum3 ∈ q, VTBL_VOLID ∈ vols, v ∈ vols |
# apebs0 = # wlar2, # apebs = # wlar, wlar2[vtblpnum].status = free, buf = mkbuf(LEB_SIZE), vtbl = to-vtbl(vols)[v, n], v ≠ VTBL_VOLID, vtblpnum < # wlar2, bflipset-cons(bflipset, wlar2), bflipset-cons(bflipset, wlar), id(apebs0, apebs, mapped-pebs(vols)), ubi-io-inv(apebs), ubi-io-inv(apebs0), unique-sqns(apebs0), unique-sqns(apebs), valid-ebatbl(apebs0, wlar2, vols, vtblpnum3), valid-ebatbl(apebs, wlar, vols, vtblpnum3), valid-eraseq(wlar2, []), valid-eraseq(apebs, q), valid-eraseq(wlar, q), valid-eraseq(q), valid-global-sqn(apebs0, sqnum), valid-global-sqn(apebs, sqnum), valid-vtbl(apebs0, vols, wlar2, vtblpnum3), valid-vtbl(apebs, vols, wlar, vtblpnum3), valid-wl(apebs0, wlar2), valid-wl(apebs, wlar), 2 * ENCODED_NAT_SIZE + (ENCODED_VOLID_SIZE + ENCODED_NAT_SIZE) * # vols + ENCODED_VOLID_SIZE ≤ LEB_SIZE, ¬ v ∈ vols, ¬ VTBL_VOLID ∈ vols, ¬ vtblpnum3 ∈ q ⊦ ⟪encode_vtbl#(; vtbl, buf; err); vols0 := vols; q0 := []; if err = ESUCCESS then {ubi_atomic_leb_change# (VTBL_VOLID, VTBL_LNUM, vtblpnum, LEB_SIZE, buf, EB_PAGE_SIZE; vols, wlar2, q0, bflipset, vtblpnum3, sqnum, apebs0; err); if err = ESUCCESS then {vols[v] := mkebatbl(n); vols[v] := fill(vols[v], unmapped)}}⟫ ( # apebs0 = # wlar2 ∧ unique-sqns(apebs0) ∧ valid-global-sqn(apebs0, sqnum) ∧ valid-wl(apebs0, wlar2) ∧ valid-eraseq(q0) ∧ valid-eraseq(wlar2, q0) ∧ valid-eraseq(apebs0, q0) ∧ ¬ VTBL_VOLID ∈ vols ∧ bflipset-cons(bflipset, wlar2) ∧ valid-ebatbl(apebs0, wlar2, vols, vtblpnum3) ∧ valid-vtbl(apebs0, vols, wlar2, vtblpnum3) ∧ ubi-io-inv(apebs0) ∧ (err = ESUCCESS ∨ ⌊err⌋ ) ∧ id(apebs0, apebs, mapped-pebs(vols)) ∧ (err = ESUCCESS → ¬ v ∈ vols0 ∧ vols = vols0[v, fill(mkebatbl(n), unmapped)] ∧ q0.lebrefs ⊆ ∅ ++ (VTBL_VOLID × VTBL_LNUM)) ∧ (err ≠ ESUCCESS → q0.lebrefs ⊆ q.lebrefs ∧ vols = vols0))
Used simplifier rules: lf-01: ⊦ m < n ∧ n = n0 → m < n0; (forward) from specification nat-basic% ⊦ id(apebs, apebs, ns); (s)% ⊦ m < n → n ≠ 0; (s)% ⊦ [].lebrefs = ∅; (s)%f: ⊦ m < n → n ≠ 0; (forward) from specification nat-basic