| (m5 = entries0[str] ⊃ mkdir(m3, md0, m7, m6, entries);mkdir(m0 - 1, md, # links(m5, dirs0), m2 - 1, entries0 -- str)) = mkdir(m10, md5, m11, m12, entries2), (entries0[str] = m5 ⊃ mkdir(m3, md, m7, m6, entries);mkdir(m3, md2, m7, m6, entries)) = mkdir(m, md4, m8, m9, entries1), (entries0[str] = m5 ⊃ mkdir(m0 - 1, md1, # links(entries0[str], dirs0), m2 - 1, entries0 -- str) ;mkdir(m1, md3, # links(entries0[str], dirs0), m4, ∅) ) = mkdir(m3, md2, m7 + 1, m6, entries), dirs0[m5] = mkdir(m0, md1, # links(m5, dirs0), m2, entries0), dirs0[entries0[str]] = mkdir(m1, md3, # links(entries0[str], dirs0), m4, ∅), afs-cons (dirs0[m5, (m5 = entries0[str] ⊃ mkdir(m3, md2, m7, m6, entries);mkdir(m0 - 1, md1, # links(m5, dirs0), m2 - 1, entries0 -- str)).meta:= md] [entries0[str], mkdir(m, md0, m8, m9, entries1) ], files), afs-cons(dirs0, files), icache-cons(icache0, dirs0, files), synced(dirs0, icache0, pcache), m5 ∈ dirs0, str ∈ entries0, entries0[str] ∈ dirs0, 1 ≤ m0, 1 ≤ m2, asynced1 → synced(files, icache0, pcache), links(m5, dirs0) ≠ ∅ ∨ m5 = ROOT_INO ⊦ entries0[str] = ROOT_INO, m0 = 0, m2 = 0, ∀ ino. ino ∈ icache0[entries0[str], mkientry(false, mkinode(entries0[str], md0, true, m8, m9, m))] [m5, mkientry(false, mkinode(m5, md5, true, m11, m12, m10)) ] → icache0[entries0[str], mkientry(false, mkinode(entries0[str], md0, true, m8, m9, m))] [m5, mkientry(false, mkinode(m5, md5, true, m11, m12, m10)) ] [ino ] .inode .ino = ino ∧ (icache0[entries0[str], mkientry(false, mkinode(entries0[str], md0, true, m8, m9, m))] [m5, mkientry(false, mkinode(m5, md5, true, m11, m12, m10)) ] [ino ] .dirty ⊃ valid-file-inode (icache0[entries0[str], mkientry(false, mkinode(entries0[str], md0, true, m8, m9, m))] [m5, mkientry(false, mkinode(m5, md5, true, m11, m12, m10)) ] [ino ] .inode, dirs0 [m5, (m5 = entries0[str] ⊃ mkdir(m3, md2, m7, m6, entries);mkdir(m0 - 1, md1, # links(m5, dirs0), m2 - 1, entries0 -- str)).meta:= md ] [entries0[str], mkdir(m, md0, m8, m9, entries1) ], files) ; valid-ino (ino, dirs0 [m5, (m5 = entries0[str] ⊃ mkdir(m3, md2, m7, m6, entries);mkdir(m0 - 1, md1, # links(m5, dirs0), m2 - 1, entries0 -- str)).meta:= md ] [entries0[str], mkdir(m, md0, m8, m9, entries1) ], files) ∧ valid-inode (icache0[entries0[str], mkientry(false, mkinode(entries0[str], md0, true, m8, m9, m))] [m5, mkientry(false, mkinode(m5, md5, true, m11, m12, m10)) ] [ino ] .inode, dirs0 [m5, (m5 = entries0[str] ⊃ mkdir(m3, md2, m7, m6, entries);mkdir(m0 - 1, md1, # links(m5, dirs0), m2 - 1, entries0 -- str)).meta:= md ] [entries0[str], mkdir(m, md0, m8, m9, entries1) ], files) ) |
(entries0[str] = m5 ⊃ mkdir(m0 - 1, md1, # links(entries0[str], dirs0), m2 - 1, entries0 -- str) ;mkdir(m1, md3, # links(entries0[str], dirs0), m4, ∅) ) = mkdir(m3, md2, m7 + 1, m6, entries), (entries0[str] = m5 ⊃ mkdir(m3, md, m7, m6, entries);mkdir(m3, md2, m7, m6, entries)) = mkdir(m, md4, m8, m9, entries1), (m5 = entries0[str] ⊃ mkdir(m3, md0, m7, m6, entries);mkdir(m0 - 1, md, # links(m5, dirs0), m2 - 1, entries0 -- str)) = mkdir(m10, md5, m11, m12, entries2), dirs0[entries0[str]] = mkdir(m1, md3, # links(entries0[str], dirs0), m4, ∅), dirs0[m5] = mkdir(m0, md1, # links(m5, dirs0), m2, entries0), afs-cons(dirs0, files), afs-cons (dirs0[m5, (m5 = entries0[str] ⊃ mkdir(m3, md2, m7, m6, entries);mkdir(m0 - 1, md1, # links(m5, dirs0), m2 - 1, entries0 -- str)).meta:= md] [entries0[str], mkdir(m, md0, m8, m9, entries1) ], files), icache-cons(icache0, dirs0, files), synced(dirs0, icache0, pcache), ino ∈ icache0[entries0[str], mkientry(false, mkinode(entries0[str], md0, true, m8, m9, m))][m5, mkientry(false, mkinode(m5, md5, true, m11, m12, m10))], entries0[str] ∈ dirs0, str ∈ entries0, m5 ∈ dirs0, 1 ≤ m2, 1 ≤ m0, asynced1 → synced(files, icache0, pcache), links(m5, dirs0) ≠ ∅ ∨ m5 = ROOT_INO ⊦ entries0[str] = ROOT_INO, m0 = 0, m2 = 0, icache0[entries0[str], mkientry(false, mkinode(entries0[str], md0, true, m8, m9, m))] [m5, mkientry(false, mkinode(m5, md5, true, m11, m12, m10)) ] [ino ] .inode .ino = ino ∧ (icache0[entries0[str], mkientry(false, mkinode(entries0[str], md0, true, m8, m9, m))][m5, mkientry(false, mkinode(m5, md5, true, m11, m12, m10))] [ino ] .dirty ⊃ icache0[entries0[str], mkientry(false, mkinode(entries0[str], md0, true, m8, m9, m))] [m5, mkientry(false, mkinode(m5, md5, true, m11, m12, m10)) ] [ino ] .inode .ino ∈ files ∧ icache0[entries0[str], mkientry(false, mkinode(entries0[str], md0, true, m8, m9, m))] [m5, mkientry(false, mkinode(m5, md5, true, m11, m12, m10)) ] [ino ] .inode .nlink = files [icache0[entries0[str], mkientry(false, mkinode(entries0[str], md0, true, m8, m9, m))] [m5, mkientry(false, mkinode(m5, md5, true, m11, m12, m10)) ] [ino ] .inode .ino ] .nlink ∧ icache0[entries0[str], mkientry(false, mkinode(entries0[str], md0, true, m8, m9, m))] [m5, mkientry(false, mkinode(m5, md5, true, m11, m12, m10)) ] [ino ] .inode .nsubdirs = 0 ∧ ¬ icache0[entries0[str], mkientry(false, mkinode(entries0[str], md0, true, m8, m9, m))] [m5, mkientry(false, mkinode(m5, md5, true, m11, m12, m10)) ] [ino ] .inode .directory ; (ino ∈ dirs0 ∨ ino ∈ files) ∧ icache0[entries0[str], mkientry(false, mkinode(entries0[str], md0, true, m8, m9, m))] [m5, mkientry(false, mkinode(m5, md5, true, m11, m12, m10)) ] [ino ] .inode = ( icache0[entries0[str], mkientry(false, mkinode(entries0[str], md0, true, m8, m9, m))] [m5, mkientry(false, mkinode(m5, md5, true, m11, m12, m10)) ] [ino ] .inode .ino ∈ dirs0 ⊃ mkinode (icache0[entries0[str], mkientry(false, mkinode(entries0[str], md0, true, m8, m9, m))] [m5, mkientry(false, mkinode(m5, md5, true, m11, m12, m10)) ] [ino ] .inode .ino, ( icache0[entries0[str], mkientry(false, mkinode(entries0[str], md0, true, m8, m9, m))] [m5, mkientry(false, mkinode(m5, md5, true, m11, m12, m10)) ] [ino ] .inode .ino = entries0[str] ⊃ mkdir(m, md0, m8, m9, entries1) ;( icache0[entries0[str], mkientry(false, mkinode(entries0[str], md0, true, m8, m9, m))] [m5, mkientry(false, mkinode(m5, md5, true, m11, m12, m10)) ] [ino ] .inode .ino = m5 ⊃ mkdir(m0 - 1, md, # links(m5, dirs0), m2 - 1, entries0 -- str) ;dirs0 [icache0[entries0[str], mkientry(false, mkinode(entries0[str], md0, true, m8, m9, m))] [m5, mkientry(false, mkinode(m5, md5, true, m11, m12, m10)) ] [ino ] .inode .ino ] ) ) .meta, true, ( icache0[entries0[str], mkientry(false, mkinode(entries0[str], md0, true, m8, m9, m))] [m5, mkientry(false, mkinode(m5, md5, true, m11, m12, m10)) ] [ino ] .inode .ino = entries0[str] ⊃ mkdir(m, md0, m8, m9, entries1) ;( icache0[entries0[str], mkientry(false, mkinode(entries0[str], md0, true, m8, m9, m))] [m5, mkientry(false, mkinode(m5, md5, true, m11, m12, m10)) ] [ino ] .inode .ino = m5 ⊃ mkdir(m0 - 1, md, # links(m5, dirs0), m2 - 1, entries0 -- str) ;dirs0 [icache0[entries0[str], mkientry(false, mkinode(entries0[str], md0, true, m8, m9, m))] [m5, mkientry(false, mkinode(m5, md5, true, m11, m12, m10)) ] [ino ] .inode .ino ] ) ) .nlink, ( icache0[entries0[str], mkientry(false, mkinode(entries0[str], md0, true, m8, m9, m))] [m5, mkientry(false, mkinode(m5, md5, true, m11, m12, m10)) ] [ino ] .inode .ino = entries0[str] ⊃ mkdir(m, md0, m8, m9, entries1) ;( icache0[entries0[str], mkientry(false, mkinode(entries0[str], md0, true, m8, m9, m))] [m5, mkientry(false, mkinode(m5, md5, true, m11, m12, m10)) ] [ino ] .inode .ino = m5 ⊃ mkdir(m0 - 1, md, # links(m5, dirs0), m2 - 1, entries0 -- str) ;dirs0 [icache0[entries0[str], mkientry(false, mkinode(entries0[str], md0, true, m8, m9, m))] [m5, mkientry(false, mkinode(m5, md5, true, m11, m12, m10)) ] [ino ] .inode .ino ] ) ) .nsubdirs, ( icache0[entries0[str], mkientry(false, mkinode(entries0[str], md0, true, m8, m9, m))] [m5, mkientry(false, mkinode(m5, md5, true, m11, m12, m10)) ] [ino ] .inode .ino = entries0[str] ⊃ mkdir(m, md0, m8, m9, entries1) ;( icache0[entries0[str], mkientry(false, mkinode(entries0[str], md0, true, m8, m9, m))] [m5, mkientry(false, mkinode(m5, md5, true, m11, m12, m10)) ] [ino ] .inode .ino = m5 ⊃ mkdir(m0 - 1, md, # links(m5, dirs0), m2 - 1, entries0 -- str) ;dirs0 [icache0[entries0[str], mkientry(false, mkinode(entries0[str], md0, true, m8, m9, m))] [m5, mkientry(false, mkinode(m5, md5, true, m11, m12, m10)) ] [ino ] .inode .ino ] ) ) .size) ;mkinode (icache0[entries0[str], mkientry(false, mkinode(entries0[str], md0, true, m8, m9, m))] [m5, mkientry(false, mkinode(m5, md5, true, m11, m12, m10)) ] [ino ] .inode .ino, files [icache0[entries0[str], mkientry(false, mkinode(entries0[str], md0, true, m8, m9, m))] [m5, mkientry(false, mkinode(m5, md5, true, m11, m12, m10)) ] [ino ] .inode .ino ] .meta, false, files [icache0[entries0[str], mkientry(false, mkinode(entries0[str], md0, true, m8, m9, m))] [m5, mkientry(false, mkinode(m5, md5, true, m11, m12, m10)) ] [ino ] .inode .ino ] .nlink, 0, files [icache0[entries0[str], mkientry(false, mkinode(entries0[str], md0, true, m8, m9, m))] [m5, mkientry(false, mkinode(m5, md5, true, m11, m12, m10)) ] [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)