| fs = abs-files(files), root.dir?, dom of < ino, abs(root, ROOT_INO)(dirs), afs-cons(dirs, files), fids-cons(root, abs-files(files), abs-of(of)), of-cons(of, dirs, files), psynced → asynced ⊦ pre-unlink(ε, EACCESS, user, root, fs, abs-of(of)) ∧ ⟨err0 := EACCESS; if err0 = ESUCCESS then let fid = root.fid in {root := root -- ε; if ¬ fid ∈ abs-of(of).fids ∧ ¬ fid ∈ root.fids then fs := fs -- fid}; psynced := ?⟩ (fs = abs-files(files) ∧ abs(root, ROOT_INO)(dirs) ∧ (psynced → asynced) ∧ EACCESS = err0) |
fs = abs-files(files), root.dir?, dom of < ino, abs(root, ROOT_INO)(dirs), afs-cons(dirs, files), fids-cons(root, abs-files(files), abs-of(of)), of-cons(of, dirs, files), psynced → asynced ⊦ ⟨err0 := EACCESS; if err0 = ESUCCESS then let fid = root.fid in {root := root -- ε; if ¬ fid ∈ abs-of(of).fids ∧ ¬ fid ∈ root.fids then fs := fs -- fid}; psynced := ?⟩ (fs = abs-files(files) ∧ abs(root, ROOT_INO)(dirs) ∧ (psynced → asynced) ∧ EACCESS = err0)
Used simplifier rules: ⊦ pre-unlink(p, EACCESS, user, root, fs, ofh) ↔ p = ε ∨ ¬ py(user, parent(p), root, fs); (s)