| # apebs = n0 + vtblpnum, # wlar0 = n0 + vtblpnum, avhdr.size = 0, apebs[vtblpnum] = mkpeb(aechdr(m), avhdr1, buf1, m0, false), avhdr = apebs[vtblpnum].vidhdr, bflipset = bflipset0 ++ vtblpnum, bitflips, buf = mkbuf(LEB_SIZE), err = err0, err = ESUCCESS, ladr = avhdr.vol × avhdr.leb, n = 0, wlar = wlar1[vtblpnum, wl-entry(wlar1[vtblpnum].ec, used)], wlar1 = wlar0[vtblpnum, wlar0[vtblpnum].ec:= m], apebs[vtblpnum].vidhdr.valid?, avhdr.valid?, vtblpnum < # wlar0, nx < vtblpnum, vtblpnum < # apebs, vtblpnum < # wlar1, bflipset-cons(bflipset0, 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)), n ≤ avhdr.sqn, avhdr.size ≠ 0 → avhdr.valid? ∧ (avhdr.size ≤ datasize(buf) → avhdr.valid? ∧ avhdr.valid?), avhdr.size ≠ 0 → avhdr.size ≤ datasize(buf) ∧ avhdr.checksum = checksum(buf, avhdr.size), ⌊err0⌋ ∨ err0 = ESUCCESS ⊦ apebs[vtblpnum].vidhdr = empty, n0 = 0, dups(nx), ladr ∈ recs, vtblpnum + 1 ≤ # apebs ∧ (err = ESUCCESS ∨ ⌊err⌋ ) ∧ ( err = ESUCCESS → # apebs = # wlar ∧ nx < vtblpnum + 1 ∧ indices-erasing(wlar, nx) ∧ valid-global-sqn(subarray(apebs, 0, vtblpnum + 1), max(sqnum, avhdr.sqn + 1)) ∧ valid-eraseq(subarray(wlar, 0, vtblpnum + 1), q) ∧ bflipset-cons(bflipset, subarray(wlar, 0, vtblpnum + 1)) ∧ valid-eraseq-stronger(subarray(apebs, 0, vtblpnum + 1), q) ∧ valid-wl(subarray(apebs, 0, vtblpnum + 1), subarray(wlar, 0, vtblpnum + 1)) ∧ valid-recs-sqns(apebs, recs[ladr, recovery-entry(vtblpnum, avhdr.sqn)]) ∧ valid-recs(subarray(apebs, 0, vtblpnum + 1), subarray(wlar, 0, vtblpnum + 1), recs[ladr, recovery-entry(vtblpnum, avhdr.sqn)])) ∧ # apebs < n0 + vtblpnum + 1 |
# wlar0 = n0 + vtblpnum, # apebs = n0 + vtblpnum, avhdr1.size = 0, apebs[vtblpnum] = mkpeb(aechdr(m), avhdr1, buf1, m0, false), valid-sqns(avhdr1.vol, avhdr1.leb, apebs, vtblpnum) = ∅, avhdr1.valid?, nx < vtblpnum, bflipset-cons(bflipset0, 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)) ⊦ avhdr1 = empty, n0 = 0, dups(nx), avhdr1.vol × avhdr1.leb ∈ recs, valid-global-sqn(subarray(apebs, 0, vtblpnum + 1), max(sqnum, avhdr1.sqn + 1)) ∧ valid-wl(subarray(apebs, 0, vtblpnum + 1), subarray(wlar0[vtblpnum, wl-entry(m, used)], 0, vtblpnum + 1)) ∧ valid-recs-sqns(apebs, recs[avhdr1.vol × avhdr1.leb, recovery-entry(vtblpnum, avhdr1.sqn)]) ∧ valid-recs (subarray(apebs, 0, vtblpnum + 1), subarray(wlar0[vtblpnum, wl-entry(m, used)], 0, vtblpnum + 1), recs[avhdr1.vol × avhdr1.leb, recovery-entry(vtblpnum, avhdr1.sqn)])
Used simplifier rules: lf-valid-eraseq-stronger-notin-recs: # apebs = # wlar ⊦ valid-eraseq-stronger(apebs, q) ∧ valid-eraseq(wlar, q) ∧ valid-recs(apebs, wlar, recs) ∧ valid-wl(apebs, wlar) ∧ ¬ v × m ∈ recs → valid-sqns(v, m, apebs) = ∅;% ⊦ ¬ n < n; (s)% ⊦ m + n < m + n0 ↔ n < n0; (s)%n ≤ # apebs ⊦ valid-sqns(v, m, subarray(apebs, 0, n)) = valid-sqns(v, m, apebs, n); (s)% ⊦ m < n → m ≤ n; (s)% ⊦ mkpeb(aehdr, avhdr, buf, m, boolvar).vidhdr = avhdr; (s)% ⊦ # subarray(wlar, m, n) = n; (s)% ⊦ # subarray(apebs, m, n) = n; (s)%lf-01: ⊦ m < n ∧ n = n0 → m < n0; (forward) from specification nat-basic% ⊦ m < n + 1 ↔ ¬ n < m; (s)%m < # apebs ⊦ valid-eraseq-stronger(subarray(apebs, 0, m), q) → valid-eraseq-stronger(subarray(apebs, 0, m + 1), q); (ss)%n < # wlar ⊦ bflipset-cons(bflipset, subarray(wlar, 0, n)) → bflipset-cons (bflipset ++ n, subarray(wlar[n, wl-entry(m0, used)], 0, n + 1)); (ss)%n < # wlar, stat ≠ erasing ⊦ valid-eraseq(subarray(wlar, 0, n), q) → valid-eraseq(subarray(wlar[n, wl-entry(m, stat)], 0, n + 1), q); (ss)% ⊦ used ≠ erasing; (s)% ⊦ m < m + n ↔ n ≠ 0; (s)%⊦ nx < m ∧ indices-erasing(wlar, nx) → indices-erasing(wlar[m, wle], nx); (ss)% ⊦ nx < m → nx < m + n; (ss)%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)%c: ⊦ m + n = n + m; from specification nat-basic%a: ⊦ (m + n0) + n1 = m + n0 + n1; from specification nat-basic% ⊦ m + 1 ≤ n ↔ m < n; (s)% ⊦ ¬ ⌊ESUCCESS⌋ ; (s)% ⊦ # wlar[n, wle] = # wlar; (s)% ⊦ 0 ≤ m; (s)