| # lpt0 = # lpt, (5 + 2 * lptlebs(# lpt, LEB_SIZE)) + # lpt = # avol0, avol0[2] = mapped(buf1), avol0[4] = mapped(buf0), avol0[0] = mapped(buf2), avol1 = avol0[1, mapped(mkbuf(0))][3, mapped(buf)], m0 = LEB_SIZE, sb1 = mksb(adr, m3, 1, 3, # orphans, 5, 5 + 2 * lptlebs(# lpt, LEB_SIZE)), 3 < # avol0, 3 < # avol0[1, mapped(mkbuf(0))], 1 < # avol0, ebm-vol-inv(avol0[1, mapped(mkbuf(0))][3, mapped(buf)]), ebm-vol-inv(avol0), ebm-vol-inv(avol0[1, mapped(mkbuf(0))]), is-encoded(mksb(adr0, m2, 2, 4, m6, 5 + lptlebs(# lpt, LEB_SIZE), 5 + 2 * lptlebs(# lpt, LEB_SIZE)), buf2), is-encoded(lpt0, lebs(avol0, 5 + lptlebs(# lpt, LEB_SIZE), lptlebs(# lpt, LEB_SIZE))), is-encoded(log, buf1), is-encoded-pad(orphans, # orphans, buf), is-encoded-pad(orphans0, m6, buf0), mapped-full?(avol0, 5 + lptlebs(# lpt, LEB_SIZE), lptlebs(# lpt, LEB_SIZE)), 5 + 2 * lptlebs(# lpt, LEB_SIZE) ≤ # avol0, logoff ≠ LEB_SIZE → # buf1 = logoff, err = ESUCCESS → is-encoded(lpt, buf3) ∧ # buf3 = lptsize(# lpt, LEB_SIZE), err = ESUCCESS ∨ ⌊err⌋ ⊦ ⟪if err = ESUCCESS then persistence_io_write_lebs#(sb1.lpt, lptlebs(# lpt, m0), buf3, m0; avol1; err); if err = ESUCCESS then ebm_avol_sync_device#(avol1; ; err); if err = ESUCCESS then persistence_io_write_superblock#(sb1, EB_PAGE_SIZE, m0; avol1; err); sb0 := mksb(adr0, m2, 2, 4, m6, 5 + lptlebs(# lpt, LEB_SIZE), 5 + 2 * lptlebs(# lpt, LEB_SIZE)); if err = ESUCCESS then {sb0 := sb1; logoff := 0}⟫ ( (∃ lpt1, log, orphans. disk-layout(sb0, # lpt1) ∧ sb0.main + # lpt1 = # avol1 ∧ avol1[0].mapped? ∧ is-encoded(sb0, avol1[0].data) ∧ avol1[sb0.orph].mapped? ∧ is-encoded-pad(orphans, sb0.orphsize, avol1[sb0.orph].data) ∧ avol1[sb0.log].mapped? ∧ (logoff ≠ LEB_SIZE → # avol1[sb0.log].data = logoff) ∧ is-encoded(log, avol1[sb0.log].data) ∧ mapped-full?(avol1, sb0.lpt, lptlebs(# lpt1, LEB_SIZE)) ∧ is-encoded(lpt1, lebs(avol1, sb0.lpt, lptlebs(# lpt1, LEB_SIZE)))) ∧ ebm-vol-inv(avol1) ∧ (err = ESUCCESS ∨ ⌊err⌋ ) ∧ ( err = ESUCCESS → sb0.indexaddr = adr ∧ sb0.maxino = m3 ∧ avol1[sb0.log].data = mkbuf(0) ∧ is-encoded(lpt, lebs(avol1, sb0.lpt, lptlebs(# avol1 - sb0.main, LEB_SIZE))) ∧ is-encoded-pad(orphans, sb0.orphsize, avol1[sb0.orph].data)) ∧ ( err ≠ ESUCCESS → sb0 = mksb(adr0, m2, 2, 4, m6, 5 + lptlebs(# lpt, LEB_SIZE), sb0.main) ∧ avol1[2] = avol0[2] ∧ avol1[4] = avol0[4] ∧ lebs(avol1, 5 + lptlebs(# lpt, LEB_SIZE), lptlebs(# avol1 - sb0.main, LEB_SIZE)) = lebs(avol0, 5 + lptlebs(# lpt, LEB_SIZE), lptlebs(# avol1 - sb0.main, LEB_SIZE))) ∧ sb0.main = 5 + 2 * lptlebs(# lpt, LEB_SIZE) ∧ # avol1 = # avol0 ∧ subarray(avol1, sb0.main, # avol1 - sb0.main) = subarray(avol0, sb0.main, # avol1 - sb0.main)) |
# lpt0 = # lpt, (5 + 2 * lptlebs(# lpt, LEB_SIZE)) + # lpt = # avol0, avol0[0] = mapped(buf2), avol0[4] = mapped(buf0), avol0[2] = mapped(buf1), avol1 = avol0[1, mapped(mkbuf(0))][3, mapped(buf)], err = ESUCCESS, m0 = LEB_SIZE, sb1 = mksb(adr, m3, 1, 3, # orphans, 5, 5 + 2 * lptlebs(# lpt, LEB_SIZE)), 1 < # avol0, 3 < # avol0[1, mapped(mkbuf(0))], 3 < # avol0, ebm-vol-inv(avol0[1, mapped(mkbuf(0))]), ebm-vol-inv(avol0), ebm-vol-inv(avol0[1, mapped(mkbuf(0))][3, mapped(buf)]), is-encoded(log, buf1), is-encoded(lpt0, lebs(avol0, 5 + lptlebs(# lpt, LEB_SIZE), lptlebs(# lpt, LEB_SIZE))), is-encoded(mksb(adr0, m2, 2, 4, m6, 5 + lptlebs(# lpt, LEB_SIZE), 5 + 2 * lptlebs(# lpt, LEB_SIZE)), buf2), is-encoded-pad(orphans0, m6, buf0), is-encoded-pad(orphans, # orphans, buf), mapped-full?(avol0, 5 + lptlebs(# lpt, LEB_SIZE), lptlebs(# lpt, LEB_SIZE)), 5 + 2 * lptlebs(# lpt, LEB_SIZE) ≤ # avol0, err = ESUCCESS → is-encoded(lpt, buf3) ∧ # buf3 = lptsize(# lpt, LEB_SIZE), logoff ≠ LEB_SIZE → # buf1 = logoff, err = ESUCCESS ∨ ⌊err⌋ ⊦ ⟪persistence_io_write_lebs#(sb1.lpt, lptlebs(# lpt, m0), buf3, m0; avol1; err); if err = ESUCCESS then ebm_avol_sync_device#(avol1; ; err); if err = ESUCCESS then persistence_io_write_superblock#(sb1, EB_PAGE_SIZE, m0; avol1; err); sb0 := mksb(adr0, m2, 2, 4, m6, 5 + lptlebs(# lpt, LEB_SIZE), 5 + 2 * lptlebs(# lpt, LEB_SIZE)); if err = ESUCCESS then {sb0 := sb1; logoff := 0}⟫ ( (∃ lpt1, log, orphans. disk-layout(sb0, # lpt1) ∧ sb0.main + # lpt1 = # avol1 ∧ avol1[0].mapped? ∧ is-encoded(sb0, avol1[0].data) ∧ avol1[sb0.orph].mapped? ∧ is-encoded-pad(orphans, sb0.orphsize, avol1[sb0.orph].data) ∧ avol1[sb0.log].mapped? ∧ (logoff ≠ LEB_SIZE → # avol1[sb0.log].data = logoff) ∧ is-encoded(log, avol1[sb0.log].data) ∧ mapped-full?(avol1, sb0.lpt, lptlebs(# lpt1, LEB_SIZE)) ∧ is-encoded(lpt1, lebs(avol1, sb0.lpt, lptlebs(# lpt1, LEB_SIZE)))) ∧ ebm-vol-inv(avol1) ∧ (err = ESUCCESS ∨ ⌊err⌋ ) ∧ ( err = ESUCCESS → sb0.indexaddr = adr ∧ sb0.maxino = m3 ∧ avol1[sb0.log].data = mkbuf(0) ∧ is-encoded(lpt, lebs(avol1, sb0.lpt, lptlebs(# avol1 - sb0.main, LEB_SIZE))) ∧ is-encoded-pad(orphans, sb0.orphsize, avol1[sb0.orph].data)) ∧ ( err ≠ ESUCCESS → sb0 = mksb(adr0, m2, 2, 4, m6, 5 + lptlebs(# lpt, LEB_SIZE), sb0.main) ∧ avol1[2] = avol0[2] ∧ avol1[4] = avol0[4] ∧ lebs(avol1, 5 + lptlebs(# lpt, LEB_SIZE), lptlebs(# avol1 - sb0.main, LEB_SIZE)) = lebs(avol0, 5 + lptlebs(# lpt, LEB_SIZE), lptlebs(# avol1 - sb0.main, LEB_SIZE))) ∧ sb0.main = 5 + 2 * lptlebs(# lpt, LEB_SIZE) ∧ # avol1 = # avol0 ∧ subarray(avol1, sb0.main, # avol1 - sb0.main) = subarray(avol0, sb0.main, # avol1 - sb0.main))
# lpt0 = # lpt, (5 + 2 * lptlebs(# lpt, LEB_SIZE)) + # lpt = # avol0, avol0[0] = mapped(buf2), avol0[4] = mapped(buf0), avol0[2] = mapped(buf1), avol1 = avol0[1, mapped(mkbuf(0))][3, mapped(buf)], m0 = LEB_SIZE, sb1 = mksb(adr, m3, 1, 3, # orphans, 5, 5 + 2 * lptlebs(# lpt, LEB_SIZE)), 1 < # avol0, 3 < # avol0[1, mapped(mkbuf(0))], 3 < # avol0, ebm-vol-inv(avol0[1, mapped(mkbuf(0))]), ebm-vol-inv(avol0), ebm-vol-inv(avol0[1, mapped(mkbuf(0))][3, mapped(buf)]), is-encoded(log, buf1), is-encoded(lpt0, lebs(avol0, 5 + lptlebs(# lpt, LEB_SIZE), lptlebs(# lpt, LEB_SIZE))), is-encoded(mksb(adr0, m2, 2, 4, m6, 5 + lptlebs(# lpt, LEB_SIZE), 5 + 2 * lptlebs(# lpt, LEB_SIZE)), buf2), is-encoded-pad(orphans0, m6, buf0), is-encoded-pad(orphans, # orphans, buf), mapped-full?(avol0, 5 + lptlebs(# lpt, LEB_SIZE), lptlebs(# lpt, LEB_SIZE)), 5 + 2 * lptlebs(# lpt, LEB_SIZE) ≤ # avol0, err = ESUCCESS → is-encoded(lpt, buf3) ∧ # buf3 = lptsize(# lpt, LEB_SIZE), logoff ≠ LEB_SIZE → # buf1 = logoff, err = ESUCCESS ∨ ⌊err⌋ ⊦ ⟪skip; if err = ESUCCESS then ebm_avol_sync_device#(avol1; ; err); if err = ESUCCESS then persistence_io_write_superblock#(sb1, EB_PAGE_SIZE, m0; avol1; err); sb0 := mksb(adr0, m2, 2, 4, m6, 5 + lptlebs(# lpt, LEB_SIZE), 5 + 2 * lptlebs(# lpt, LEB_SIZE)); if err = ESUCCESS then {sb0 := sb1; logoff := 0}⟫ ( (∃ lpt1, log, orphans. disk-layout(sb0, # lpt1) ∧ sb0.main + # lpt1 = # avol1 ∧ avol1[0].mapped? ∧ is-encoded(sb0, avol1[0].data) ∧ avol1[sb0.orph].mapped? ∧ is-encoded-pad(orphans, sb0.orphsize, avol1[sb0.orph].data) ∧ avol1[sb0.log].mapped? ∧ (logoff ≠ LEB_SIZE → # avol1[sb0.log].data = logoff) ∧ is-encoded(log, avol1[sb0.log].data) ∧ mapped-full?(avol1, sb0.lpt, lptlebs(# lpt1, LEB_SIZE)) ∧ is-encoded(lpt1, lebs(avol1, sb0.lpt, lptlebs(# lpt1, LEB_SIZE)))) ∧ ebm-vol-inv(avol1) ∧ (err = ESUCCESS ∨ ⌊err⌋ ) ∧ ( err = ESUCCESS → sb0.indexaddr = adr ∧ sb0.maxino = m3 ∧ avol1[sb0.log].data = mkbuf(0) ∧ is-encoded(lpt, lebs(avol1, sb0.lpt, lptlebs(# avol1 - sb0.main, LEB_SIZE))) ∧ is-encoded-pad(orphans, sb0.orphsize, avol1[sb0.orph].data)) ∧ ( err ≠ ESUCCESS → sb0 = mksb(adr0, m2, 2, 4, m6, 5 + lptlebs(# lpt, LEB_SIZE), sb0.main) ∧ avol1[2] = avol0[2] ∧ avol1[4] = avol0[4] ∧ lebs(avol1, 5 + lptlebs(# lpt, LEB_SIZE), lptlebs(# avol1 - sb0.main, LEB_SIZE)) = lebs(avol0, 5 + lptlebs(# lpt, LEB_SIZE), lptlebs(# avol1 - sb0.main, LEB_SIZE))) ∧ sb0.main = 5 + 2 * lptlebs(# lpt, LEB_SIZE) ∧ # avol1 = # avol0 ∧ subarray(avol1, sb0.main, # avol1 - sb0.main) = subarray(avol0, sb0.main, # avol1 - sb0.main)), err = ESUCCESS