| files1 -- ino = files0 -- ino, files0[ino] = mkfile(m1, md1, n2, content0), files1[ino] = mkfile(m1, md1, # links(ino, dirs), content1), afs-cons(dirs, files1), write-inv(n0, n1, buf, n, content0, content1), ino ∈ files0, ino ∈ files1, n0 + n ≤ n1, n1 ≤ # buf + n0, n ≤ # buf ⊦ content1.stream = (content0.stream to n0) + (⌜buf⌝ to n) + (content0.stream from n0 + n) |
⊦ write-inv(n0, n1, buf, n, content0, content1) ↔ content1.stream = (content0.stream to n0) + (⌜buf⌝ to n) + (content0.stream from n0 + n)
Used simplifier rules: append-assoc: ⊦ (σ0 + σ3) + σ4 = σ0 + σ3 + σ4; from specification stream[buffer-inf] Used terms: content1, content0, n, buf, n1, n0