| ((abs(tree, ino) * abs(sdt, sdi) * D))(dirs) ⊦ ((abs(sdt[str, tree], sdi[str, ino]) * D))(dirs), str ∈ sdi, str ∈ sdt |
⊦ ¬ name ∈ sdt → abs(sdt[name, tree], entries) = (⌜name ∈ entries⌝ ∧ abs(tree, entries[name]) * abs(sdt, entries -- name))
⊦ ((abs(sdt, sdi) * D))(dirs) ∧ ¬ str ∈ sdt → sdi -- str = sdi
Used simplifier rules: abs-rec: ⊦ ¬ name ∈ sdt → abs(sdt[name, tree], entries) = ( ⌜name ∈ entries⌝ ∧ abs(tree, entries[name]) * abs(sdt, entries -- name));%entries-del: ⊦ ((abs(sdt, sdi) * D))(dirs) ∧ ¬ str ∈ sdt → sdi -- str = sdi;%and-com: ⊦ (D ∧ D0) = (D0 ∧ D); from specification heap-sep[dir-heap]%and-ass: ⊦ ((D ∧ D0) ∧ D1) = (D ∧ D0 ∧ D1); from specification heap-sep[dir-heap]% ⊦ (true ∧ D) = D; (s)%sep-com: ⊦ D * D0 = D0 * D; from specification heap-sep[dir-heap]%sep-ass: ⊦ (D * D0) * D1 = D * D0 * D1; from specification heap-sep[dir-heap]% ⊦ entries[str, ino] -- str = entries -- str; (s)% ⊦ entries[str, ino][str] = ino; (s)% ⊦ ⌜true⌝ = true; (s)% ⊦ str ∈ entries[str, ino]; (s)