| of[fd] = mkfile(m, mode, m0), err = ESUCCESS, dom of < ino0, afs-cons(dirs, files), of-cons(of, dirs, files), fd ∈ of ⊦ ⟪afs_iget#(m, 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 < ino0 ∧ afs-cons(dirs, files)) |
of[fd] = mkfile(m, mode, m0), err = ESUCCESS, ino = m, inode = p_inode, dom of < ino0, afs-cons(dirs, files), of-cons(of, dirs, files), fd ∈ of ⊦ ⟪if pre-iget(ino, dirs, files) then {{inode := getinode(ino, dirs, files); err := ESUCCESS} or fail#(; ; err)} else abort; if err = ESUCCESS then {of := of -- fd; vfs_put_inode#(inode, of, asynced; err, dirs, files)}⟫ (of-cons(of, dirs, files) ∧ dom of < ino0 ∧ afs-cons(dirs, files))
Used simplifier rules: afs_iget#(INO, DIRS, FILES, ASYNCED; INODE, ERR) {if pre-iget(INO, DIRS, FILES) then { {INODE := getinode(INO, DIRS, FILES); ERR := ESUCCESS} or fail#(; ; ERR)} else abort };