| of[fd] = mkfile(m, mode, m0), err = err0, fs = abs-files(files), 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, ⌊err0⌋ , psynced → asynced ⊦ [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) → ⟨posix_close#(fd, user, root; err1, fs, ofh)⟩ (ofh = abs-of(of) ∧ fs = abs-files(files) ∧ abs(root, ROOT_INO)(dirs) ∧ (psynced → asynced) ∧ err = err1)) |
of[fd] = mkfile(m, mode, m0), err = err0, fs = abs-files(files), 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, ⌊err0⌋ , psynced → asynced ⊦ [skip] ( of-cons(of, dirs, files) ∧ dom of < ino0 ∧ afs-cons(dirs, files) → ⟨posix_close#(fd, user, root; err1, fs, ofh)⟩ (ofh = abs-of(of) ∧ fs = abs-files(files) ∧ abs(root, ROOT_INO)(dirs) ∧ (psynced → asynced) ∧ err = err1))
Used simplifier rules: ⊦ ⌊err⌋ → err ≠ ESUCCESS; (s)