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