| ⟨if ¬ is-open(entries0[str], of) ∧ ¬ ⌜entries0[str]⌝ ∈ (root0 -- (q + str ')).fids then fs := fs -- ⌜entries0[str]⌝ ⟩ (fs = fs0), ⟨vfs_put_inode#(getinode(entries0[str], dirs1, files), of, asynced; err0, dirs, files)⟩ (err0 = ESUCCESS ∧ dirs = dirs1 ∧ files = files1), # links(entries0[str], dirs0) = m + 1, # entries0 = m0 + 1, dirs0[ino1] = mkdir(m0 + 1, md0, # links(ino1, dirs0), m3, entries0), files0[entries0[str]] = mkfile(m1, md1, m + 1, content0), dirs = dirs1, err0 = ESUCCESS, files = files0[entries0[str], mkfile(m1, md1, m, content0)], fs = abs-files(files0), root0.dir?, root0[q].dir?, dom of < ino0, abs(root0, ROOT_INO)(dirs0), abs(root0 -- (q + str '), ROOT_INO)(dirs), afs-cons(dirs1, files1), afs-cons(dirs0, files0), fids-cons(root0, abs-files(files0), abs-of(of)), ispath(q, ROOT_INO, ino1, dirs0, files0), of-cons(of, dirs1, files1), of-cons(of, dirs0, files0), pw(user, md0), px(user, md0), px-parent(user, q, ROOT_INO, dirs0, files0), entries0[str] ∈ files0, str ∈ entries0, ino1 ∈ dirs0, dirs1 ≡ dirs0[ino1, mkdir(m0, md0, # links(ino1, dirs0), m3, entries0 -- str)], psynced → asynced0 ⊦ ⟨psynced := ?⟩ ( (root0 -- (q + str ')).dir? ∧ fids-cons(root0 -- (q + str '), fs0, abs-of(of)) → fs0 = abs-files(files1) ∧ abs(root0 -- (q + str '), ROOT_INO)(dirs1) ∧ (psynced → asynced)), # links(ino1, dirs0) = 0, entries0 = ∅, ino1 = ROOT_INO, links(ino1, dirs0) = ∅, root0[q + str '].dir?, entries0[str] ∈ dirs1, ino1 ∈ dirs1, entries0[str] ∈ dirs0 |
⟨if ¬ is-open(entries0[str], of) ∧ ¬ ⌜entries0[str]⌝ ∈ (root0 -- (q + str ')).fids then fs := fs -- ⌜entries0[str]⌝ ⟩ (fs = fs0), ⟨vfs_put_inode#(getinode(entries0[str], dirs1, files), of, asynced; err0, dirs, files)⟩ (err0 = ESUCCESS ∧ dirs = dirs1 ∧ files = files1), # entries0 = m0 + 1, # links(entries0[str], dirs0) = m + 1, files0[entries0[str]] = mkfile(m1, md1, m + 1, content0), dirs0[ino1] = mkdir(m0 + 1, md0, # links(ino1, dirs0), m3, entries0), dirs = dirs1, err0 = ESUCCESS, files = files0[entries0[str], mkfile(m1, md1, m, content0)], fs = abs-files(files0), # links(ino1, dirs0) ≠ 0, entries0 ≠ ∅, ino1 ≠ ROOT_INO, links(ino1, dirs0) ≠ ∅, root0[q].dir?, root0.dir?, dom of < ino0, abs(root0 -- (q + str '), ROOT_INO)(dirs1), abs(root0, ROOT_INO)(dirs0), afs-cons(dirs0, files0), afs-cons(dirs1, files1), fids-cons(root0, abs-files(files0), abs-of(of)), ispath(q, ROOT_INO, ino1, dirs0, files0), of-cons(of, dirs0, files0), of-cons(of, dirs1, files1), pw(user, md0), px(user, md0), px-parent(user, q, ROOT_INO, dirs0, files0), ino1 ∈ dirs0, str ∈ entries0, entries0[str] ∈ files0, dirs1 ≡ dirs0[ino1, mkdir(m0, md0, # links(ino1, dirs0), m3, entries0 -- str)], ¬ root0[q + str '].dir?, ¬ entries0[str] ∈ dirs0, ¬ ino1 ∈ dirs1, ¬ entries0[str] ∈ dirs1, psynced → asynced0 ⊦ ⟨psynced := ?⟩ ((root0 -- (q + str ')).dir? ∧ fids-cons(root0 -- (q + str '), fs0, abs-of(of)) → fs0 = abs-files(files1) ∧ (psynced → asynced))