| dirs[ino1] = mkdir(# entries, md0, # links(ino1, dirs), m1, entries), dent = negdentry(str), err = ESUCCESS, err1 = EEXISTS, err2 = ESUCCESS, fs = abs-files(files), p_ino = ino1, root[q].dir?, root.dir?, dom of < ino0, abs(root, ROOT_INO)(dirs), afs-cons(dirs, files), fids-cons(root, abs-files(files), abs-of(of)), ispath(q, ROOT_INO, ino1, dirs, files), of-cons(of, dirs, files), pre-lookup(p_ino, dent, dirs, files), pw(user, md0), px(user, md0), px-parent(user, q, ROOT_INO, dirs, files), dent.name ∈ dirs[p_ino].entries, ino1 ∈ dirs, psynced → asynced ⊦ ⟨posix_create#(q + str ', md, user, abs-of(of); err0, root, fs; psynced)⟩ (fs = abs-files(files) ∧ abs(root, ROOT_INO)(dirs) ∧ (psynced → asynced) ∧ err1 = err0) |
⊦ ispath(p, ino, m, dirs, files) ∧ px-parent(user, p, ino, dirs, files) ∧ abs(tree, ino)(dirs) ∧ fids-cons(tree, abs-files(files), ofh) ∧ afs-cons(dirs, files) ∧ m ∈ dirs ∧ dirs[m] = mkdir(m0, md, n0, n1, entries) ∧ str ∈ entries → (entries[str] ∈ dirs ↔ tree[p + str '].dir?)
entries[str] ∈ dirs ↔ root[q + str '].dir?, dirs[ino1] = mkdir(# entries, md0, # links(ino1, dirs), m1, entries), fs = abs-files(files), root[q].dir?, root.dir?, dom of < ino0, abs(root, ROOT_INO)(dirs), afs-cons(dirs, files), fids-cons(root, abs-files(files), abs-of(of)), ispath(q, ROOT_INO, ino1, dirs, files), of-cons(of, dirs, files), pw(user, md0), px(user, md0), px-parent(user, q, ROOT_INO, dirs, files), ino1 ∈ dirs, str ∈ entries, psynced → asynced, links(ino1, dirs) ≠ ∅ ∨ ino1 = ROOT_INO ⊦ ⟨posix_create#(q + str ', md, user, abs-of(of); err0, root, fs; psynced)⟩ (fs = abs-files(files) ∧ abs(root, ROOT_INO)(dirs) ∧ (psynced → asynced) ∧ EEXISTS = err0)
Used simplifier rules: dir-entry: ⊦ ispath(p, ino, m, dirs, files) ∧ px-parent(user, p, ino, dirs, files) ∧ abs(tree, ino)(dirs) ∧ fids-cons(tree, abs-files(files), ofh) ∧ afs-cons(dirs, files) ∧ m ∈ dirs ∧ dirs[m] = mkdir(m0, md, n0, n1, entries) ∧ str ∈ entries → (entries[str] ∈ dirs ↔ tree[p + str '].dir?);% ⊦ mkdir(m, md, m0, m1, entries).entries = entries; (s)%⊦ valid-parent-ino(ino, dirs, files) ↔ ino ∈ dirs ∧ (links(ino, dirs) ≠ ∅ ∨ ino = ROOT_INO); (s)%⊦ pre-lookup(p_ino, dent, dirs, files) ↔ valid-parent-ino(p_ino, dirs, files); (s)% ⊦ negdentry(str).name = str; (s)