| # links (entries[str], dirs0 [m8, (m8 = m ⊃ mkdir(m1 + 1, md2, m4, m6, entries1[str0, entries[str]]);mkdir(m2, md3, # links(m8, dirs0), m5, entries -- str)).meta:= md0 ] [m, mkdir(m12, md5, m13, m14, entries3) ]) = # links(entries[str], dirs0), (m = m8 ⊃ mkdir(m2, md3, # links(m8, dirs0), m5, entries -- str);mkdir(m7, md4, # links(m, dirs0), m9, entries2)) = mkdir(m1, md2, m4, m6, entries1), (m8 = m ⊃ mkdir(m1 + 1, md5, m4, m6, entries1[str0, entries[str]]);mkdir(m2, md0, # links(m8, dirs0), m5, entries -- str)) = mkdir(m0, md1, m10, m11, entries0), (m = m8 ⊃ mkdir(m1 + 1, md0, m4, m6, entries1[str0, entries[str]]);mkdir(m1 + 1, md2, m4, m6, entries1[str0, entries[str]])) = mkdir(m12, md6, m13, m14, entries3), dirs0[m8] = mkdir(m2 + 1, md3, # links(m8, dirs0), m5, entries), files[entries[str]] = mkfile(m3, md, # links(entries[str], dirs0), content0), dirs0[m] = mkdir(m7, md4, # links(m, dirs0), m9, entries2), afs-cons(dirs0, files), afs-cons (dirs0[m8, (m8 = m ⊃ mkdir(m1 + 1, md2, m4, m6, entries1[str0, entries[str]]);mkdir(m2, md3, # links(m8, dirs0), m5, entries -- str)).meta:= md0] [m, mkdir(m12, md5, m13, m14, entries3) ], files), icache-cons(icache0, dirs0, files), synced(dirs0, icache0, pcache), str ∈ entries, entries[str] ∈ files, m ∈ dirs0, m8 ∈ dirs0, asynced2 → synced(files, icache0, pcache), m = m8 → md5 = md0, links(m8, dirs0) ≠ ∅ ∨ m8 = ROOT_INO, links(m, dirs0) ≠ ∅ ∨ m = ROOT_INO ⊦ entries[str] ∈ dirs0, str0 ∈ entries2, ∀ ino. ino ∈ icache0[m8, mkientry(false, mkinode(m8, md1, true, m10, m11, m0))][m, mkientry(false, mkinode(m, md5, true, m13, m14, m12))] → icache0[m8, mkientry(false, mkinode(m8, md1, true, m10, m11, m0))][m, mkientry(false, mkinode(m, md5, true, m13, m14, m12))][ino].inode.ino = ino ∧ (icache0[m8, mkientry(false, mkinode(m8, md1, true, m10, m11, m0))][m, mkientry(false, mkinode(m, md5, true, m13, m14, m12))][ino].dirty ⊃ valid-file-inode (icache0[m8, mkientry(false, mkinode(m8, md1, true, m10, m11, m0))][m, mkientry(false, mkinode(m, md5, true, m13, m14, m12))][ino].inode, dirs0 [m8, (m8 = m ⊃ mkdir(m1 + 1, md2, m4, m6, entries1[str0, entries[str]]);mkdir(m2, md3, # links(m8, dirs0), m5, entries -- str)).meta:= md0 ] [m, mkdir(m12, md5, m13, m14, entries3) ], files) ; valid-ino (ino, dirs0 [m8, (m8 = m ⊃ mkdir(m1 + 1, md2, m4, m6, entries1[str0, entries[str]]);mkdir(m2, md3, # links(m8, dirs0), m5, entries -- str)).meta:= md0 ] [m, mkdir(m12, md5, m13, m14, entries3) ], files) ∧ valid-inode (icache0[m8, mkientry(false, mkinode(m8, md1, true, m10, m11, m0))][m, mkientry(false, mkinode(m, md5, true, m13, m14, m12))][ino].inode, dirs0 [m8, (m8 = m ⊃ mkdir(m1 + 1, md2, m4, m6, entries1[str0, entries[str]]);mkdir(m2, md3, # links(m8, dirs0), m5, entries -- str)).meta:= md0 ] [m, mkdir(m12, md5, m13, m14, entries3) ], files) ) |
# links (entries[str], dirs0 [m8, (m8 = m ⊃ mkdir(m1 + 1, md2, m4, m6, entries1[str0, entries[str]]);mkdir(m2, md3, # links(m8, dirs0), m5, entries -- str)).meta:= md0 ] [m, mkdir(m12, md5, m13, m14, entries3) ]) = # links(entries[str], dirs0), (m = m8 ⊃ mkdir(m1 + 1, md0, m4, m6, entries1[str0, entries[str]]);mkdir(m1 + 1, md2, m4, m6, entries1[str0, entries[str]])) = mkdir(m12, md6, m13, m14, entries3), (m8 = m ⊃ mkdir(m1 + 1, md5, m4, m6, entries1[str0, entries[str]]);mkdir(m2, md0, # links(m8, dirs0), m5, entries -- str)) = mkdir(m0, md1, m10, m11, entries0), (m = m8 ⊃ mkdir(m2, md3, # links(m8, dirs0), m5, entries -- str);mkdir(m7, md4, # links(m, dirs0), m9, entries2)) = mkdir(m1, md2, m4, m6, entries1), dirs0[m] = mkdir(m7, md4, # links(m, dirs0), m9, entries2), files[entries[str]] = mkfile(m3, md, # links(entries[str], dirs0), content0), dirs0[m8] = mkdir(m2 + 1, md3, # links(m8, dirs0), m5, entries), afs-cons (dirs0[m8, (m8 = m ⊃ mkdir(m1 + 1, md2, m4, m6, entries1[str0, entries[str]]);mkdir(m2, md3, # links(m8, dirs0), m5, entries -- str)).meta:= md0] [m, mkdir(m12, md5, m13, m14, entries3) ], files), afs-cons(dirs0, files), icache-cons(icache0, dirs0, files), synced(dirs0, icache0, pcache), ino ∈ icache0[m8, mkientry(false, mkinode(m8, md1, true, m10, m11, m0))][m, mkientry(false, mkinode(m, md5, true, m13, m14, m12))], m8 ∈ dirs0, m ∈ dirs0, entries[str] ∈ files, str ∈ entries, m = m8 → md5 = md0, asynced2 → synced(files, icache0, pcache), links(m, dirs0) ≠ ∅ ∨ m = ROOT_INO, links(m8, dirs0) ≠ ∅ ∨ m8 = ROOT_INO ⊦ str0 ∈ entries2, entries[str] ∈ dirs0, icache0[m8, mkientry(false, mkinode(m8, md1, true, m10, m11, m0))][m, mkientry(false, mkinode(m, md5, true, m13, m14, m12))][ino].inode.ino = ino ∧ (icache0[m8, mkientry(false, mkinode(m8, md1, true, m10, m11, m0))][m, mkientry(false, mkinode(m, md5, true, m13, m14, m12))][ino].dirty ⊃ icache0[m8, mkientry(false, mkinode(m8, md1, true, m10, m11, m0))][m, mkientry(false, mkinode(m, md5, true, m13, m14, m12))][ino].inode.ino ∈ files ∧ icache0[m8, mkientry(false, mkinode(m8, md1, true, m10, m11, m0))][m, mkientry(false, mkinode(m, md5, true, m13, m14, m12))][ino].inode .nlink = files [icache0[m8, mkientry(false, mkinode(m8, md1, true, m10, m11, m0))][m, mkientry(false, mkinode(m, md5, true, m13, m14, m12))][ino].inode.ino ] .nlink ∧ icache0[m8, mkientry(false, mkinode(m8, md1, true, m10, m11, m0))][m, mkientry(false, mkinode(m, md5, true, m13, m14, m12))][ino].inode .nsubdirs = 0 ∧ ¬ icache0[m8, mkientry(false, mkinode(m8, md1, true, m10, m11, m0))][m, mkientry(false, mkinode(m, md5, true, m13, m14, m12))][ino].inode .directory ; (ino ∈ dirs0 ∨ ino ∈ files) ∧ icache0[m8, mkientry(false, mkinode(m8, md1, true, m10, m11, m0))][m, mkientry(false, mkinode(m, md5, true, m13, m14, m12))][ino].inode = ( icache0[m8, mkientry(false, mkinode(m8, md1, true, m10, m11, m0))][m, mkientry(false, mkinode(m, md5, true, m13, m14, m12))][ino].inode .ino ∈ dirs0 ⊃ mkinode (icache0[m8, mkientry(false, mkinode(m8, md1, true, m10, m11, m0))][m, mkientry(false, mkinode(m, md5, true, m13, m14, m12))][ino].inode .ino, ( icache0[m8, mkientry(false, mkinode(m8, md1, true, m10, m11, m0))][m, mkientry(false, mkinode(m, md5, true, m13, m14, m12))][ino].inode .ino = m ⊃ mkdir(m12, md5, m13, m14, entries3) ;( icache0[m8, mkientry(false, mkinode(m8, md1, true, m10, m11, m0))][m, mkientry(false, mkinode(m, md5, true, m13, m14, m12))][ino] .inode .ino = m8 ⊃ mkdir(m2, md0, # links(m8, dirs0), m5, entries -- str) ;dirs0 [icache0[m8, mkientry(false, mkinode(m8, md1, true, m10, m11, m0))][m, mkientry(false, mkinode(m, md5, true, m13, m14, m12))][ino].inode .ino ] ) ) .meta, true, ( icache0[m8, mkientry(false, mkinode(m8, md1, true, m10, m11, m0))][m, mkientry(false, mkinode(m, md5, true, m13, m14, m12))][ino].inode .ino = m ⊃ mkdir(m12, md5, m13, m14, entries3) ;( icache0[m8, mkientry(false, mkinode(m8, md1, true, m10, m11, m0))][m, mkientry(false, mkinode(m, md5, true, m13, m14, m12))][ino] .inode .ino = m8 ⊃ mkdir(m2, md0, # links(m8, dirs0), m5, entries -- str) ;dirs0 [icache0[m8, mkientry(false, mkinode(m8, md1, true, m10, m11, m0))][m, mkientry(false, mkinode(m, md5, true, m13, m14, m12))][ino].inode .ino ] ) ) .nlink, ( icache0[m8, mkientry(false, mkinode(m8, md1, true, m10, m11, m0))][m, mkientry(false, mkinode(m, md5, true, m13, m14, m12))][ino].inode .ino = m ⊃ mkdir(m12, md5, m13, m14, entries3) ;( icache0[m8, mkientry(false, mkinode(m8, md1, true, m10, m11, m0))][m, mkientry(false, mkinode(m, md5, true, m13, m14, m12))][ino] .inode .ino = m8 ⊃ mkdir(m2, md0, # links(m8, dirs0), m5, entries -- str) ;dirs0 [icache0[m8, mkientry(false, mkinode(m8, md1, true, m10, m11, m0))][m, mkientry(false, mkinode(m, md5, true, m13, m14, m12))][ino].inode .ino ] ) ) .nsubdirs, ( icache0[m8, mkientry(false, mkinode(m8, md1, true, m10, m11, m0))][m, mkientry(false, mkinode(m, md5, true, m13, m14, m12))][ino].inode .ino = m ⊃ mkdir(m12, md5, m13, m14, entries3) ;( icache0[m8, mkientry(false, mkinode(m8, md1, true, m10, m11, m0))][m, mkientry(false, mkinode(m, md5, true, m13, m14, m12))][ino] .inode .ino = m8 ⊃ mkdir(m2, md0, # links(m8, dirs0), m5, entries -- str) ;dirs0 [icache0[m8, mkientry(false, mkinode(m8, md1, true, m10, m11, m0))][m, mkientry(false, mkinode(m, md5, true, m13, m14, m12))][ino].inode .ino ] ) ) .size) ;mkinode (icache0[m8, mkientry(false, mkinode(m8, md1, true, m10, m11, m0))][m, mkientry(false, mkinode(m, md5, true, m13, m14, m12))][ino].inode.ino, files [icache0[m8, mkientry(false, mkinode(m8, md1, true, m10, m11, m0))][m, mkientry(false, mkinode(m, md5, true, m13, m14, m12))][ino].inode .ino ] .meta, false, files [icache0[m8, mkientry(false, mkinode(m8, md1, true, m10, m11, m0))][m, mkientry(false, mkinode(m, md5, true, m13, m14, m12))][ino].inode .ino ] .nlink, 0, files [icache0[m8, mkientry(false, mkinode(m8, md1, true, m10, m11, m0))][m, mkientry(false, mkinode(m, md5, true, m13, m14, m12))][ino].inode .ino ] .size) ) )
Used simplifier rules: ⊦ mkdir(m, md, m0, m1, entries).meta:= md0 = mkdir(m, md0, m0, m1, entries); (s)% ⊦ dirs[ino, ad][ino0] = (ino0 = ino ∧ ino ∈ dirs ⊃ ad;dirs[ino0]); (s)%⊦ getinode(ino, dirs, files) = (ino ∈ dirs ⊃ mkinode (ino, dirs[ino].meta, true, dirs[ino].nlink, dirs[ino].nsubdirs, dirs[ino].size) ;mkinode (ino, files[ino].meta, false, files[ino].nlink, 0, files[ino].size) ); (s)%⊦ valid-inode(inode, dirs, files) ↔ inode = getinode(inode.ino, dirs, files); (s)% ⊦ ino ∈ dirs[ino0, ad] ↔ ino ∈ dirs; (s)% ⊦ valid-ino(ino, dirs, files) ↔ ino ∈ dirs ∨ ino ∈ files; (s)% ⊦ valid-file-ino(ino, dirs, files) ↔ ino ∈ files; (s)%⊦ valid-file-inode(inode, dirs, files) ↔ valid-file-ino(inode.ino, dirs, files) ∧ inode.nlink = files[inode.ino].nlink ∧ inode.nsubdirs = 0 ∧ ¬ inode.directory; (s)