| cache_dirs[m] = mkdir(m0, md0, m1, m2, entries), afs_files = (cache_files ⊕ cache_pcache) ⊕ cache_icache, err = ESUCCESS, m1 = 0, 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_dirs, cache_sync → synced(cache_files, cache_icache, cache_pcache) ⊦ ⟪icache_delete#(m; err, cache_icache); boolvar := true; if ¬ boolvar then pcache_evict#(m; err, cache_pcache)⟫ ⟨cache_dirs0 := cache_dirs; afs_evict#(mkinode(m, md, boolvar, 0, m2, m0), cache_asynced; err0, cache_dirs, afs_files)⟩ (cache_dirs = cache_dirs0 -- m ∧ afs_files = (cache_files ⊕ cache_pcache) ⊕ cache_icache ∧ err = err0), m = ROOT_INO |
# links(m, cache_dirs) = 0, cache_dirs[m] = mkdir(m0, md0, 0, m2, entries), afs_files = (cache_files ⊕ cache_pcache) ⊕ cache_icache, err = ESUCCESS, m ≠ ROOT_INO, 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_dirs, cache_sync → synced(cache_files, cache_icache, cache_pcache) ⊦ ⟪icache_delete#(m; err, cache_icache); boolvar := true; if ¬ boolvar then pcache_evict#(m; err, cache_pcache)⟫ ⟨cache_dirs0 := cache_dirs; afs_evict#(mkinode(m, md, boolvar, 0, m2, m0), cache_asynced; err0, cache_dirs, afs_files)⟩ (cache_dirs = cache_dirs0 -- m ∧ afs_files = (cache_files ⊕ cache_pcache) ⊕ cache_icache ∧ err = err0)
Used simplifier rules: ⊦ mkdir(m, md, m0, m1, entries).nlink = m0; (s)% ⊦ afs-cons(dirs, files) ∧ ino ∈ dirs → ¬ ino ∈ files; (s)%⊦ afs-cons(dirs, files) → ( links(ino, dirs) = ∅ ↔ (ino ∈ dirs → dirs[ino].nlink = 0) ∧ (ino ∈ files → files[ino].nlink = 0)); (ws)%size-zero-02: ⊦ # ls = 0 → ls = ∅; (forward) from specification set-basic[alink-set]%afs-cons-dir-nlink: ⊦ afs-cons(dirs, files) ∧ ino ∈ dirs ∧ dirs[ino] = mkdir(n0, md, n, n1, entries) → # links(ino, dirs) = n; (forward) from specification afs-base