| # lpt0 = # avol, # lpt = # avol, # gndx = # lax, LEB_SIZE = n0 + # buf1, avol[m5] = mapped(buf1), err = ESUCCESS, m = 2 * NODE_HEADER_SIZE + align↑(ndhd.size, 2 * NODE_HEADER_SIZE), m0 = m1, m2 = LEB_SIZE, avol[m5].mapped?, m1 < LEB_SIZE, m5 < # avol, abs-nodes(buf1, gndx, lax, true), awbuf-inv(avol, bleb), buf-ro-rw-mode(isbuf, bleb, lpt0, avol), bufs-log-only(bleb, log0, lpt0), lpt-free-unref(lpt), lpt-leb-size(lpt), lpt-ram-flash(lpt0, lpt, log0), read-gblock-inv(m5, m1, ax, gndx0, ax1, gndx2, buf1, false), # buf1 ≤ LEB_SIZE, m1 + NODE_HEADER_SIZE ≤ LEB_SIZE, 0 + LEB_SIZE ≤ # mkbuf(LEB_SIZE), 0 + LEB_SIZE ≤ #(avol[m5].data + mkempbuf(n0)), err = ESUCCESS → is-encoded(ndhd, subarray(buf1 + mkempbuf(n0), m1, NODE_HEADER_SIZE)), err = ESUCCESS ∨ ⌊err⌋ ⊦ ⟪debug#("persistence: read_gblock_nodes partial node at offset " + m0.toString + " in LEB " + m5.toString); err := ENOENT; if err = ESUCCESS then m0 := m0 + m⟫ ( (err = ESUCCESS ∨ err = ENOENT ∨ ⌊err⌋ ) ∧ (err = ESUCCESS ∨ err = ENOENT → read-gblock-inv(m5, m0, ax, gndx0, ax1, gndx2, avol[m5].data, err = ENOENT)) ∧ (err ≠ ESUCCESS ⊃ 0;m2 - m0) < m2 - m1), m2 < m0 + m, isempty(buf1 + mkempbuf(n0), m1, NODE_HEADER_SIZE), range= (copy(avol[m5].data + mkempbuf(n0), 0, mkbuf(LEB_SIZE), 0, LEB_SIZE), m0 + NODE_HEADER_SIZE + align↑(ndhd.size, 2 * NODE_HEADER_SIZE), validtrailer, 0, NODE_HEADER_SIZE) |
# gndx = # lax, # lpt = # avol, # lpt0 = # avol, LEB_SIZE = n0 + # buf1, avol[m5] = mapped(buf1), m1 < LEB_SIZE, m5 < # avol, abs-nodes(buf1, gndx, lax, true), awbuf-inv(avol, bleb), buf-ro-rw-mode(isbuf, bleb, lpt0, avol), bufs-log-only(bleb, log0, lpt0), is-encoded(ndhd, subarray(buf1 + mkempbuf(n0), m1, NODE_HEADER_SIZE)), lpt-free-unref(lpt), lpt-leb-size(lpt), lpt-ram-flash(lpt0, lpt, log0), read-gblock-inv(m5, m1, ax, gndx0, ax1, gndx2, buf1, false), m1 + NODE_HEADER_SIZE ≤ LEB_SIZE, # buf1 ≤ LEB_SIZE, m1 + 2 * NODE_HEADER_SIZE + align↑(ndhd.size, 2 * NODE_HEADER_SIZE) ≤ LEB_SIZE, ¬ isempty(buf1 + mkempbuf(n0), m1, NODE_HEADER_SIZE), ¬ range=(buf1 + mkempbuf(n0), m1 + NODE_HEADER_SIZE + align↑(ndhd.size, 2 * NODE_HEADER_SIZE), validtrailer, 0, NODE_HEADER_SIZE) ⊦ ⟪debug#("persistence: read_gblock_nodes partial node at offset " + m1.toString + " in LEB " + m5.toString); err := ENOENT; m0 := m1; if err = ESUCCESS then m0 := m0 + 2 * NODE_HEADER_SIZE + align↑(ndhd.size, 2 * NODE_HEADER_SIZE)⟫ ( (err = ESUCCESS ∨ err = ENOENT ∨ ⌊err⌋ ) ∧ (err = ESUCCESS ∨ err = ENOENT → read-gblock-inv(m5, m0, ax, gndx0, ax1, gndx2, avol[m5].data, err = ENOENT)) ∧ (err ≠ ESUCCESS ⊃ 0;LEB_SIZE - m0) + m1 < LEB_SIZE)
Used simplifier rules: elim-mapped: ⊦ avol[n].mapped? ↔ (∃ buf. avol[n] = mapped(buf));%# buf = m, # buf0 = m ⊦ copy(buf, 0, buf0, 0, m) = buf; (s)% ⊦ m ≤ m + n; (s)% ⊦ mapped(buf).data = buf; (s)% ⊦ mapped(buf) = mapped(buf0) ↔ buf = buf0; (s)% ⊦ # subarray(buf, m, n) = n; (s)%fle: ⊦ m < n ∧ n ≤ n0 → m < n0; (forward) from specification nat%lf-01: ⊦ m < n ∧ n = n0 → m < n0; (forward) from specification nat-basic%let: ⊦ n ≤ n0 ∧ n0 ≤ n1 → n ≤ n1; (forward) from specification nat%lfw-is-encoded-nodeheader-size: ⊦ is-encoded(ndhd, buf) → # buf = NODE_HEADER_SIZE; (forward) from specification abs-node[encoding-index-node]%n0 ≤ n ⊦ m < n - n0 ↔ m + n0 < n; (s)% ⊦ m < n → m ≤ n; (s)% ⊦ m < n ↔ ¬ n ≤ m; (ss)% ⊦ m ≤ m; (s)% ⊦ # mkbuf(n) = n; (s)%append-a: ⊦ (buf + buf0) + buf1 = buf + buf0 + buf1; from specification array-splice[buffer]% ⊦ # mkempbuf(n) = n; (s)% ⊦ #(buf + buf0) = # buf + # buf0; (s)%c: ⊦ m + n = n + m; from specification nat-basic%a: ⊦ (m + n0) + n1 = m + n0 + n1; from specification nat-basic% ⊦ n + 0 = n; (s)