| # gndx = # lax, # lpt = # avol, # lpt0 = # avol, LEB_SIZE = n0 + # buf1, avol[m5] = mapped(buf1), m5 < # avol, m1 < LEB_SIZE, 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(nodeheader(m2, false), subarray(buf1 + mkempbuf(n0), m1, NODE_HEADER_SIZE)), lpt-free-unref(lpt), lpt-leb-size(lpt), lpt-ram-flash(lpt0, lpt, log0), range=(buf1 + mkempbuf(n0), m1 + NODE_HEADER_SIZE + align↑(m2, 2 * NODE_HEADER_SIZE), validtrailer, 0, NODE_HEADER_SIZE), 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↑(m2, 2 * NODE_HEADER_SIZE) ≤ LEB_SIZE ⊦ ∀ gnd, err. (err = ESUCCESS ∨ ⌊err⌋ ) ∧ ( err = ESUCCESS → abs-node(subarray(avol[m5].data + mkempbuf(n0), m1, 2 * NODE_HEADER_SIZE + align↑(m2, 2 * NODE_HEADER_SIZE)), gnd) ∧ align↑(m2, 2 * NODE_HEADER_SIZE) = gnd.alignedsize ∧ m1 + 2 * NODE_HEADER_SIZE + align↑(m2, 2 * NODE_HEADER_SIZE) ≤ # avol[m5].data + n0) → ⟪m0 := m1; m := 2 * NODE_HEADER_SIZE + align↑(m2, 2 * NODE_HEADER_SIZE); if err ≠ ESUCCESS then debug#("persistence: read_gblock_nodes could not decode node at offset " + m0.toString + " in LEB " + m5.toString) else {gndx0 := gndx0 + gnd '; ax := ax + @(m5, m0, m) '}; 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;LEB_SIZE - m0) + m1 < LEB_SIZE), isempty(buf1 + mkempbuf(n0), m1, NODE_HEADER_SIZE) |
# lpt0 = # avol, # lpt = # avol, # gndx = # lax, 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(nodeheader(m2, false), subarray(buf1 + mkempbuf(n0), m1, NODE_HEADER_SIZE)), lpt-free-unref(lpt), lpt-leb-size(lpt), lpt-ram-flash(lpt0, lpt, log0), range=(buf1 + mkempbuf(n0), m1 + NODE_HEADER_SIZE + align↑(m2, 2 * NODE_HEADER_SIZE), validtrailer, 0, NODE_HEADER_SIZE), read-gblock-inv(m5, m1, ax, gndx0, ax1, gndx2, buf1, false), m1 + 2 * NODE_HEADER_SIZE + align↑(m2, 2 * NODE_HEADER_SIZE) ≤ LEB_SIZE, # buf1 ≤ LEB_SIZE, m1 + NODE_HEADER_SIZE ≤ LEB_SIZE, ¬ isempty(buf1 + mkempbuf(n0), m1, NODE_HEADER_SIZE), err = ESUCCESS → abs-node(subarray(buf1 + mkempbuf(n0), m1, 2 * NODE_HEADER_SIZE + align↑(m2, 2 * NODE_HEADER_SIZE)), gnd) ∧ align↑(m2, 2 * NODE_HEADER_SIZE) = gnd.alignedsize, err = ESUCCESS ∨ ⌊err⌋ ⊦ ⟪m0 := m1; m := 2 * NODE_HEADER_SIZE + align↑(m2, 2 * NODE_HEADER_SIZE); if err ≠ ESUCCESS then debug#("persistence: read_gblock_nodes could not decode node at offset " + m0.toString + " in LEB " + m5.toString) else {gndx0 := gndx0 + gnd '; ax := ax + @(m5, m0, m) '}; 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;LEB_SIZE - m0) + m1 < LEB_SIZE)
Used simplifier rules: a: ⊦ (m + n0) + n1 = m + n0 + n1; from specification nat-basic%c: ⊦ m + n = n + m; from specification nat-basic% ⊦ mapped(buf).data = buf; (s)