| ⟨err := ESUCCESS; let ino = inode.ino in if ino ∈ dirs then if dirs[ino].nlink = 0 then dirs := dirs -- ino else if files[ino].nlink = 0 then files := files -- ino⟩ (err = err0 ∧ dirs = dirs0 ∧ files = files0), asynced ↔ asynced0, files1[m] = mkfile(m0, md0, m1, content), dirs = dirs1, files = files1, inode = mkinode(m, md, false, m1, 0, m2), pre-evict(inode, dirs, files), m ∈ files1 ⊦ m = ROOT_INO, m1 = 0, m ∈ dirs1, ESUCCESS = err0 ∧ dirs1 = dirs0 ∧ files1 = files0 |
⟨let ino = inode.ino in if ino ∈ dirs then if dirs[ino].nlink = 0 then dirs := dirs -- ino else if files[ino].nlink = 0 then files := files -- ino⟩ (ESUCCESS = err0 ∧ dirs = dirs0 ∧ files = files0), asynced ↔ asynced0, files1[m] = mkfile(m0, md0, m1, content), dirs = dirs1, files = files1, inode = mkinode(m, md, false, m1, 0, m2), pre-evict(inode, dirs, files), m ∈ files1 ⊦ m = ROOT_INO, m1 = 0, m ∈ dirs1, ESUCCESS = err0 ∧ dirs1 = dirs0 ∧ files1 = files0