| # apebs = # wlar, wlar[n].status = erasing, vols[apeb.vidhdr.vol][apeb.vidhdr.leb] = unmapped, apeb.vidhdr.leb < # vols[apeb.vidhdr.vol], n < # apebs, valid-ebatbl(apebs, wlar, vols, n0), valid-peb(apeb), valid-vtbl(apebs, vols, wlar, n0), valid-wl(apebs, wlar), apeb.vidhdr.vol ∈ vols ⊦ valid-wl(apebs[n, apeb], wlar), VTBL_VOLID ∈ vols |
# apebs = # wlar, apebs[n0].vidhdr.leb = VTBL_LNUM, wlar[n0].status = used, wlar[n].status = erasing, apebs[n0].vidhdr.vol = VTBL_VOLID, vols[apeb.vidhdr.vol][apeb.vidhdr.leb] = unmapped, n1 < # wlar, n0 < # wlar, apeb.vidhdr.leb < # vols[apeb.vidhdr.vol], n < # wlar, is-encoded(to-vtbl(vols), apebs[n0].data), valid-peb(apeb), apeb.vidhdr.vol ∈ vols, ∀ n. n < # wlar → (wlar[n].status = erroneous ↔ apebs[n].bad) ∧ (wlar[n].status = free → apebs[n].vidhdr = empty) ∧ (wlar[n].status ≠ erroneous ∧ wlar[n].status ≠ erasing → apebs[n].echdr = aechdr(wlar[n].ec)) ∧ (wlar[n].status = used → (∃ v, m. valid-peb(v, m, apebs[n]) ∧ apebs[n].vidhdr.sqn = valid-sqns(v, m, apebs).max)), ∀ v, m, n2. vols[v][m] = ⌜n2⌝ ∧ v ∈ vols ∧ m < # vols[v] ↔ wlar[n2].status = used ∧ n2 < # wlar ∧ apebs[n2].vidhdr.valid? ∧ apebs[n2].vidhdr.vol = v ∧ apebs[n2].vidhdr.leb = m ∧ n2 ≠ n0 ⊦ VTBL_VOLID ∈ vols, (wlar[n1].status = erroneous ↔ apebs[n, apeb][n1].bad) ∧ (wlar[n1].status = free → apebs[n, apeb][n1].vidhdr = empty) ∧ (wlar[n1].status ≠ erroneous ∧ wlar[n1].status ≠ erasing → apebs[n1].echdr = aechdr(wlar[n1].ec)) ∧ (wlar[n1].status = used → (∃ v, m. valid-peb(v, m, apebs[n, apeb][n1]) ∧ apebs[n, apeb][n1].vidhdr.sqn = valid-sqns(v, m, apebs[n, apeb]).max))
Used simplifier rules: valid-wl: ⊦ valid-wl(apebs, wlar) ↔ (∀ n. n < # wlar → (wlar[n].status = erroneous ↔ apebs[n].bad) ∧ (wlar[n].status = free → apebs[n].vidhdr = empty) ∧ ( wlar[n].status ≠ erroneous ∧ wlar[n].status ≠ erasing → apebs[n].echdr = aechdr(wlar[n].ec)) ∧ ( wlar[n].status = used → (∃ v, m. valid-peb(v, m, apebs[n]) ∧ apebs[n].vidhdr.sqn = valid-sqns(v, m, apebs).max)));%valid-vtbl: ⊦ valid-vtbl(apebs, vols, wlar, n0) ↔ n0 < # apebs ∧ n0 < # wlar ∧ wlar[n0].status = used ∧ apebs[n0].vidhdr.vol = VTBL_VOLID ∧ apebs[n0].vidhdr.leb = VTBL_LNUM ∧ is-encoded(to-vtbl(vols), apebs[n0].data);%valid-ebatbl: ⊦ valid-ebatbl(apebs, wlar, vols, n0) ↔ (∀ v, m, n. vols[v][m] = ⌜n⌝ ∧ v ∈ vols ∧ m < # vols[v] ↔ wlar[n].status = used ∧ n < # apebs ∧ n < # wlar ∧ apebs[n].vidhdr.valid? ∧ apebs[n].vidhdr.vol = v ∧ apebs[n].vidhdr.leb = m ∧ n ≠ n0);% ⊦ m < n → n ≠ 0; (s)%lf-01: ⊦ m < n ∧ n = n0 → m < n0; (forward) from specification nat-basic%f: ⊦ m < n → n ≠ 0; (forward) from specification nat-basic%m ≠ n ⊦ apebs[m, apeb][n] = apebs[n]; (s)