| dom of < ino, afs-cons(dirs, files), of-cons(of, dirs, files) ⊦ ⟪vfs_close#(fd, user, asynced; err, of, dirs, files)⟫ (of-cons(of, dirs, files) ∧ dom of < ino ∧ afs-cons(dirs, files)) |
⊦
dom of < ino, afs-cons(dirs, files), of-cons(of, dirs, files) ⊦ ⟪err := ESUCCESS; if ¬ fd ∈ of then err := EBADFD else let ino = of[fd].ino in choose p_inode with true in {afs_iget#(ino, dirs, files, asynced; p_inode, err); if err = ESUCCESS then {of := of -- fd; vfs_put_inode#(p_inode, of, asynced; err, dirs, files)}}⟫ (of-cons(of, dirs, files) ∧ dom of < ino ∧ afs-cons(dirs, files))
Used simplifier rules: close: ⊦ ;