| # avols0[v] = # vols0[v], # apebs0 = # wlar0, # wlar = # wlar0, # vols[v] = # vols0[v], apebs0[vols[v][m].pnum] = mkpeb(aehdr, avhdr, buf, m0, boolvar), avols0[v][m].mapped?, m < # vols0[v], bflipset-cons(bflipset, wlar), bflipset-cons(bflipset0, wlar0), ebm-cons(avols0), is-max(apebs0, vols0, wlar0, q0, bflipset0, vtblpnum3, sqnum), ubi-io-inv(apebs0), unique-sqns(apebs0), valid-ebatbl(apebs0, wlar, vols, vtblpnum), valid-ebatbl(apebs0, wlar0, vols0, vtblpnum3), valid-eraseq(q), valid-eraseq(wlar, q), valid-eraseq(apebs0, q), valid-eraseq(q0), valid-eraseq(wlar0, q0), valid-eraseq(apebs0, q0), valid-global-sqn(apebs0, vtblpnum0), valid-global-sqn(apebs0, sqnum), valid-vtbl(apebs0, vols, wlar, vtblpnum), valid-vtbl(apebs0, vols0, wlar0, vtblpnum3), valid-wl(apebs0, wlar), valid-wl(apebs0, wlar0), v ∈ vols0, v ∈ vols, v ∈ avols0, q0.lebrefs ⊆ q.lebrefs, vols0⌈vols, q⌉, vols[v][m] ≠ unmapped → vols[v][m] = vols0[v][m], vols[v][m] = unmapped → ¬ avols0[v][m].mapped?, vols[v][m] ≠ unmapped → avols0[v][m].mapped? ∧ avols0[v][m].data = buf ∧ m0 ≤ avols0[v][m].fill, avols0[v][m] = erased → ¬ v × m ∈ q ⊦ (vols0[v][m] = unmapped ⊃ (v × m ∈ q0 ⊃ unmapped;erased);mapped(apebs0[vols0[v][m].pnum].data, avols0[v][m].fill)) = avols0[v][m], avols0[v][m] = unmapped, VTBL_VOLID ∈ vols0, VTBL_VOLID ∈ vols |
# avols0[v] = # vols0[v], # apebs0 = # wlar0, # wlar = # wlar0, # vols[v] = # vols0[v], apebs0[n] = mkpeb(aehdr, avhdr, avols0[v][m].data, m0, false), vols0[v][m] = ⌜n⌝ , vols[v][m] = ⌜n⌝ , avols0[v][m].mapped?, avhdr.valid?, m < # vols0[v], n < # wlar0, bflipset-cons(bflipset, wlar), bflipset-cons(bflipset0, wlar0), ebm-cons(avols0), is-max(apebs0, vols0, wlar0, q0, bflipset0, vtblpnum3, sqnum), ubi-io-inv(apebs0), ubi-io-peb-inv(mkpeb(aehdr, avhdr, avols0[v][m].data, m0, false)), unique-sqns(apebs0), valid-ebatbl(apebs0, wlar, vols, vtblpnum), valid-ebatbl(apebs0, wlar0, vols0, vtblpnum3), valid-eraseq(q), valid-eraseq(wlar, q), valid-eraseq(apebs0, q), valid-eraseq(q0), valid-eraseq(wlar0, q0), valid-eraseq(apebs0, q0), valid-global-sqn(apebs0, vtblpnum0), valid-global-sqn(apebs0, sqnum), valid-vtbl(apebs0, vols, wlar, vtblpnum), valid-vtbl(apebs0, vols0, wlar0, vtblpnum3), valid-wl(apebs0, wlar), valid-wl(apebs0, wlar0), v ∈ vols0, v ∈ vols, v ∈ avols0, m0 ≤ avols0[v][m].fill, q0.lebrefs ⊆ q.lebrefs, vols0⌈vols, q⌉, avols0[v][m] = erased → ¬ v × m ∈ q ⊦ avols0[v][m] = unmapped, mapped(avols0[v][m].data, avols0[v][m].fill) = avols0[v][m], VTBL_VOLID ∈ vols0, VTBL_VOLID ∈ vols
Used simplifier rules: lf-elim-unmapped: ⊦ vols[v][m] ≠ unmapped → (∃ n. vols[v][m] = ⌜n⌝ );%lf-mapped-in-apebs: ⊦ v ∈ vols ∧ m < # vols[v] ∧ vols[v][m] = ⌜n⌝ ∧ valid-ebatbl(apebs, wlar, vols, n0) → n < # apebs;%lf-mapped-valid-vidhdr: ⊦ v ∈ vols ∧ m < # vols[v] ∧ vols[v][m] = ⌜n⌝ ∧ valid-ebatbl(apebs, wlar, vols, n0) ∧ apebs[n] = mkpeb(aehdr, avhdr, buf, m0, boolvar) → avhdr.valid?;%lf-mapped-not-bad: ⊦ v ∈ vols ∧ m < # vols[v] ∧ vols[v][m] = ⌜n⌝ ∧ valid-ebatbl(apebs, wlar, vols, n0) ∧ valid-wl(apebs, wlar) ∧ apebs[n] = mkpeb(aehdr, avhdr, buf, m0, boolvar) → ¬ boolvar;% ⊦ 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%ubi-io-inv-fwd: n < # apebs ⊦ apebs[n] = apeb ∧ ubi-io-inv(apebs) → ubi-io-peb-inv(apeb); (forward) from specification ubi-asm% ⊦ m < n → (n ≤ m ↔ false); (s)% ⊦ m < n ↔ ¬ n ≤ m; (ss)% ⊦ unmapped ≠ ⌜m⌝ ; (s)% ⊦ ⌜m⌝ .pnum = m; (s)% ⊦ mkpeb(aehdr, avhdr, buf, m, boolvar).data = buf; (s)