| # buf = lptsize(# lpt, LEB_SIZE), # buf = lptlebs(# lpt, LEB_SIZE) * LEB_SIZE, avol = fill(mkavolume(# lpt + 5 + 2 * lptlebs(# lpt, LEB_SIZE)), unmapped)[1, mapped(mkbuf(0))][3, mapped(mkbuf(0))], ebm-vol-inv(fill(mkavolume(# lpt + 5 + 2 * lptlebs(# lpt, LEB_SIZE)), unmapped)[1, mapped(mkbuf(0))]), ebm-vol-inv(fill(mkavolume(# lpt + 5 + 2 * lptlebs(# lpt, LEB_SIZE)), unmapped)), ebm-vol-inv(fill(mkavolume(# lpt + 5 + 2 * lptlebs(# lpt, LEB_SIZE)), unmapped)[1, mapped(mkbuf(0))][3, mapped(mkbuf(0))]), is-encoded(lpt, buf) ⊦ [persistence_io_write_lebs#(5, lptlebs(# lpt, LEB_SIZE), buf, LEB_SIZE; avol; err)] ( (err = ESUCCESS ∨ ⌊err⌋ ) ∧ # avol = # lpt + 5 + 2 * lptlebs(# lpt, LEB_SIZE) ∧ ebm-vol-inv(avol) ∧ avol[0] = fill(mkavolume(# lpt + 5 + 2 * lptlebs(# lpt, LEB_SIZE)), unmapped)[0] ∧ avol[1] = mapped(mkbuf(0)) ∧ avol[2] = fill(mkavolume(# lpt + 5 + 2 * lptlebs(# lpt, LEB_SIZE)), unmapped)[2] ∧ avol[3] = mapped(mkbuf(0)) ∧ avol[4] = fill(mkavolume(# lpt + 5 + 2 * lptlebs(# lpt, LEB_SIZE)), unmapped)[4] ∧ 5 ≤ # avol ∧ range= (avol, 5 + lptlebs(# lpt, LEB_SIZE), fill(mkavolume(# lpt + 5 + 2 * lptlebs(# lpt, LEB_SIZE)), unmapped), 5 + lptlebs(# lpt, LEB_SIZE), # avol - 5 + lptlebs(# lpt, LEB_SIZE)) ∧ (err = ESUCCESS → lebs(avol, 5, lptlebs(# lpt, LEB_SIZE)) = buf ∧ mapped-full?(avol, 5, lptlebs(# lpt, LEB_SIZE))) → ⟪m0 := EB_PAGE_SIZE; sb := ((((((sb0.indexaddr:= adr).maxino:= m1).log:= 1).orph:= 3).orphsize:= 0).lpt:= 5).main:= (5 + 2 * lptlebs(# lpt, LEB_SIZE)); m := LEB_SIZE; if err = ESUCCESS then persistence_io_write_superblock#(sb, m0, m; avol; err); logoff := m⟫ ( ( err = ESUCCESS → (∃ lpt0, log, orphans. disk-layout(sb, # lpt0) ∧ sb.main + # lpt0 = # avol ∧ avol[0].mapped? ∧ is-encoded(sb, avol[0].data) ∧ avol[sb.orph].mapped? ∧ is-encoded-pad(orphans, sb.orphsize, avol[sb.orph].data) ∧ avol[sb.log].mapped? ∧ (logoff ≠ LEB_SIZE → # avol[sb.log].data = logoff) ∧ is-encoded(log, avol[sb.log].data) ∧ mapped-full?(avol, sb.lpt, lptlebs(# lpt0, LEB_SIZE)) ∧ is-encoded(lpt0, lebs(avol, sb.lpt, lptlebs(# lpt0, LEB_SIZE)))) ∧ m0 = EB_PAGE_SIZE ∧ m = LEB_SIZE ∧ ebm-vol-inv(avol)) ∧ (err = ESUCCESS ∨ ⌊err⌋ ) ∧ ( err = ESUCCESS → sb.indexaddr = adr ∧ sb.maxino = m1 ∧ subarray(avol, sb.main, # avol - sb.main) = fill(mkavolume(# lpt), unmapped) ∧ is-encoded(lpt, lebs(avol, sb.lpt, lptlebs(# avol - sb.main, LEB_SIZE))) ∧ avol[sb.log].data = mkbuf(0) ∧ avol[sb.orph].data = mkbuf(0)))) |
# buf = lptlebs(# lpt, LEB_SIZE) * LEB_SIZE, # buf = lptsize(# lpt, LEB_SIZE), avol = fill(mkavolume(# lpt + 5 + 2 * lptlebs(# lpt, LEB_SIZE)), unmapped)[1, mapped(mkbuf(0))][3, mapped(mkbuf(0))], ebm-vol-inv(fill(mkavolume(# lpt + 5 + 2 * lptlebs(# lpt, LEB_SIZE)), unmapped)[1, mapped(mkbuf(0))][3, mapped(mkbuf(0))]), ebm-vol-inv(fill(mkavolume(# lpt + 5 + 2 * lptlebs(# lpt, LEB_SIZE)), unmapped)), ebm-vol-inv(fill(mkavolume(# lpt + 5 + 2 * lptlebs(# lpt, LEB_SIZE)), unmapped)[1, mapped(mkbuf(0))]), is-encoded(lpt, buf) ⊦ ∀ avol, err. (err = ESUCCESS ∨ ⌊err⌋ ) ∧ # avol = # lpt + 5 + 2 * lptlebs(# lpt, LEB_SIZE) ∧ ebm-vol-inv(avol) ∧ avol[0] = fill(mkavolume(# lpt + 5 + 2 * lptlebs(# lpt, LEB_SIZE)), unmapped)[0] ∧ avol[1] = mapped(mkbuf(0)) ∧ avol[2] = fill(mkavolume(# lpt + 5 + 2 * lptlebs(# lpt, LEB_SIZE)), unmapped)[2] ∧ avol[3] = mapped(mkbuf(0)) ∧ avol[4] = fill(mkavolume(# lpt + 5 + 2 * lptlebs(# lpt, LEB_SIZE)), unmapped)[4] ∧ 5 ≤ # avol ∧ range= (avol, 5 + lptlebs(# lpt, LEB_SIZE), fill(mkavolume(# lpt + 5 + 2 * lptlebs(# lpt, LEB_SIZE)), unmapped), 5 + lptlebs(# lpt, LEB_SIZE), # avol - 5 + lptlebs(# lpt, LEB_SIZE)) ∧ (err = ESUCCESS → lebs(avol, 5, lptlebs(# lpt, LEB_SIZE)) = buf ∧ mapped-full?(avol, 5, lptlebs(# lpt, LEB_SIZE))) → ⟪m0 := EB_PAGE_SIZE; sb := ((((((sb0.indexaddr:= adr).maxino:= m1).log:= 1).orph:= 3).orphsize:= 0).lpt:= 5).main:= (5 + 2 * lptlebs(# lpt, LEB_SIZE)); m := LEB_SIZE; if err = ESUCCESS then persistence_io_write_superblock#(sb, m0, m; avol; err); logoff := m⟫ ( ( err = ESUCCESS → (∃ lpt0, log, orphans. disk-layout(sb, # lpt0) ∧ sb.main + # lpt0 = # avol ∧ avol[0].mapped? ∧ is-encoded(sb, avol[0].data) ∧ avol[sb.orph].mapped? ∧ is-encoded-pad(orphans, sb.orphsize, avol[sb.orph].data) ∧ avol[sb.log].mapped? ∧ (logoff ≠ LEB_SIZE → # avol[sb.log].data = logoff) ∧ is-encoded(log, avol[sb.log].data) ∧ mapped-full?(avol, sb.lpt, lptlebs(# lpt0, LEB_SIZE)) ∧ is-encoded(lpt0, lebs(avol, sb.lpt, lptlebs(# lpt0, LEB_SIZE)))) ∧ m0 = EB_PAGE_SIZE ∧ m = LEB_SIZE ∧ ebm-vol-inv(avol)) ∧ (err = ESUCCESS ∨ ⌊err⌋ ) ∧ ( err = ESUCCESS → sb.indexaddr = adr ∧ sb.maxino = m1 ∧ subarray(avol, sb.main, # avol - sb.main) = fill(mkavolume(# lpt), unmapped) ∧ is-encoded(lpt, lebs(avol, sb.lpt, lptlebs(# avol - sb.main, LEB_SIZE))) ∧ avol[sb.log].data = mkbuf(0) ∧ avol[sb.orph].data = mkbuf(0)))