| asynced0 ↔ asynced, dirs0 = dirs, files0 = files, ino = ROOT_INO, p1 = p0, user0 = user, afs-cons(dirs, files), of-cons(of, dirs, files) ⊦ [vfs_walk#(parent(p0), user, dirs, files, asynced; ino, err)] ( (∃ q, str. p1 = q + str ∧ ( ⌊err⌋ ∨ err = ESUCCESS ∧ ispath(q, ROOT_INO, ino, dirs0, files0) ∧ px-parent(user0, q, ROOT_INO, dirs0, files0) ∨ err = ENOENT ∧ ¬ ispath(q, ROOT_INO, dirs0, files0) ∨ err = EACCESS ∧ (∃ p'. p' ⊑ q ∧ ispath(p', ROOT_INO, dirs0, files0) ∧ ¬ px(user0, p', ROOT_INO, dirs0, files0)))) → ⟪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_mkdir#(md; inode, c_inode, dent, err, dirs, files; asynced)⟫ (of-cons(of, dirs, files) ∧ afs-cons(dirs, files))), p0 = ε |
ino = ROOT_INO, p0 ≠ ε, afs-cons(dirs, files), of-cons(of, dirs, files) ⊦ [vfs_walk#(parent(p0), user, dirs, files, asynced; 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_mkdir#(md; inode, c_inode, dent, err, dirs, files; asynced)⟫ (of-cons(of, dirs, files) ∧ afs-cons(dirs, files)))
Used simplifier rules: ⊦ p + str = p + str '; (s)