| m8 + # lpt0 = # avol1, avol1[0] = mapped(buf), avol1[m5] = mapped(buf0), avol1[m10] = mapped(buf1), avol = avol2, avol0 = avol2, avol3 = avol2, avol4 = avol2, sb1 = mksb(adr0, m9, m10, m5, m6, m7, m8), avol2[0].mapped?, disk-layout(mksb(adr0, m9, m10, m5, m6, m7, m8), # lpt0), ebm-vol-inv(avol1), ebm-vol-inv(avol2), is-encoded(log0, buf1), is-encoded(lpt0, lebs(avol1, m7, lptlebs(# lpt0, LEB_SIZE))), is-encoded(mksb(adr0, m9, m10, m5, m6, m7, m8), buf), is-encoded(mksb(adr0, m9, m10, m5, m6, m7, m8), avol2[0].data), is-encoded-pad(orphans0, m6, buf0), mapped-full?(avol1, m7, lptlebs(# lpt0, LEB_SIZE)), m8 ≤ # avol1, avol1 ⊆ avol2, m3 ≠ LEB_SIZE → # buf1 = m3 ⊦ [persistence_io_read_superblock#(EB_PAGE_SIZE, LEB_SIZE, avol2; sb; err0)] ( (err0 = ESUCCESS ∨ ⌊err0⌋ ) ∧ (err0 = ESUCCESS → sb = sb1) → ⟪if err0 ≠ ESUCCESS then debug#("persistence-io: reading superblock failed"); m0 := LEB_SIZE; m1 := EB_PAGE_SIZE; if err0 = ESUCCESS then {persistence_io_read_log#(sb, m1, m0, avol2; logoff; log, err0); if err0 ≠ ESUCCESS then debug#("persistence-io: reading log failed")}; if err0 = ESUCCESS then {persistence_io_read_orphans#(sb, avol2; orphans; err0); if err0 ≠ ESUCCESS then debug#("persistence-io: reading orphans failed")}; if err0 = ESUCCESS then {m := # avol - sb.main; let buf = ? in {persistence_io_read_lebs#(sb.lpt, lptlebs(m, m0), m0, avol2; ; buf, err0); if err0 = ESUCCESS then {lpt := mklparray(m); lpt := fill(lpt, mklp(0, 0, LP_FREE, 0)); persistence_io_decode_lpt#(buf; lpt, err0)}; if err0 ≠ ESUCCESS then debug#("persistence-io: reading LPT failed")}}; if err0 = ESUCCESS then {logoff := m0; adr := sb.indexaddr; m2 := sb.maxino}⟫ ( ( err0 = ESUCCESS → (∃ lpt1, log1, orphans1. disk-layout(sb, # lpt1) ∧ sb.main + # lpt1 = # avol1 ∧ is-encoded(sb, buf) ∧ avol2[sb.orph].mapped? ∧ is-encoded-pad(orphans1, sb.orphsize, avol2[sb.orph].data) ∧ avol2[sb.log].mapped? ∧ (logoff ≠ LEB_SIZE → # avol2[sb.log].data = logoff) ∧ is-encoded(log1, avol2[sb.log].data) ∧ mapped-full?(avol2, sb.lpt, lptlebs(# lpt1, LEB_SIZE)) ∧ is-encoded(lpt1, lebs(avol2, sb.lpt, lptlebs(# lpt1, LEB_SIZE)))) ∧ m1 = EB_PAGE_SIZE ∧ m0 = LEB_SIZE) ∧ (err0 = ESUCCESS ∨ ⌊err0⌋ ) ∧ ( err0 = ESUCCESS → sb = mksb(adr0, m9, m10, m5, m6, m7, m8) ∧ adr = adr0 ∧ m2 = m9 ∧ # lpt = # lpt0 ∧ is-encoded(lpt, lebs(avol2, m7, lptlebs(# lpt, LEB_SIZE))) ∧ lebs(avol2, m7, lptlebs(# lpt, LEB_SIZE)) = lebs(avol1, m7, lptlebs(# lpt, LEB_SIZE)) ∧ log0 = log ∧ orphans0 = orphans))), # avol2 = 0 |
m8 + # lpt0 = # avol1, avol1[m10] = mapped(buf1), avol1[m5] = mapped(buf0), avol1[0] = mapped(buf), disk-layout(mksb(adr0, m9, m10, m5, m6, m7, m8), # lpt0), ebm-vol-inv(avol1), is-encoded(lpt0, lebs(avol1, m7, lptlebs(# lpt0, LEB_SIZE))), is-encoded(log0, buf1), is-encoded(mksb(adr0, m9, m10, m5, m6, m7, m8), buf), is-encoded-pad(orphans0, m6, buf0), mapped-full?(avol1, m7, lptlebs(# lpt0, LEB_SIZE)), m8 ≤ # avol1, avol1 ⊆ avol2, m3 ≠ LEB_SIZE → # buf1 = m3 ⊦ [persistence_io_read_superblock#(EB_PAGE_SIZE, LEB_SIZE, avol2; sb; err0)] ( (err0 = ESUCCESS ∨ ⌊err0⌋ ) ∧ (err0 = ESUCCESS → sb = mksb(adr0, m9, m10, m5, m6, m7, m8)) → ⟪if err0 ≠ ESUCCESS then debug#("persistence-io: reading superblock failed"); m0 := LEB_SIZE; m1 := EB_PAGE_SIZE; if err0 = ESUCCESS then {persistence_io_read_log#(sb, m1, m0, avol2; logoff; log, err0); if err0 ≠ ESUCCESS then debug#("persistence-io: reading log failed")}; if err0 = ESUCCESS then {persistence_io_read_orphans#(sb, avol2; orphans; err0); if err0 ≠ ESUCCESS then debug#("persistence-io: reading orphans failed")}; if err0 = ESUCCESS then {m := # avol2 - sb.main; let buf = ? in {persistence_io_read_lebs#(sb.lpt, lptlebs(m, m0), m0, avol2; ; buf, err0); if err0 = ESUCCESS then {lpt := mklparray(m); lpt := fill(lpt, mklp(0, 0, LP_FREE, 0)); persistence_io_decode_lpt#(buf; lpt, err0)}; if err0 ≠ ESUCCESS then debug#("persistence-io: reading LPT failed")}}; if err0 = ESUCCESS then {logoff := m0; adr := sb.indexaddr; m2 := sb.maxino}⟫ ( ( err0 = ESUCCESS → (∃ lpt1, log1, orphans1. disk-layout(sb, # lpt1) ∧ sb.main + # lpt1 = # avol1 ∧ is-encoded(sb, buf) ∧ avol2[sb.orph].mapped? ∧ is-encoded-pad(orphans1, sb.orphsize, avol2[sb.orph].data) ∧ avol2[sb.log].mapped? ∧ (logoff ≠ LEB_SIZE → # avol2[sb.log].data = logoff) ∧ is-encoded(log1, avol2[sb.log].data) ∧ mapped-full?(avol2, sb.lpt, lptlebs(# lpt1, LEB_SIZE)) ∧ is-encoded(lpt1, lebs(avol2, sb.lpt, lptlebs(# lpt1, LEB_SIZE)))) ∧ m1 = EB_PAGE_SIZE ∧ m0 = LEB_SIZE) ∧ (err0 = ESUCCESS ∨ ⌊err0⌋ ) ∧ ( err0 = ESUCCESS → sb = mksb(adr0, m9, m10, m5, m6, m7, m8) ∧ adr = adr0 ∧ m2 = m9 ∧ # lpt = # lpt0 ∧ is-encoded(lpt, lebs(avol2, m7, lptlebs(# lpt, LEB_SIZE))) ∧ lebs(avol2, m7, lptlebs(# lpt, LEB_SIZE)) = lebs(avol1, m7, lptlebs(# lpt, LEB_SIZE)) ∧ log0 = log ∧ orphans0 = orphans)))
Used simplifier rules: avol-down-size: ⊦ m = # avol0 ∧ avol0 ⊆ avol1 → (n = # avol1 ↔ n = m);%avol-down-mapped-eq: n < # avol0 ⊦ avol0 ⊆ avol1 ∧ avol0[n] = mapped(buf) ∧ ebm-vol-inv(avol0) → avol1[n] = mapped(buf);% ⊦ mapped(buf).mapped?; (s)% ⊦ avol1 ⊆ avol0 ∧ ebm-vol-inv(avol1) → ebm-vol-inv(avol0); (s)% ⊦ mapped(buf).data = buf; (s)% ⊦ 0 < m ↔ m ≠ 0; (s)%# avol = sb.main + mainareasize ⊦ disk-layout(sb, mainareasize) → # avol ≠ 0; (s)% ⊦ mksb(adr, m, m0, m1, m2, m3, m4).main = m4; (s)