| # links(m, dirs) = 0, files[m] = mkfile(m0, md, 0, content), err = ESUCCESS, ino = m, afs-cons(dirs, files -- m), afs-cons(dirs, files), dcache-cons(dcache, dirs, files), icache-cons(icache, dirs, files), pcache-cons(pcache, dirs, files), synced(dirs, icache, pcache), m ∈ files, asynced1 → synced(files, icache, pcache), ∀ key. key ∈ pcache → key.data? ⊦ [pcache := evict(ino, pcache)] ( (∀ key. key ∈ pcache → key.data? ∧ key.ino ≠ m) → icache-cons(icache -- m, dirs, files -- m) ∧ dcache-cons(dcache, dirs, files -- m) ∧ pcache-cons(pcache, dirs, files -- m) ∧ synced(dirs, icache -- m, pcache) ∧ (asynced1 → synced(files -- m, icache -- m, pcache))), m = ROOT_INO, m ∈ dirs |
# links(m, dirs) = 0, files[m] = mkfile(m0, md, 0, content), err = ESUCCESS, ino = m, afs-cons(dirs, files), afs-cons(dirs, files -- m), dcache-cons(dcache, dirs, files), icache-cons(icache, dirs, files), pcache-cons(pcache, dirs, files), synced(dirs, icache, pcache), m ∈ files, asynced1 → synced(files, icache, pcache), ∀ key. key ∈ evict(ino, pcache) → key.data? ∧ key.ino ≠ m, ∀ key. key ∈ pcache → key.data? ⊦ m = ROOT_INO, m ∈ dirs, icache-cons(icache -- m, dirs, files -- m) ∧ dcache-cons(dcache, dirs, files -- m) ∧ pcache-cons(evict(ino, pcache), dirs, files -- m) ∧ synced(dirs, icache -- m, evict(ino, pcache)) ∧ (asynced1 → synced(files -- m, icache -- m, evict(ino, pcache)))