| files1 -- ino = files0 -- ino, files0[ino] = mkfile(m, md, m3, content0), files1[ino] = mkfile(m, md, # links(ino, dirs), content), afs-cons(dirs, files1), write-inv(0, n1, buf, n, content0, content), ino ∈ files0, ino ∈ files1, n ≤ n1, n1 ≤ # buf, n ≤ # buf, ⌊err0⌋ ⊦ write-inv(0, n1, mkinode(ino, md, false, # links(ino, dirs), 0, m), buf, n, dirs, files0, files1) |
⊦ write-inv(n0, n1, inode, buf, n, dirs, files0, files1) ↔ afs-cons(dirs, files1) ∧ inode.ino ∈ files0 ∧ inode.ino ∈ files1 ∧ files0[inode.ino].size = inode.size ∧ files1[inode.ino].size = files0[inode.ino].size ∧ files1[inode.ino].meta = files0[inode.ino].meta ∧ files1 -- inode.ino = files0 -- inode.ino ∧ n0 + n ≤ n1 ∧ n1 - n0 ≤ # buf ∧ write-inv(n0, n1, buf, n, files0[inode.ino].content, files1[inode.ino].content)
Used simplifier rules: ⊦ mkinode(m, md, boolvar, m0, m1, m2).ino = m; (s)% ⊦ mkinode(m, md, boolvar, m0, m1, m2).size = m2; (s)% ⊦ n + 0 = n; (s)%a: ⊦ (m + n0) + n1 = m + n0 + n1; from specification nat-basic%c: ⊦ m + n = n + m; from specification nat-basic% ⊦ m - 0 = m; (s)% ⊦ mkfile(m, md, m0, content).size = m; (s)% ⊦ mkfile(m, md, m0, content).meta = md; (s)% ⊦ mkfile(m, md, m0, content).content = content; (s) Used terms: files1, files0, dirs, n, buf, mkinode(ino, md, false, # links(ino, dirs), 0, m), n1, 0