| dirs0[m1] = mkdir(m0, md2, # links(m1, dirs0), m4, entries1), afs-cons(dirs0[m1, mkdir(m0 + 1, md1, # links(m1, dirs0), m4, entries1[str, ino0])], (files0 ++ ino0)[ino0, mkfile(0, md, 1, ∅)]), afs-cons(dirs0, files0), dcache-cons(dcache, dirs0, files0), synced(dirs0, icache0, pcache), m1 ∈ dirs0, asynced1 → synced(files0, icache0, pcache), links(m1, dirs0) ≠ ∅ ∨ m1 = ROOT_INO ⊦ ino0 = 0, str ∈ entries1, ino0 ∈ files0, ino0 ∈ dirs0, ∀ key. key ∈ dcache[dentrykey(m1, str), mkdentry(str, ino0)] → key.dentry? ∧ key.name = dcache[dentrykey(m1, str), mkdentry(str, ino0)][key].name ∧ valid-dentry (key.ino, dcache[dentrykey(m1, str), mkdentry(str, ino0)][key], dirs0[m1, mkdir(m0 + 1, md1, # links(m1, dirs0), m4, entries1[str, ino0])], (files0 ++ ino0)[ino0, mkfile(0, md, 1, ∅)]) |
dirs0[m1] = mkdir(m0, md2, # links(m1, dirs0), m4, entries1), afs-cons(dirs0, files0), afs-cons(dirs0[m1, mkdir(m0 + 1, md1, # links(m1, dirs0), m4, entries1[str, ino0])], (files0 ++ ino0)[ino0, mkfile(0, md, 1, ∅)]), dcache-cons(dcache, dirs0, files0), synced(dirs0, icache0, pcache), key ∈ dcache[dentrykey(m1, str), mkdentry(str, ino0)], m1 ∈ dirs0, asynced1 → synced(files0, icache0, pcache), links(m1, dirs0) ≠ ∅ ∨ m1 = ROOT_INO ⊦ ino0 = 0, ino0 ∈ dirs0, ino0 ∈ files0, str ∈ entries1, key.dentry? ∧ key.name = dcache[dentrykey(m1, str), mkdentry(str, ino0)][key].name ∧ key.ino ∈ dirs0 ∧ (links(key.ino, dirs0) ≠ ∅ ∨ key.ino = ROOT_INO) ∧ ( dcache[dentrykey(m1, str), mkdentry(str, ino0)][key].ino ∈ dirs0 ∨ dcache[dentrykey(m1, str), mkdentry(str, ino0)][key].ino = ino0 ∨ dcache[dentrykey(m1, str), mkdentry(str, ino0)][key].ino ∈ files0) ∧ dcache[dentrykey(m1, str), mkdentry(str, ino0)][key].name ∈ (key.ino = m1 ⊃ mkdir(m0 + 1, md1, # links(key.ino, dirs0), m4, entries1[str, ino0]);dirs0[key.ino]).entries ∧ dcache[dentrykey(m1, str), mkdentry(str, ino0)][key].ino = (key.ino = m1 ⊃ mkdir(m0 + 1, md1, # links(key.ino, dirs0), m4, entries1[str, ino0]);dirs0[key.ino]).entries [dcache[dentrykey(m1, str), mkdentry(str, ino0)][key].name ] ∧ dcache[dentrykey(m1, str), mkdentry(str, ino0)][key].dentry?
Used simplifier rules: ⊦ dirs[ino, ad][ino0] = (ino0 = ino ∧ ino ∈ dirs ⊃ ad;dirs[ino0]); (s)%ino ≠ 0, ¬ ino ∈ files ⊦ ino0 ∈ files ++ ino ↔ ino0 = ino ∨ ino0 ∈ files; (s)% ⊦ ino ∈ files[ino0, af] ↔ ino ∈ files; (s)% ⊦ valid-ino(ino, dirs, files) ↔ ino ∈ dirs ∨ ino ∈ files; (s)%⊦ ino ∈ dirs ∧ dirs[ino] = mkdir(m0, md0, n1, n2, entries) → links(ino0, dirs[ino, mkdir(m, md, n, n0, entries)]) = links(ino0, dirs); (s)%⊦ p_ino ∈ dirs → links (ino0, dirs[p_ino, mkdir(m0, md, n, n0, entries[str, ino])]) = (ino = ino0 ⊃ links(ino0, dirs[p_ino, mkdir(m0, md, n, n0, entries)]) ++ mklink(p_ino, str) ;(str ∈ entries ∧ entries[str] = ino0 ⊃ links(ino0, dirs[p_ino, mkdir(m0, md, n, n0, entries)]) -- mklink(p_ino, str) ;links(ino0, dirs[p_ino, mkdir(m0, md, n, n0, entries)]) ) ); (s)% ⊦ ino ∈ dirs[ino0, ad] ↔ ino ∈ dirs; (s)%⊦ valid-parent-ino(ino, dirs, files) ↔ ino ∈ dirs ∧ (links(ino, dirs) ≠ ∅ ∨ ino = ROOT_INO); (s)%⊦ valid-dentry(ino, dent, dirs, files) ↔ valid-parent-ino(ino, dirs, files) ∧ valid-ino(dent.ino, dirs, files) ∧ dent.name ∈ dirs[ino].entries ∧ dent.ino = dirs[ino].entries[dent.name] ∧ dent.dentry?; (s)