| # wlar0 = n0 + vtblpnum, # apebs = n0 + vtblpnum, apebs[vtblpnum].vidhdr = empty, apebs[vtblpnum] = mkpeb(aechdr(m), avhdr1, buf1, m0, false), err = ESUCCESS, err = err0, wlar = wlar0[vtblpnum, wlar0[vtblpnum].ec:= m], nx < vtblpnum, vtblpnum < # apebs, vtblpnum < # wlar0, bflipset-cons(bflipset, subarray(wlar0, 0, vtblpnum)), indices-erasing(wlar0, nx), ubi-io-inv(apebs), ubi-io-peb-inv(mkpeb(aechdr(m), avhdr1, buf1, m0, false)), unique-sqns(apebs), valid-eraseq(subarray(wlar0, 0, vtblpnum), q), valid-eraseq-stronger(subarray(apebs, 0, vtblpnum), q), valid-global-sqn(subarray(apebs, 0, vtblpnum), sqnum), valid-recs(subarray(apebs, 0, vtblpnum), subarray(wlar0, 0, vtblpnum), recs), valid-recs-sqns(apebs, recs), valid-wl(subarray(apebs, 0, vtblpnum), subarray(wlar0, 0, vtblpnum)), ⌊err0⌋ ∨ err0 = ESUCCESS ⊦ ⟪if bitflips then {wlar[vtblpnum] := wl-entry(wlar[vtblpnum].ec, erasing); q := q + eq-entry(vtblpnum, none) '} else wlar[vtblpnum] := wl-entry(wlar[vtblpnum].ec, free); vtblpnum := vtblpnum + 1⟫ ( vtblpnum ≤ # apebs ∧ (err = ESUCCESS ∨ ⌊err⌋ ) ∧ ( err = ESUCCESS → # apebs = # wlar ∧ nx < vtblpnum ∧ indices-erasing(wlar, nx) ∧ valid-global-sqn(subarray(apebs, 0, vtblpnum), sqnum) ∧ valid-eraseq(subarray(wlar, 0, vtblpnum), q) ∧ bflipset-cons(bflipset, subarray(wlar, 0, vtblpnum)) ∧ valid-eraseq-stronger(subarray(apebs, 0, vtblpnum), q) ∧ valid-wl(subarray(apebs, 0, vtblpnum), subarray(wlar, 0, vtblpnum)) ∧ valid-recs-sqns(apebs, recs) ∧ valid-recs(subarray(apebs, 0, vtblpnum), subarray(wlar, 0, vtblpnum), recs)) ∧ # apebs < n0 + vtblpnum), n0 = 0, dups(nx) |
# apebs = n0 + vtblpnum, # wlar0 = n0 + vtblpnum, apebs[vtblpnum].vidhdr = empty, apebs[vtblpnum] = mkpeb(aechdr(m), avhdr1, buf1, m0, false), bitflips, err = err0, err = ESUCCESS, wlar = wlar0[vtblpnum, wlar0[vtblpnum].ec:= m], vtblpnum < # wlar0, vtblpnum < # apebs, nx < vtblpnum, bflipset-cons(bflipset, subarray(wlar0, 0, vtblpnum)), indices-erasing(wlar0, nx), ubi-io-inv(apebs), ubi-io-peb-inv(mkpeb(aechdr(m), avhdr1, buf1, m0, false)), unique-sqns(apebs), valid-eraseq(subarray(wlar0, 0, vtblpnum), q), valid-eraseq-stronger(subarray(apebs, 0, vtblpnum), q), valid-global-sqn(subarray(apebs, 0, vtblpnum), sqnum), valid-recs(subarray(apebs, 0, vtblpnum), subarray(wlar0, 0, vtblpnum), recs), valid-recs-sqns(apebs, recs), valid-wl(subarray(apebs, 0, vtblpnum), subarray(wlar0, 0, vtblpnum)), ⌊err0⌋ ∨ err0 = ESUCCESS ⊦ ⟪wlar[vtblpnum] := wl-entry(wlar[vtblpnum].ec, erasing); q := q + eq-entry(vtblpnum, none) '; vtblpnum := vtblpnum + 1⟫ ( vtblpnum ≤ # apebs ∧ (err = ESUCCESS ∨ ⌊err⌋ ) ∧ ( err = ESUCCESS → # apebs = # wlar ∧ nx < vtblpnum ∧ indices-erasing(wlar, nx) ∧ valid-global-sqn(subarray(apebs, 0, vtblpnum), sqnum) ∧ valid-eraseq(subarray(wlar, 0, vtblpnum), q) ∧ bflipset-cons(bflipset, subarray(wlar, 0, vtblpnum)) ∧ valid-eraseq-stronger(subarray(apebs, 0, vtblpnum), q) ∧ valid-wl(subarray(apebs, 0, vtblpnum), subarray(wlar, 0, vtblpnum)) ∧ valid-recs-sqns(apebs, recs) ∧ valid-recs(subarray(apebs, 0, vtblpnum), subarray(wlar, 0, vtblpnum), recs)) ∧ # apebs < n0 + vtblpnum), n0 = 0, dups(nx)
# apebs = n0 + vtblpnum, # wlar0 = n0 + vtblpnum, apebs[vtblpnum].vidhdr = empty, apebs[vtblpnum] = mkpeb(aechdr(m), avhdr1, buf1, m0, false), ¬ bitflips, err = err0, err = ESUCCESS, wlar = wlar0[vtblpnum, wlar0[vtblpnum].ec:= m], vtblpnum < # wlar0, vtblpnum < # apebs, nx < vtblpnum, bflipset-cons(bflipset, subarray(wlar0, 0, vtblpnum)), indices-erasing(wlar0, nx), ubi-io-inv(apebs), ubi-io-peb-inv(mkpeb(aechdr(m), avhdr1, buf1, m0, false)), unique-sqns(apebs), valid-eraseq(subarray(wlar0, 0, vtblpnum), q), valid-eraseq-stronger(subarray(apebs, 0, vtblpnum), q), valid-global-sqn(subarray(apebs, 0, vtblpnum), sqnum), valid-recs(subarray(apebs, 0, vtblpnum), subarray(wlar0, 0, vtblpnum), recs), valid-recs-sqns(apebs, recs), valid-wl(subarray(apebs, 0, vtblpnum), subarray(wlar0, 0, vtblpnum)), ⌊err0⌋ ∨ err0 = ESUCCESS ⊦ ⟪wlar[vtblpnum] := wl-entry(wlar[vtblpnum].ec, free); vtblpnum := vtblpnum + 1⟫ ( vtblpnum ≤ # apebs ∧ (err = ESUCCESS ∨ ⌊err⌋ ) ∧ ( err = ESUCCESS → # apebs = # wlar ∧ nx < vtblpnum ∧ indices-erasing(wlar, nx) ∧ valid-global-sqn(subarray(apebs, 0, vtblpnum), sqnum) ∧ valid-eraseq(subarray(wlar, 0, vtblpnum), q) ∧ bflipset-cons(bflipset, subarray(wlar, 0, vtblpnum)) ∧ valid-eraseq-stronger(subarray(apebs, 0, vtblpnum), q) ∧ valid-wl(subarray(apebs, 0, vtblpnum), subarray(wlar, 0, vtblpnum)) ∧ valid-recs-sqns(apebs, recs) ∧ valid-recs(subarray(apebs, 0, vtblpnum), subarray(wlar, 0, vtblpnum), recs)) ∧ # apebs < n0 + vtblpnum), n0 = 0, dups(nx)