| fs = fs0, ofh = ofh0, tree.dir?, fids-cons(tree, fs1, ofh1), posix-crash(tree, fs1, ofh1, root, fs0, ofh0) ⊦ ⟪fail_or_success#(; ; err); if err ≠ ESUCCESS then root := ?, fs := ?, ofh := ?, psynced := ? else psynced := true⟫ (err = ESUCCESS → psynced ∧ root.dir? ∧ fids-cons(root, fs, ofh)) |
fs = fs0, ofh = ofh0, tree.dir?, fids-cons(tree, fs1, ofh1), posix-crash(tree, fs1, ofh1, root, fs0, ofh0) ⊦ ⟪choose err0 with ⌊err0⌋ ∨ err0 = ESUCCESS in err := err0; if err ≠ ESUCCESS then root := ?, fs := ?, ofh := ?, psynced := ? else psynced := true⟫ (err = ESUCCESS → psynced ∧ root.dir? ∧ fids-cons(root, fs, ofh))
Used simplifier rules: fail_or_success#(; ; ERR) {choose ERR0 with ⌊ERR0⌋ ∨ ERR0 = ESUCCESS in ERR := ERR0};