| wlar[n] = wl-entry(m0, stat0), apebs0[n] = mkpeb(aehdr, avhdr, buf, m1, false), apebs1[n] = mkpeb(aehdr1, avhdr1, buf1, m, false), apebs = apebs1[n, mkpeb(empty, empty, mkempbuf(LEB_SIZE), 0, false)], err = err0, err = ESUCCESS, wlar1 = wlar[n, wl-entry(wlar[n].ec + vtblpnum1, stat)] [n, wlar[n, wl-entry(wlar[n].ec + vtblpnum1, stat)][n].ec:= (wlar[n, wl-entry(wlar[n].ec + vtblpnum1, stat)][n].ec + 1) ], n < # wlar, n < # wlar[n, wl-entry(wlar[n].ec + vtblpnum1, stat)], n < # apebs0, n < # apebs1, ubi-io-peb-inv(mkpeb(aehdr0, avhdr0, buf0, m2, false)), vtblpnum1 ≤ UBI_ERASE_RETRIES, vtblpnum1 ≤ UBI_ERASE_RETRIES + 1, ⌊err2⌋ , ⌊err0⌋ ∨ err0 = ESUCCESS ⊦ [aubi_io_write_echdr#(n, aechdr(wlar1[n].ec); apebs; err1); vtblpnum1 := vtblpnum1 + 1] (id○(wlar, wlar1, n) ∧ vtblpnum1 ≠ 0 ∧ vtblpnum1 ≤ UBI_ERASE_RETRIES + 1 ∧ (∃ stat. wlar1 = wlar[n, wl-entry(wlar[n].ec + vtblpnum1, stat)])), err1 = ESUCCESS, vtblpnum1 = 0, avhdr0.valid? |
wlar[n] = wl-entry(m0, stat0), apebs0[n] = mkpeb(aehdr, avhdr, buf, m1, false), apebs1[n] = mkpeb(aehdr1, avhdr1, buf1, m, false), apebs = apebs1[n, mkpeb(empty, empty, mkempbuf(LEB_SIZE), 0, false)], err1 ≠ ESUCCESS, vtblpnum1 ≠ 0, n < # apebs0, n < # apebs1, n < # wlar, ubi-io-peb-inv(mkpeb(aehdr0, avhdr0, buf0, m2, false)), vtblpnum1 ≤ UBI_ERASE_RETRIES, vtblpnum1 ≤ UBI_ERASE_RETRIES + 1, ⌊err2⌋ , ¬ avhdr0.valid? ⊦ [aubi_io_write_echdr# (n, aechdr(wlar[n, wlar[n, wl-entry(wlar[n].ec + vtblpnum1, stat)][n].ec:= (wlar[n, wl-entry(wlar[n].ec + vtblpnum1, stat)][n].ec + 1)][n].ec) ; apebs ; err1); vtblpnum := vtblpnum1 + 1] ( vtblpnum ≠ 0 ∧ vtblpnum ≤ UBI_ERASE_RETRIES + 1 ∧ (∃ stat1. wlar[n, wl-entry((wlar[n].ec + vtblpnum1) + 1, stat)] = wlar[n, wl-entry(wlar[n].ec + vtblpnum, stat1)]))
Used simplifier rules: ⊦ m < n → n ≠ 0; (s)%f: ⊦ m < n → n ≠ 0; (forward) from specification nat-basic%⊦ wle = wlar[n] ∧ wle = wlar0[n] → (id○(wlar, wlar0, n) ↔ wlar = wlar0); (s)% ⊦ id○(wlar, wlar0[n, wle], n) ↔ id○(wlar, wlar0, n); (s)% ⊦ wl-entry(m, stat).ec:= m0 = wl-entry(m0, stat); (s)%a: ⊦ (m + n0) + n1 = m + n0 + n1; from specification nat-basic% ⊦ wl-entry(m, stat).ec = m; (s)% ⊦ m < # wlar → wlar[m, wle][m] = wle; (s)%m < # wlar ⊦ wlar[m, wle][m, wle0] = wlar[m, wle0]; (s)% ⊦ m < n → (n ≤ m ↔ false); (s)% ⊦ m < n ↔ ¬ n ≤ m; (ss)% ⊦ ¬ ⌊ESUCCESS⌋ ; (s)% ⊦ # wlar[n, wle] = # wlar; (s)