| err = ESUCCESS, err0 = ESUCCESS, gstore0 = gstore2, log0 = [], nx0 = nx1, nx3 = nx2, elems nx2 ∩ ginval = ∅, inv(gstore2 \ ginval), restore-log-inv(nx2, nx0, gstore2, ginval, log, err), elems nx2 ⊆ dom gstore2 ⊦ ⟪gjournal_remove_nonend_blocks#(nx0.head, fi0, fi, ginval, gstore0, gstore, nx, pmaxino, p_os, jvalid; log; err); nx0 := nx0.tail⟫ (restore-log-inv(nx2, nx0, gstore2, ginval, log, err) ∧ # nx0 < # nx1), nx0 = [] |
log = abs-log(nx0, gstore2 ↓), elems(nx0 + nx1) ∩ ginval = ∅, nx1 ≠ [], inv(gstore2 \ ginval), elems(nx0 + nx1) ⊆ dom gstore2 ⊦ ⟪gjournal_remove_nonend_blocks#(nx1.head, fi0, fi, ginval, gstore2, gstore, nx, pmaxino, p_os, jvalid; log; err); nx := nx1.tail⟫ ((∃ nx3. nx0 + nx1 = nx3 + nx ∧ (err = ESUCCESS ∨ ⌊err⌋ ) ∧ (err = ESUCCESS → log = abs-log(nx3, gstore2 ↓))) ∧ # nx < # nx1)
Used simplifier rules: ⊦ restore-log-inv(nx, nx1, gstore, ginval, log, err) ↔ (∃ nx0. nx = nx0 + nx1 ∧ inv(gstore \ ginval) ∧ (err = ESUCCESS ∨ ⌊err⌋ ) ∧ ( err = ESUCCESS → log = abs-log(nx0, gstore ↓) ∧ elems nx ⊆ dom gstore ∧ elems nx ∩ ginval = ∅)); (s)