| cache_files[m] = mkfile(m0, md0, # links(m, cache_dirs), content), afs_files = (cache_files ⊕ cache_pcache) ⊕ cache_icache, cache_dirs0 = cache_dirs, afs-cons(cache_dirs, (cache_files ⊕ cache_pcache) ⊕ cache_icache), afs-cons(cache_dirs, cache_files), dcache-cons(cache_dcache, cache_dirs, cache_files), icache-cons(cache_icache, cache_dirs, cache_files), pcache-cons(cache_pcache, cache_dirs, cache_files), synced(cache_dirs, cache_icache, cache_pcache), m ∈ cache_files, ¬ m ∈ cache_icache ⊦ ⟨afs_write_inode#(mkinode(m, md, false, # links(m, cache_dirs), 0, m2); err0, cache_dirs, afs_files; afs_asynced)⟩ (cache_dirs = cache_dirs0 ∧ afs_files = (cache_files ⊕ cache_pcache) ⊕ cache_icache ∧ (afs_asynced ↔ asynced1) ∧ EFAIL = err0) |
cache_files[m] = mkfile(m0, md0, # links(m, cache_dirs), content), afs_files = (cache_files ⊕ cache_pcache) ⊕ cache_icache, cache_dirs0 = cache_dirs, dirs = cache_dirs, err = err0, files = afs_files, inode = mkinode(m, md, false, # links(m, cache_dirs), 0, m2), afs-cons(cache_dirs, cache_files), afs-cons(cache_dirs, (cache_files ⊕ cache_pcache) ⊕ cache_icache), dcache-cons(cache_dcache, cache_dirs, cache_files), icache-cons(cache_icache, cache_dirs, cache_files), pcache-cons(cache_pcache, cache_dirs, cache_files), synced(cache_dirs, cache_icache, cache_pcache), m ∈ cache_files ⊦ ⟨if pre-write-inode(inode, dirs, files) then { {if inode.directory then dirs[inode.ino].meta := inode.meta else {files[inode.ino].meta := inode.meta; files[inode.ino].size := inode.size}; err := ESUCCESS} or fail#(; ; err); asynced := ?} else abort⟩ (dirs = cache_dirs0 ∧ files = (cache_files ⊕ cache_pcache) ⊕ cache_icache ∧ (asynced ↔ asynced1) ∧ EFAIL = err), m ∈ cache_icache
Used simplifier rules: afs_write_inode#(INODE; ERR, DIRS, FILES; ASYNCED) {if pre-write-inode(INODE, DIRS, FILES) then { {if INODE.directory then DIRS[INODE.ino].meta := INODE.meta else {FILES[INODE.ino].meta := INODE.meta; FILES[INODE.ino].size := INODE.size}; ERR := ESUCCESS} or fail#(; ; ERR); ASYNCED := ?} else abort };