| files1 -- ino = files0 -- ino, (ino0 = ino ⊃ mkfile (m, md1, # links(ino, dirs), content[(n0 + n) / VFS_PAGE_SIZE, copy(buf, n, getpage((n0 + n) / VFS_PAGE_SIZE, content), (n0 + n) % VFS_PAGE_SIZE, min(n3, n2))]) ;mkfile(m0, md, m1, content1) ) = mkfile(m2, md0, m3, content2), files1[ino0] = mkfile(m0, md, m1, content1), files1[ino] = mkfile(m, md1, # links(ino, dirs), content), files0[ino] = mkfile(m, md1, m5, content0), dirs[ino0] = mkdir(m4, md2, m6, m7, entries), afs-cons(dirs, files1), write-inv (n0, n3 + n0 + n, buf, n + min(n3, n2), content0, content[(n0 + n) / VFS_PAGE_SIZE, copy(buf, n, getpage((n0 + n) / VFS_PAGE_SIZE, content), (n0 + n) % VFS_PAGE_SIZE, min(n3, n2))]), write-inv(n0, n3 + n0 + n, buf, n, content0, content), ROOT_INO ∈ dirs, ino ∈ files1, ino ∈ files0, n3 + n ≤ # buf, n ≤ # buf, (n0 + n) % VFS_PAGE_SIZE + min(n3, n2) ≤ VFS_PAGE_SIZE, min(n3, n2) ≤ n3, ino0 ∈ files1 → ¬ ino0 ∈ dirs ∧ m1 = # links(ino0, dirs), ino0 ∈ dirs ∧ ino0 ≠ ROOT_INO ∧ links(ino0, dirs) = ∅ → entries = ∅, ino0 ∈ dirs → m6 = # links(ino0, dirs) ∧ m6 ≤ 1 ∧ m4 = # entries ∧ m7 = # subdirs(ino0, dirs), ino0 ∈ dirs ∧ name ∈ entries → entries[name] ∈ dirs ∨ entries[name] ∈ files1 ⊦ (ino0 ∈ files1 → ¬ ino0 ∈ dirs ∧ m3 = # links(ino0, dirs)) ∧ (ino0 ∈ files1 ∧ n1 ∈ content2 → # content2[n1] = VFS_PAGE_SIZE) |
files1 -- ino = files0 -- ino, (ino0 = ino ⊃ mkfile (m, md1, # links(ino, dirs), content[(n0 + n) / VFS_PAGE_SIZE, copy(buf, n, getpage((n0 + n) / VFS_PAGE_SIZE, content), (n0 + n) % VFS_PAGE_SIZE, min(n3, n2))]) ;mkfile(m0, md, m1, content1) ) = mkfile(m2, md0, m3, content2), dirs[ino0] = mkdir(m4, md2, m6, m7, entries), files0[ino] = mkfile(m, md1, m5, content0), files1[ino] = mkfile(m, md1, # links(ino, dirs), content), files1[ino0] = mkfile(m0, md, m1, content1), afs-cons(dirs, files1), write-inv(n0, n3 + n0 + n, buf, n, content0, content), write-inv (n0, n3 + n0 + n, buf, n + min(n3, n2), content0, content[(n0 + n) / VFS_PAGE_SIZE, copy(buf, n, getpage((n0 + n) / VFS_PAGE_SIZE, content), (n0 + n) % VFS_PAGE_SIZE, min(n3, n2))]), ino ∈ files0, ino ∈ files1, ROOT_INO ∈ dirs, min(n3, n2) ≤ n3, (n0 + n) % VFS_PAGE_SIZE + min(n3, n2) ≤ VFS_PAGE_SIZE, n ≤ # buf, n3 + n ≤ # buf, ino0 ∈ dirs ∧ name ∈ entries → entries[name] ∈ dirs ∨ entries[name] ∈ files1, ino0 ∈ dirs ∧ ino0 ≠ ROOT_INO ∧ links(ino0, dirs) = ∅ → entries = ∅, ino0 ∈ files1 → ¬ ino0 ∈ dirs ∧ m1 = # links(ino0, dirs), ino0 ∈ dirs → m6 = # links(ino0, dirs) ∧ # links(ino0, dirs) ≤ 1 ∧ m4 = # entries ∧ m7 = # subdirs(ino0, dirs) ⊦ (ino0 ∈ files1 → ¬ ino0 ∈ dirs ∧ m3 = # links(ino0, dirs)) ∧ (ino0 ∈ files1 ∧ n1 ∈ content2 → # content2[n1] = VFS_PAGE_SIZE)