| m6 + # lpt = # avol, avol[0] = mapped(buf1), avol[m3] = mapped(buf2), avol[m2] = mapped(buf3), avol[m6 + m8] = mapped(buf4), m8 < # lpt, disk-layout(mksb(adr, m1, m2, m3, m4, m5, m6), # lpt), ebm-vol-inv(avol), is-encoded(log, buf3), is-encoded(lpt, lebs(avol, m5, lptlebs(# lpt, LEB_SIZE))), is-encoded(mksb(adr, m1, m2, m3, m4, m5, m6), buf1), is-encoded-pad(orphans, m4, buf2), mapped-full?(avol, m5, lptlebs(# lpt, LEB_SIZE)), n2 + n1 ≤ # buf, m7 + n1 ≤ LEB_SIZE, logoff ≠ LEB_SIZE → # buf3 = logoff ⊦ ⟪fail_or_success#(; ; err); if err = ESUCCESS then buf := copy(avol[m6 + m8].data + mkempbuf(LEB_SIZE - # avol[m6 + m8].data), m7, buf, n2, n1) else choose buf1 with # buf1 = # buf ∧ range=(buf, 0, buf1, 0, n2) ∧ range=(buf, n2 + n1, buf1, n2 + n1, # buf - n2 + n1) in buf := buf1⟫ true |
m6 + # lpt = # avol, avol[m6 + m8] = mapped(buf4), avol[m2] = mapped(buf3), avol[m3] = mapped(buf2), avol[0] = mapped(buf1), m8 < # lpt, disk-layout(mksb(adr, m1, m2, m3, m4, m5, m6), # lpt), ebm-vol-inv(avol), is-encoded(mksb(adr, m1, m2, m3, m4, m5, m6), buf1), is-encoded(lpt, lebs(avol, m5, lptlebs(# lpt, LEB_SIZE))), is-encoded(log, buf3), is-encoded-pad(orphans, m4, buf2), mapped-full?(avol, m5, lptlebs(# lpt, LEB_SIZE)), m7 + n1 ≤ LEB_SIZE, n2 + n1 ≤ # buf, logoff ≠ LEB_SIZE → # buf3 = logoff ⊦ ⟪choose err0 with ⌊err0⌋ ∨ err0 = ESUCCESS in err := err0; if err = ESUCCESS then buf := copy(avol[m6 + m8].data + mkempbuf(LEB_SIZE - # avol[m6 + m8].data), m7, buf, n2, n1) else choose buf1 with # buf1 = # buf ∧ range=(buf, 0, buf1, 0, n2) ∧ range=(buf, n2 + n1, buf1, n2 + n1, # buf - n2 + n1) in buf := buf1⟫ true
Used simplifier rules: fail_or_success#(; ; ERR) {choose ERR0 with ⌊ERR0⌋ ∨ ERR0 = ESUCCESS in ERR := ERR0};