| # buf = VFS_PAGE_SIZE, afs_files = (cache_files ⊕ cache_pcache) ⊕ cache_icache, 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 ⊦ ⟨afs_writepage#(mkinode(m, md, boolvar, m0, m1, m2), pageno, buf, cache_dirs; err0, afs_files; afs_asynced)⟩ (afs_files = (cache_files ⊕ cache_pcache[datakey(m, pageno), mkpentry(true, buf)]) ⊕ cache_icache ∧ (afs_asynced ↔ asynced0) ∧ ESUCCESS = err0) |
# buf = VFS_PAGE_SIZE, afs_files = (cache_files ⊕ cache_pcache) ⊕ cache_icache, dirs = cache_dirs, err = err0, files = afs_files, inode = mkinode(m, md, boolvar, m0, m1, m2), 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 ⊦ ⟨if pre-writepage(inode, pageno, buf, dirs, files) then {{files[inode.ino].content[pageno] := buf; err := ESUCCESS} or fail#(; ; err); asynced := ?} else abort⟩ (files = (cache_files ⊕ cache_pcache[datakey(m, pageno), mkpentry(true, buf)]) ⊕ cache_icache ∧ (asynced ↔ asynced0) ∧ ESUCCESS = err)
Used simplifier rules: afs_writepage#(INODE, PAGENO, PBUF, DIRS; ERR, FILES; ASYNCED) {if pre-writepage(INODE, PAGENO, PBUF, DIRS, FILES) then { {FILES[INODE.ino].content[PAGENO] := PBUF; ERR := ESUCCESS} or fail#(; ; ERR); ASYNCED := ?} else abort };