| of[fd] = mkfile(m, mode, m0), err = ESUCCESS, err1 = ESUCCESS, fs = abs-files(files), ino = m, inode = p_inode, ofh = abs-of(of), root.dir?, dom of < ino0, abs(root, ROOT_INO)(dirs), afs-cons(dirs, files), fids-cons(root, abs-files(files), abs-of(of)), of-cons(of, dirs, files), fd ∈ of, psynced → asynced ⊦ [vfs_put_inode#(getinode(ino, dirs, files), of -- fd, asynced; err, dirs, files)] ( of-cons(of -- fd, dirs, files) ∧ dom(of -- fd) < ino0 ∧ afs-cons(dirs, files) → ⟨posix_close#(fd, user, root; err0, fs, ofh)⟩ (ofh = abs-of(of -- fd) ∧ fs = abs-files(files) ∧ abs(root, ROOT_INO)(dirs) ∧ (psynced → asynced) ∧ err = err0)) |
of[fd] = mkfile(m, mode, m0), err = ESUCCESS, fs = abs-files(files), root.dir?, dom of < ino0, abs(root, ROOT_INO)(dirs), afs-cons(dirs, files), fids-cons(root, abs-files(files), abs-of(of)), of-cons(of, dirs, files), fd ∈ of, psynced → asynced ⊦ [vfs_put_inode#(mkinode(m, files[m].meta, false, files[m].nlink, 0, files[m].size), of -- fd, asynced; err, dirs, files)] ( of-cons(of -- fd, dirs, files) ∧ afs-cons(dirs, files) → ⟨ofh := abs-of(of); posix_close#(fd, user, root; err0, fs, ofh)⟩ (ofh = abs-of(of -- fd) ∧ fs = abs-files(files) ∧ abs(root, ROOT_INO)(dirs) ∧ (psynced → asynced) ∧ err = err0))
Used simplifier rules: ⊦ ns < n → ns -- n0 < n; (s)% ⊦ dom(of -- fd) = dom of -- fd; (s)%⊦ of-cons(of, dirs, files) ∧ fd ∈ of ∧ of[fd] = mkfile(ino, mode, n) ∧ afs-cons(dirs, files) → ¬ ino ∈ dirs; (s)%⊦ getinode(ino, dirs, files) = (ino ∈ dirs ⊃ mkinode (ino, dirs[ino].meta, true, dirs[ino].nlink, dirs[ino].nsubdirs, dirs[ino].size) ;mkinode (ino, files[ino].meta, false, files[ino].nlink, 0, files[ino].size) ); (s)