| asynced ↔ asynced0, err = ESUCCESS, name = dent.name, afs-cons(dirs, files), dcache-cons(dcache, dirs, files), icache-cons(icache, dirs, files), pcache-cons(pcache, dirs, files), synced(dirs, icache, pcache), p_ino ∈ dirs, asynced1 → synced(files, icache, pcache), links(p_ino, dirs) ≠ ∅ ∨ p_ino = ROOT_INO ⊦ ⟪if pre-lookup(p_ino, dent, dirs, files) then { if dent.name ∈ dirs[p_ino].entries then {dent := mkdentry(dent.name, dirs[p_ino].entries[dent.name]); err := ESUCCESS} else {dent := negdentry(dent.name); err := ENOENT} or fail#(; ; err)} else abort; if err = ESUCCESS then dcache_set#(p_ino, name, dent; err, dcache)⟫ dcache-cons(dcache, dirs, files), dentrykey(p_ino, dent.name) ∈ dcache |
asynced ↔ asynced0, err = ESUCCESS, name = dent.name, afs-cons(dirs, files), dcache-cons(dcache, dirs, files), icache-cons(icache, dirs, files), pcache-cons(pcache, dirs, files), synced(dirs, icache, pcache), p_ino ∈ dirs, asynced1 → synced(files, icache, pcache), links(p_ino, dirs) ≠ ∅ ∨ p_ino = ROOT_INO ⊦ ⟪ if dent.name ∈ dirs[p_ino].entries then {dent := mkdentry(dent.name, dirs[p_ino].entries[dent.name]); err := ESUCCESS} else {dent := negdentry(dent.name); err := ENOENT} or fail#(; ; err); if err = ESUCCESS then dcache_set#(p_ino, name, dent; err, dcache)⟫ dcache-cons(dcache, dirs, files), dentrykey(p_ino, dent.name) ∈ dcache
Used simplifier rules: ⊦ pre-lookup(p_ino, dent, dirs, files) ↔ valid-parent-ino(p_ino, dirs, files); (s)%⊦ valid-parent-ino(ino, dirs, files) ↔ ino ∈ dirs ∧ (links(ino, dirs) ≠ ∅ ∨ ino = ROOT_INO); (s)