[Imprint][Data Privacy Statement][E-Mail]

View long theorem info. View the proof. Back to main index. View the specification. View theorem base summary, View theorem base listing, the used properties by spec, the dependency list, the symbol table,

Proof step 24 from proof wlar-erase-worker-helper (previous step)

apebs0[n] = mkpeb(aehdr, avhdr, buf, m1, false), wlar[n] = wl-entry(m0, stat0), apebs = apebs0[n, mkpeb(empty, empty, mkempbuf(LEB_SIZE), 0, false)], n < # apebs0, n < # wlar ⊦ [aubi_io_write_echdr#(n, aechdr(wlar[n, wlar[n].ec:= (wlar[n].ec + 1)][n].ec); apebs; err0); vtblpnum1 := 1; wlar1 := wlar[n, wlar[n].ec:= (wlar[n].ec + 1)]; vtblpnum0 := n; while err0 ≠ ESUCCESS ∧ vtblpnum1 ≤ UBI_ERASE_RETRIES do {wlar1[vtblpnum0].ec := wlar1[vtblpnum0].ec + 1; aubi_io_sync_erase#(vtblpnum0; apebs; err0); if err0 = ESUCCESS then aubi_io_write_echdr#(vtblpnum0, aechdr(wlar1[vtblpnum0].ec); apebs; err0) else debug#("ubi: erase of PEB " + vtblpnum0.toString + " failed"); vtblpnum1 := vtblpnum1 + 1}; if err0 = ESUCCESS then wlar1[vtblpnum0] := wl-entry(wlar1[vtblpnum0].ec, free) else {aubi_io_markbad#(vtblpnum0; apebs; err0); if err0 = ESUCCESS then wlar1[vtblpnum0] := wl-entry(wlar1[vtblpnum0].ec, erroneous) else debug#("ubi: marking PEB " + vtblpnum0.toString + " as bad failed")}] ∃ m, stat. m ≠ 0 ∧ m ≤ UBI_ERASE_RETRIES + 1 ∧ wlar1 = wlar[n, wl-entry(m0 + m, stat)]

Heuristic nonrecursive calls applied rule call right

And obtained the following new goals

Proof step 25:
wlar[n] = wl-entry(m0, stat0), apebs0[n] = mkpeb(aehdr0, avhdr, buf, m1, false), aehdr = aechdr(wlar[n, wlar[n].ec:= (wlar[n].ec + 1)][n].ec), apebs = apebs0[n, mkpeb(empty, empty, mkempbuf(LEB_SIZE), 0, false)], vtblpnum = n, n < # wlar[n, wlar[n].ec:= (wlar[n].ec + 1)], n < # wlar, n < # apebs0 ⊦ [if ubi-io-write-echdr-pre(vtblpnum, aehdr, apebs) then {fail_or_success#(; ; err); if err = ESUCCESS then apebs[vtblpnum].echdr := aehdr else choose aehdr with ¬ aehdr.valid? in apebs[vtblpnum].echdr := aehdr} else abort; vtblpnum1 := 1; wlar1 := wlar[n, wlar[n].ec:= (wlar[n].ec + 1)]; vtblpnum0 := n; err0 := err; while err0 ≠ ESUCCESS ∧ vtblpnum1 ≤ UBI_ERASE_RETRIES do {wlar1[vtblpnum0].ec := wlar1[vtblpnum0].ec + 1; aubi_io_sync_erase#(vtblpnum0; apebs; err0); if err0 = ESUCCESS then aubi_io_write_echdr#(vtblpnum0, aechdr(wlar1[vtblpnum0].ec); apebs; err0) else debug#("ubi: erase of PEB " + vtblpnum0.toString + " failed"); vtblpnum1 := vtblpnum1 + 1}; if err0 = ESUCCESS then wlar1[vtblpnum0] := wl-entry(wlar1[vtblpnum0].ec, free) else {aubi_io_markbad#(vtblpnum0; apebs; err0); if err0 = ESUCCESS then wlar1[vtblpnum0] := wl-entry(wlar1[vtblpnum0].ec, erroneous) else debug#("ubi: marking PEB " + vtblpnum0.toString + " as bad failed")}] ∃ m, stat. m ≠ 0 ∧ m ≤ UBI_ERASE_RETRIES + 1 ∧ wlar1 = wlar[n, wl-entry(m0 + m, stat)]

Rule argument

pos: right 1

Additional information

Used simplifier rules: aubi_io_write_echdr#(PNUM, AEHDR; APEBS; ERR) {if ubi-io-write-echdr-pre(PNUM, AEHDR, APEBS) then {fail_or_success#(; ; ERR); if ERR = ESUCCESS then APEBS[PNUM].echdr := AEHDR else choose AEHDR with ¬ AEHDR.valid? in APEBS[PNUM].echdr := AEHDR} else abort };