| # links(m, dirs) = 0, dirs[m] = mkdir(m0, md, 0, m2, entries), afs-cons(dirs, files), afs-cons(dirs -- m, files), dcache-cons(dcache, dirs, files), synced(dirs, icache, pcache), m ∈ dirs, asynced1 → synced(files, icache, pcache) ⊦ m = ROOT_INO, ∀ key. key ∈ dcache → key.dentry? ∧ key.name = dcache[key].name ∧ valid-dentry(key.ino, dcache[key], dirs -- m, files) |
# links(m, dirs) = 0, dirs[m] = mkdir(m0, md, 0, m2, entries), afs-cons(dirs -- m, files), afs-cons(dirs, files), dcache-cons(dcache, dirs, files), synced(dirs, icache, pcache), key ∈ dcache, m ∈ dirs, asynced1 → synced(files, icache, pcache) ⊦ m = ROOT_INO, key.dentry? ∧ key.name = dcache[key].name ∧ key.ino ≠ m ∧ key.ino ∈ dirs ∧ (links(key.ino, dirs -- m) ≠ ∅ ∨ key.ino = ROOT_INO) ∧ (dcache[key].ino ≠ m ∧ dcache[key].ino ∈ dirs ∨ dcache[key].ino ∈ files) ∧ dcache[key].name ∈ dirs[key.ino].entries ∧ dcache[key].ino = dirs[key.ino].entries[dcache[key].name] ∧ dcache[key].dentry?
Used simplifier rules: ino ∈ dirs ⊦ ino ≠ ino0 → (dirs -- ino0)[ino] = dirs[ino]; (s)% ⊦ valid-ino(ino, dirs, files) ↔ ino ∈ dirs ∨ ino ∈ files; (s)% ⊦ ino ∈ dirs -- ino0 ↔ ino ≠ ino0 ∧ ino ∈ dirs; (s)%⊦ valid-parent-ino(ino, dirs, files) ↔ ino ∈ dirs ∧ (links(ino, dirs) ≠ ∅ ∨ ino = ROOT_INO); (s)%⊦ valid-dentry(ino, dent, dirs, files) ↔ valid-parent-ino(ino, dirs, files) ∧ valid-ino(dent.ino, dirs, files) ∧ dent.name ∈ dirs[ino].entries ∧ dent.ino = dirs[ino].entries[dent.name] ∧ dent.dentry?; (s)