| persistence_io_encode_lpt#(LPT, LEBSIZE; ; BUF, ERR) {ERR := ESUCCESS; BUF := mkbuf(lptsize(# LPT, LEBSIZE)); let N = 0, SIZE = ? in while ERR = ESUCCESS ∧ N < # LPT do {/* (prepost-encode-lpt : invariant N ≤ # LPT ∧ # BUF = lptsize(# LPT, LEB_SIZE) ∧ (ERR = ESUCCESS ∨ ⌊ERR⌋ ) ∧ (ERR = ESUCCESS → is-encoded(LPT, BUF, N)) wfbound # LPT - N) */; encode_lprops#(LPT[N], N * ENCODED_LPROPS_SIZE; BUF, SIZE; ERR); N := N + 1} } |