| ⟨afs_evict#(p_inode, asynced0; err, dirs1, files1)⟩ (err = err0 ∧ dirs1 = dirs0 ∧ files1 = files0), asynced ↔ boolvar0, dirs = dirs1, files = files1, inode = p_inode ⊦ ⟨if pre-evict(inode, dirs, files) then {err := ESUCCESS; let ino = inode.ino in if ino ∈ dirs then if dirs[ino].nlink = 0 then dirs := dirs -- ino else if files[ino].nlink = 0 then files := files -- ino} else abort⟩ (err = err0 ∧ dirs = dirs0 ∧ files = files0) |
⟨afs_evict#(p_inode, asynced0; err, dirs1, files1)⟩ (err = err0 ∧ dirs1 = dirs0 ∧ files1 = files0), asynced ↔ boolvar0, dirs = dirs1, files = files1, inode = p_inode, pre-evict(inode, dirs, files) ⊦ ⟨err := ESUCCESS; let ino = inode.ino in if ino ∈ dirs then if dirs[ino].nlink = 0 then dirs := dirs -- ino else if files[ino].nlink = 0 then files := files -- ino⟩ (err = err0 ∧ dirs = dirs0 ∧ files = files0)
⟨afs_evict#(p_inode, asynced0; err, dirs1, files1)⟩ (err = err0 ∧ dirs1 = dirs0 ∧ files1 = files0), asynced ↔ boolvar0, dirs = dirs1, files = files1, inode = p_inode ⊦ ⟨abort⟩ (err = err0 ∧ dirs = dirs0 ∧ files = files0), pre-evict(inode, dirs, files)