| isdir ↔ false, err = ESUCCESS, err0 = ESUCCESS, ino = ino0, dom of < ino1, afs-cons(dirs, files), ispath(p, ROOT_INO, ino0, dirs, files), of-cons(of, dirs, files), pre-iget(ino, dirs, files), px-parent(user, p, ROOT_INO, dirs, files) ⊦ ⟪if (getinode(ino, dirs, files).directory ⊃ EISDIR;ENOTDIR) = ESUCCESS then {of[ino1] := mkfile(ino0, mode, 0); fd := ino1; ino1 := ino1 + 1}⟫ (of-cons(of, dirs, files) ∧ dom of < ino1), getinode(ino, dirs, files).directory ↔ isdir |
isdir ↔ false, err = ESUCCESS, err0 = ESUCCESS, ino = ino0, dom of < ino1, afs-cons(dirs, files), ispath(p, ROOT_INO, ino0, dirs, files), of-cons(of, dirs, files), pre-iget(ino, dirs, files), px-parent(user, p, ROOT_INO, dirs, files) ⊦ ⟪skip⟫ (of-cons(of, dirs, files) ∧ dom of < ino1), getinode(ino, dirs, files).directory ↔ isdir
Used simplifier rules: ⊦ 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)% ⊦ mkinode(m, md, boolvar, m0, m1, m2).directory ↔ boolvar; (s)% ⊦ ESUCCESS ≠ EISDIR; (s)