| files1 -- ino = files0 -- ino, files0[ino] = mkfile(m1, md1, n2, content0), files1[ino] = mkfile(m1, md1, # links(ino, dirs), content1), content0.stream from m1 = σ⊥, afs-cons(dirs, files1), ino ∈ files1, ino ∈ files0, n ≤ # buf, n1 ≤ # buf + n0, n0 + n ≤ n1, n0 + n ≤ # (content0.stream to m1).buf ⊦ n = 0, max(m1, n0 + n) = (m1 < n0 + n ⊃ n0 + n;m1) ∧ ( n3 < max(m1, n0 + n) → copy(buf, 0, (content0.stream to m1).buf, n0, n)[n3] = ((content0.stream to n0) + (⌜buf⌝ to n) + (content0.stream from n0 + n))[n3]) |
files1 -- ino = files0 -- ino, files0[ino] = mkfile(m1, md1, n2, content0), files1[ino] = mkfile(m1, md1, # links(ino, dirs), content1), content0.stream from m1 = σ⊥, n3 < m1, afs-cons(dirs, files1), ino ∈ files1, ino ∈ files0, n0 + n ≤ m1, n ≤ # buf, n1 ≤ # buf + n0, n0 + n ≤ n1 ⊦ copy(buf, 0, (content0.stream to m1).buf, n0, n)[n3] = ((content0.stream to n0) + (⌜buf⌝ to n) + (content0.stream from n0 + n))[n3], n = 0
Used simplifier rules: ⊦ m < n → n ≠ 0; (s)%f: ⊦ m < n → n ≠ 0; (forward) from specification nat-basic% ⊦ m ≤ n → (n < m ↔ false); (s)% ⊦ m ≤ n → max(n, m) = n; (s)% ⊦ ⌜m⌝ .n = m; (s)%¬ # σ0 < ⌜n⌝ ⊦ #(σ0 to n) = ⌜n⌝ ; (s)% ⊦ ¬ ∞ < n∞; (s)% ⊦ # content.stream = ∞; (s)%finp(σ) ⊦ # σ.buf = (# σ).n; (s)% ⊦ finp(σ0 to m); (s)