| persistence_replay_log#(LEBSIZE; LOG0, LPT) {while LOG0 ≠ [] do {/* (prepost-replay-log : invariant ∃ log. LOG0` = log + LOG0 ∧ LPT = replay-log(LPT`, log) ∧ valid-indices(LPT, LOG0`) ∧ ¬ dups(LOG0`) wfbound # LOG0) */; let N = LOG0.head in {LPT[N].flags := LP_GROUP_NODES; LPT[N].size := LEBSIZE; LOG0 := LOG0.tail}} } |