| dom of < ino1, afs-cons(dirs, files), ispath(p, ROOT_INO, ino0, dirs, files), of-cons(of, dirs, files), px-parent(user, p, ROOT_INO, dirs, files), ino0 ∈ dirs ∨ ino0 ∈ files ⊦ ⟪fail#(; ; err); if err = ESUCCESS then if inode.directory then err := (inode.directory ⊃ EISDIR;ENOTDIR) else if (mode = MODE_R ∨ mode = MODE_RW) ∧ ¬ pr(user, inode.meta) ∨ (mode = MODE_W ∨ mode = MODE_RW) ∧ ¬ pw(user, inode.meta) then err := EACCESS; if err = ESUCCESS then {of[ino1] := mkfile(ino0, mode, 0); fd := ino1; ino1 := ino1 + 1}⟫ (of-cons(of, dirs, files) ∧ dom of < ino1) |
dom of < ino1, afs-cons(dirs, files), ispath(p, ROOT_INO, ino0, dirs, files), of-cons(of, dirs, files), px-parent(user, p, ROOT_INO, dirs, files), ino0 ∈ dirs ∨ ino0 ∈ files ⊦ ⟪choose err0 with ⌊err0⌋ in err := err0; if err = ESUCCESS then if inode.directory then err := (inode.directory ⊃ EISDIR;ENOTDIR) else if (mode = MODE_R ∨ mode = MODE_RW) ∧ ¬ pr(user, inode.meta) ∨ (mode = MODE_W ∨ mode = MODE_RW) ∧ ¬ pw(user, inode.meta) then err := EACCESS; if err = ESUCCESS then {of[ino1] := mkfile(ino0, mode, 0); fd := ino1; ino1 := ino1 + 1}⟫ (of-cons(of, dirs, files) ∧ dom of < ino1)
Used simplifier rules: fail#(; ; ERR){choose ERR0 with ⌊ERR0⌋ in ERR := ERR0};