| # avol0 = # lpt1 + m11, avol0[m2] = mapped(buf4), avol0[m3] = mapped(buf3), avol0[0] = mapped(buf2), err = ESUCCESS, log0 = log1, lpt = lpt1, m = m4, ns = orphans0, disk-layout(mksb(adr1, m4, m2, m3, m9, m10, m11), # lpt1), ebm-vol-inv(subarray(avol0, m11, # lpt1)), ebm-vol-inv(avol0), is-encoded(mksb(adr1, m4, m2, m3, m9, m10, m11), buf2), is-encoded(lpt1, lebs(avol0, m10, lptlebs(# lpt1, LEB_SIZE))), is-encoded(log1, buf4), is-encoded-pad(orphans0, m9, buf3), mapped-full?(avol0, m10, lptlebs(# lpt1, LEB_SIZE)), m11 ≤ # avol0, avol0 ⊆ avol2, m1 ≠ LEB_SIZE → # buf4 = m1, logoff ≠ LEB_SIZE → # buf4 = logoff ⊦ ⟨avol := subarray(avol2, m11, # lpt1); adr := adr1; if err = ESUCCESS then adr0 := adr, m0 := m, log := log0, lpt0 := lpt, orphans := ns else avol := ?, adr := ?, m := ?, log0 := ?, lpt := ?, adr0 := ?, m0 := ?, log := ?, lpt0 := ?, orphans := ?, ns := ?⟩ ( m = m0 ∧ adr = adr0 ∧ avol = subarray(avol2, m11, # lpt0) ∧ log = log0 ∧ is-encoded(lpt, lebs(avol0, m10, lptlebs(# lpt0, LEB_SIZE))) ∧ orphans = ns ∧ adr1 = adr0 ∧ m4 = m0 ∧ orphans0 = ns ∧ log1 = log0 ∧ lpt1 = lpt0 ∧ ESUCCESS = err) |
# avol0 = # lpt1 + m11, avol0[0] = mapped(buf2), avol0[m3] = mapped(buf3), avol0[m2] = mapped(buf4), avol = subarray(avol2, m11, # lpt1), err = ESUCCESS, log0 = log1, lpt = lpt1, m = m4, ns = orphans0, disk-layout(mksb(adr1, m4, m2, m3, m9, m10, m11), # lpt1), ebm-vol-inv(avol0), ebm-vol-inv(subarray(avol0, m11, # lpt1)), is-encoded(log1, buf4), is-encoded(lpt1, lebs(avol0, m10, lptlebs(# lpt1, LEB_SIZE))), is-encoded(mksb(adr1, m4, m2, m3, m9, m10, m11), buf2), is-encoded-pad(orphans0, m9, buf3), mapped-full?(avol0, m10, lptlebs(# lpt1, LEB_SIZE)), m11 ≤ # avol0, m11 + # lpt1 ≤ # avol2, avol0 ⊆ avol2, logoff ≠ LEB_SIZE → # buf4 = logoff, m1 ≠ LEB_SIZE → # buf4 = m1 ⊦ ⟨adr := adr1; if err = ESUCCESS then adr0 := adr, m0 := m, log := log0, lpt0 := lpt, orphans := ns else avol := ?, adr := ?, m := ?, log0 := ?, lpt := ?, adr0 := ?, m0 := ?, log := ?, lpt0 := ?, orphans := ?, ns := ?⟩ ( m = m0 ∧ adr = adr0 ∧ avol = subarray(avol2, m11, # lpt0) ∧ log = log0 ∧ is-encoded(lpt, lebs(avol0, m10, lptlebs(# lpt0, LEB_SIZE))) ∧ orphans = ns ∧ adr1 = adr0 ∧ m4 = m0 ∧ orphans0 = ns ∧ log1 = log0 ∧ lpt1 = lpt0 ∧ ESUCCESS = err)
Used simplifier rules: ⊦ avol0 ⊆ avol1 → (n ≤ # avol1 ↔ n ≤ # avol0); (s)% ⊦ m ≤ n ↔ ¬ n < m; (ss)%c: ⊦ m + n = n + m; from specification nat-basic%f: ⊦ m < n → n ≠ 0; (forward) from specification nat-basic%lf-02: ⊦ m < n ∧ m = n0 → n0 < n; (forward) from specification nat-basic%lf-01: ⊦ m < n ∧ n = n0 → m < n0; (forward) from specification nat-basic%fle-01: ⊦ m ≤ n ∧ n < n0 → m < n0; (forward) from specification nat% ⊦ mksb(adr, m, m0, m1, m2, m3, m4).main = m4; (s)%# avol = sb.main + mainareasize ⊦ disk-layout(sb, mainareasize) → # avol ≠ 0; (s)% ⊦ m < n → ¬ n < m; (s)