| ino = ROOT_INO, afs-cons(dirs, files), of-cons(of, dirs, files) ⊦ ∀ ino, err. (∃ q, str. p0 = q + str ' ∧ ( ⌊err⌋ ∨ err = ESUCCESS ∧ ispath(q, ROOT_INO, ino, dirs, files) ∧ px-parent(user, q, ROOT_INO, dirs, files) ∨ err = ENOENT ∧ ¬ ispath(q, ROOT_INO, dirs, files) ∨ err = EACCESS ∧ (∃ p'. p' ⊑ q ∧ ispath(p', ROOT_INO, dirs, files) ∧ ¬ px(user, p', ROOT_INO, dirs, files)))) → ⟪dent := negdentry(p0.last); if err = ESUCCESS then vfs_may_create#(ino, dent, user, dirs, files, asynced; inode, err); if err = ESUCCESS then afs_check_commit#(dirs, files; err; asynced); if err = ESUCCESS then afs_create#(md; inode, c_inode, dent, err, dirs, files; asynced)⟫ (of-cons(of, dirs, files) ∧ afs-cons(dirs, files)), p0 = ε |
afs-cons(dirs, files), of-cons(of, dirs, files), ⌊err⌋ ∨ err = ESUCCESS ∧ ispath(q, ROOT_INO, ino0, dirs, files) ∧ px-parent(user, q, ROOT_INO, dirs, files) ∨ err = ENOENT ∧ ¬ ispath(q, ROOT_INO, dirs, files) ∨ err = EACCESS ∧ p' ⊑ q ∧ ispath(p', ROOT_INO, dirs, files) ∧ ¬ px(user, p', ROOT_INO, dirs, files) ⊦ ⟪dent := negdentry((q + str ').last); if err = ESUCCESS then vfs_may_create#(ino0, dent, user, dirs, files, asynced; inode, err); if err = ESUCCESS then afs_check_commit#(dirs, files; err; asynced); if err = ESUCCESS then afs_create#(md; inode, c_inode, dent, err, dirs, files; asynced)⟫ (of-cons(of, dirs, files) ∧ afs-cons(dirs, files))
Used simplifier rules: a: ⊦ (p + p0) + p1 = p + p0 + p1; from specification list[path]% ⊦ p + str ' ≠ ε; (s)