| # wlar0 = n1 + vtblpnum1, # apebs = n1 + vtblpnum1, apebs[vtblpnum1] = mkpeb(aechdr(m), avidhdr(v, m1, m2, m3, m4), buf1, m0, false), avhdr = apebs[vtblpnum1].vidhdr, bflipset = bflipset0 ++ vtblpnum1, buf = mkbuf(LEB_SIZE), err = err0, err = ESUCCESS, ladr = apebs[vtblpnum1].vidhdr.vol × apebs[vtblpnum1].vidhdr.leb, n = 0, vtblpnum0 = recs[ladr].pnum, wlar = wlar1[vtblpnum1, wl-entry(wlar1[vtblpnum1].ec, used)], wlar1 = wlar0[vtblpnum1, wlar0[vtblpnum1].ec:= m], avhdr.valid?, apebs[vtblpnum1].vidhdr.valid?, vtblpnum1 < # apebs, nx < vtblpnum1, vtblpnum1 < # wlar0, vtblpnum1 < # wlar1, vtblpnum0 < # wlar, bflipset-cons(bflipset0, subarray(wlar0, 0, vtblpnum1)), indices-erasing(wlar0, nx), ubi-io-inv(apebs), ubi-io-peb-inv(mkpeb(aechdr(m), avidhdr(v, m1, m2, m3, m4), buf1, m0, false)), unique-sqns(apebs), valid-eraseq(subarray(wlar0, 0, vtblpnum1), q), valid-eraseq-stronger(subarray(apebs, 0, vtblpnum1), q), valid-global-sqn(subarray(apebs, 0, vtblpnum1), sqnum), valid-recs(subarray(apebs, 0, vtblpnum1), subarray(wlar0, 0, vtblpnum1), recs), valid-recs-sqns(apebs, recs), valid-wl(subarray(apebs, 0, vtblpnum1), subarray(wlar0, 0, vtblpnum1)), ladr ∈ recs, 0 + LEB_SIZE ≤ # apebs[vtblpnum1].data, 0 + LEB_SIZE ≤ # buf, recs[ladr].sqn ≤ apebs[vtblpnum1].vidhdr.sqn, apebs[vtblpnum1].vidhdr.size ≠ 0 → ( (apebs[vtblpnum1].vidhdr.valid? ∧ vtblpnum1 < # apebs) ∧ (0 + LEB_SIZE ≤ # apebs[vtblpnum1].data ∧ 0 + LEB_SIZE ≤ # buf) ∧ vtblpnum1 < # apebs) ∧ ( apebs[vtblpnum1].vidhdr.size ≤ datasize(copy(apebs[vtblpnum1].data, 0, buf, 0, LEB_SIZE)) → (apebs[vtblpnum1].vidhdr.valid? ∧ vtblpnum1 < # apebs) ∧ ((0 + LEB_SIZE ≤ # apebs[vtblpnum1].data ∧ 0 + LEB_SIZE ≤ # buf) ∧ vtblpnum1 < # apebs) ∧ apebs[vtblpnum1].vidhdr.valid? ∧ vtblpnum1 < # apebs), apebs[vtblpnum1].vidhdr.size ≠ 0 → apebs[vtblpnum1].vidhdr.size ≤ datasize(copy(apebs[vtblpnum1].data, 0, buf, 0, LEB_SIZE)) ∧ apebs[vtblpnum1].vidhdr.checksum = checksum(copy(apebs[vtblpnum1].data, 0, buf, 0, LEB_SIZE), apebs[vtblpnum1].vidhdr.size), ⌊err0⌋ ∨ err0 = ESUCCESS, bitflips0 ∨ bitflips ⊦ m3 = 0, n1 = 0, dups(nx), vtblpnum1 + 1 ≤ # apebs ∧ (err = ESUCCESS ∨ ⌊err⌋ ) ∧ ( err = ESUCCESS → # apebs = # wlar[vtblpnum0, wl-entry(wlar[vtblpnum0].ec, erasing)] ∧ nx < vtblpnum1 + 1 ∧ indices-erasing(wlar[vtblpnum0, wl-entry(wlar[vtblpnum0].ec, erasing)], nx) ∧ valid-global-sqn(subarray(apebs, 0, vtblpnum1 + 1), max(sqnum, apebs[vtblpnum1].vidhdr.sqn + 1)) ∧ valid-eraseq (subarray(wlar[vtblpnum0, wl-entry(wlar[vtblpnum0].ec, erasing)], 0, vtblpnum1 + 1), q + eq-entry(vtblpnum0, avhdr.vol × avhdr.leb) ') ∧ bflipset-cons(bflipset -- vtblpnum0, subarray(wlar[vtblpnum0, wl-entry(wlar[vtblpnum0].ec, erasing)], 0, vtblpnum1 + 1)) ∧ valid-eraseq-stronger(subarray(apebs, 0, vtblpnum1 + 1), q + eq-entry(vtblpnum0, avhdr.vol × avhdr.leb) ') ∧ valid-wl(subarray(apebs, 0, vtblpnum1 + 1), subarray(wlar[vtblpnum0, wl-entry(wlar[vtblpnum0].ec, erasing)], 0, vtblpnum1 + 1)) ∧ valid-recs-sqns(apebs, recs[ladr, recovery-entry(vtblpnum1, avhdr.sqn)]) ∧ valid-recs (subarray(apebs, 0, vtblpnum1 + 1), subarray(wlar[vtblpnum0, wl-entry(wlar[vtblpnum0].ec, erasing)], 0, vtblpnum1 + 1), recs[ladr, recovery-entry(vtblpnum1, avhdr.sqn)])) ∧ # apebs < n1 + vtblpnum1 + 1 |
# apebs = n1 + vtblpnum1, # wlar0 = n1 + vtblpnum1, apebs[vtblpnum1] = mkpeb(aechdr(m), avidhdr(v, m1, m2, m3, checksum(buf1, m3)), buf1, m0, false), recs[v × m1].pnum < n1 + vtblpnum1, nx < vtblpnum1, bflipset-cons(bflipset0, subarray(wlar0, 0, vtblpnum1)), indices-erasing(wlar0, nx), ubi-io-inv(apebs), ubi-io-peb-inv(mkpeb(aechdr(m), avidhdr(v, m1, m2, m3, checksum(buf1, m3)), buf1, m0, false)), unique-sqns(apebs), valid-eraseq(subarray(wlar0, 0, vtblpnum1), q), valid-eraseq-stronger(subarray(apebs, 0, vtblpnum1), q), valid-global-sqn(subarray(apebs, 0, vtblpnum1), sqnum), valid-recs(subarray(apebs, 0, vtblpnum1), subarray(wlar0, 0, vtblpnum1), recs), valid-recs-sqns(apebs, recs), valid-wl(subarray(apebs, 0, vtblpnum1), subarray(wlar0, 0, vtblpnum1)), v × m1 ∈ recs, m3 ≤ datasize(buf1), recs[v × m1].sqn ≤ m2, m3 ≤ LEB_SIZE, bitflips0 ∨ bitflips ⊦ m3 = 0, n1 = 0, dups(nx), indices-erasing (wlar0[vtblpnum1, wl-entry(m, used)][recs[v × m1].pnum, wl-entry(wlar0[vtblpnum1, wl-entry(m, used)][recs[v × m1].pnum].ec, erasing)], nx) ∧ valid-global-sqn(subarray(apebs, 0, vtblpnum1 + 1), max(sqnum, m2 + 1)) ∧ valid-eraseq (subarray (wlar0[vtblpnum1, wl-entry(m, used)][recs[v × m1].pnum, wl-entry(wlar0[vtblpnum1, wl-entry(m, used)][recs[v × m1].pnum].ec, erasing)], 0, vtblpnum1 + 1), q + eq-entry(recs[v × m1].pnum, v × m1) ') ∧ bflipset-cons ((bflipset0 ++ vtblpnum1) -- recs[v × m1].pnum, subarray (wlar0[vtblpnum1, wl-entry(m, used)][recs[v × m1].pnum, wl-entry(wlar0[vtblpnum1, wl-entry(m, used)][recs[v × m1].pnum].ec, erasing)], 0, vtblpnum1 + 1)) ∧ valid-eraseq-stronger(subarray(apebs, 0, vtblpnum1 + 1), q + eq-entry(recs[v × m1].pnum, v × m1) ') ∧ valid-wl (subarray(apebs, 0, vtblpnum1 + 1), subarray (wlar0[vtblpnum1, wl-entry(m, used)][recs[v × m1].pnum, wl-entry(wlar0[vtblpnum1, wl-entry(m, used)][recs[v × m1].pnum].ec, erasing)], 0, vtblpnum1 + 1)) ∧ valid-recs-sqns(apebs, recs[v × m1, recovery-entry(vtblpnum1, m2)]) ∧ valid-recs (subarray(apebs, 0, vtblpnum1 + 1), subarray (wlar0[vtblpnum1, wl-entry(m, used)][recs[v × m1].pnum, wl-entry(wlar0[vtblpnum1, wl-entry(m, used)][recs[v × m1].pnum].ec, erasing)], 0, vtblpnum1 + 1), recs[v × m1, recovery-entry(vtblpnum1, m2)])
Used simplifier rules: ubi-io-inv-fwd: n < # apebs ⊦ apebs[n] = apeb ∧ ubi-io-inv(apebs) → ubi-io-peb-inv(apeb);%datasize-le-fwd: ⊦ m ≤ datasize(buf) → m ≤ # buf; (forward) from specification datasize% ⊦ ¬ n < n; (s)% ⊦ m + n < m + n0 ↔ n < n0; (s)% ⊦ avidhdr(v, m, m0, m1, m2).checksum = m2; (s)% ⊦ avidhdr(v, m, m0, m1, m2).size = m1; (s)% ⊦ avidhdr(v, m, m0, m1, m2).valid?; (s)% ⊦ avidhdr(v, m, m0, m1, m2).sqn = m0; (s)% ⊦ m < m + n ↔ n ≠ 0; (s)% ⊦ avidhdr(v, m, m0, m1, m2).leb = m; (s)% ⊦ avidhdr(v, m, m0, m1, m2).vol = v; (s)% ⊦ mkpeb(aehdr, avhdr, buf, m, boolvar).vidhdr = avhdr; (s)%lf-01: ⊦ m < n ∧ n = n0 → m < n0; (forward) from specification nat-basic% ⊦ m < n + 1 ↔ ¬ n < m; (s)% ⊦ nx < m → nx < m + n; (ss)% ⊦ m + 1 ≤ n ↔ m < n; (s)%# buf = m, # buf0 = m ⊦ copy(buf, 0, buf0, 0, m) = buf; (s)%⊦ ubi-io-peb-inv(mkpeb(aehdr, avhdr, buf, n, boolvar)) → # buf = LEB_SIZE; (s)% ⊦ mkpeb(aehdr, avhdr, buf, m, boolvar).data = buf; (s)% ⊦ ¬ ⌊ESUCCESS⌋ ; (s)% ⊦ # wlar[n, wle] = # wlar; (s)%m < # wlar ⊦ wlar[m, wle][m, wle0] = wlar[m, wle0]; (s)% ⊦ m + m0 ≤ m ↔ m0 = 0; (s)% ⊦ m < n ↔ ¬ n ≤ m; (ss)% ⊦ (wle.ec:= m).ec = m; (s)% ⊦ m < # wlar → wlar[m, wle][m] = wle; (s)% ⊦ m ≤ m; (s)% ⊦ # mkbuf(n) = n; (s)%c: ⊦ m + n = n + m; from specification nat-basic%a: ⊦ (m + n0) + n1 = m + n0 + n1; from specification nat-basic% ⊦ n + 0 = n; (s)