| # lpt = # avol, # lpt0 = # avol, log = log0, avol[adr.lnum].mapped?, adr.lnum < # avol, awbuf-inv(avol, bleb), buf-ro-rw-mode(isbuf, bleb, lpt0, avol), bufs-log-only(bleb, log, lpt0), lpt-free-unref(lpt), lpt-leb-size(lpt), lpt-ram-flash(lpt0, lpt, log), adr.pos + adr.size ≤ # avol[adr.lnum].data, ∃ gnd. abs-node(subarray(avol[adr.lnum].data, adr.pos, adr.size), gnd) ⊦ ⟪persistence_read_gnd#(adr, adr0, m, log0, avol, lpt, ns, bleb, isbuf; gnd0; err)⟫ ((err = ESUCCESS ∨ ⌊err⌋ ) ∧ (err = ESUCCESS → abs-node(subarray(avol[adr.lnum].data, adr.pos, adr.size), gnd0))) |
# lpt = # avol, # lpt0 = # avol, avol[adr.lnum] = mapped(buf), adr.lnum < # avol, abs-node(subarray(buf, adr.pos, adr.size), gnd), 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), adr.pos + adr.size ≤ # buf ⊦ ⟪persistence_read_gnd#(adr, adr0, m, log0, avol, lpt, ns, bleb, isbuf; gnd0; err)⟫ ((err = ESUCCESS ∨ ⌊err⌋ ) ∧ (err = ESUCCESS → gnd = gnd0))
Used simplifier rules: elim-mapped: ⊦ avol[n].mapped? ↔ (∃ buf. avol[n] = mapped(buf));% ⊦ mapped(buf).data = buf; (s)% ⊦ m < n → n ≠ 0; (s)%lf-01: ⊦ m < n ∧ n = n0 → m < n0; (forward) from specification nat-basic%f: ⊦ m < n → n ≠ 0; (forward) from specification nat-basic% ⊦ abs-node(buf, gnd) → (abs-node(buf, gnd0) ↔ gnd = gnd0); (s)