| fs = abs-files(files), path = ε, root.dir?, dom of < ino, abs(root, ROOT_INO)(dirs), afs-cons(dirs, files), fids-cons(root, abs-files(files), abs-of(of)), of-cons(of, dirs, files), psynced → asynced ⊦ pre-create(path, md, EEXISTS, user, root, fs, abs-of(of)) ∧ ⟨err0 := EEXISTS; if err0 = ESUCCESS then choose fid with ¬ fid ∈ fs in {root[path] := fnode(fid); fs[fid] := mkfile(md, mkbuf(0))}; psynced := ?⟩ (fs = abs-files(files) ∧ abs(root, ROOT_INO)(dirs) ∧ (psynced → asynced) ∧ EEXISTS = err0) |
⊦ abs(tree, ino)(dirs) ∧ fids-cons(tree, abs-files(files), ofh) ∧ afs-cons(dirs, files) → (p ∈ tree ↔ ispath(p, ino, dirs, files))
fs = abs-files(files), path = ε, root.dir?, dom of < ino, abs(root, ROOT_INO)(dirs), afs-cons(dirs, files), fids-cons(root, abs-files(files), abs-of(of)), of-cons(of, dirs, files), psynced → asynced ⊦ ispath(path, ROOT_INO, dirs, files) ∧ ⟨err0 := EEXISTS; if err0 = ESUCCESS then choose fid with ¬ fid ∈ fs in {root[path] := fnode(fid); fs[fid] := mkfile(md, mkbuf(0))}; psynced := ?⟩ (fs = abs-files(files) ∧ abs(root, ROOT_INO)(dirs) ∧ (psynced → asynced) ∧ EEXISTS = err0)
Used simplifier rules: path-in-eq: ⊦ abs(tree, ino)(dirs) ∧ fids-cons(tree, abs-files(files), ofh) ∧ afs-cons(dirs, files) → (p ∈ tree ↔ ispath(p, ino, dirs, files));% ⊦ pre-create(p, md, EEXISTS, user, root, fs, ofh) ↔ p ∈ root; (s)