| # lpt0 = # avol, # lpt = # avol, avol[m0] = mapped(buf), m0 < # avol, abs-node(subarray(buf, m1, m2), ind), 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), m1 + m2 ≤ # buf ⊦ ⟪persistence_read_ind#(@(m0, m1, m2), adr0, m, log0, avol, lpt, ns, bleb, isbuf; ind0; err)⟫ ((err = ESUCCESS ∨ ⌊err⌋ ) ∧ (err = ESUCCESS → ind = ind0)) |
# lpt = # avol, # lpt0 = # avol, avol[m0] = mapped(buf), adr = adr1, adr0 = @(m0, m1, m2), log = log0, m0 < # avol, abs-node(subarray(buf, m1, m2), ind), 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), m1 + m2 ≤ # buf ⊦ ⟪if adr0.lnum < # avol ∧ avol[adr0.lnum].mapped? ∧ adr0.pos + adr0.size ≤ # avol[adr0.lnum].data ∧ (∃ ind. abs-node(subarray(avol[adr0.lnum].data, adr0.pos, adr0.size), ind)) then let buf = mkbuf(adr0.size) in {awbuf_read_buf#(adr0.lnum, adr0.pos, adr0.size, adr, m, log, avol, lpt, ns, bleb, isbuf; buf; err); if err = ESUCCESS then decode_index_node#(0, adr0.size, buf; ind0; err)} else abort⟫ ((err = ESUCCESS ∨ ⌊err⌋ ) ∧ (err = ESUCCESS → ind = ind0))
Used simplifier rules: read-ind: ⊦ ;