| n0 + n = n3 + m0 * VFS_PAGE_SIZE, files1 -- ino = files0 -- ino, VFS_PAGE_SIZE = n4 + n3 + m, files0[ino] = mkfile(m2, md0, m4, content), files1[ino] = mkfile(m2, md0, # links(ino, dirs), content0), afs-cons(dirs, files1), ino ∈ files0, ino ∈ files1, m0 * VFS_PAGE_SIZE ≤ n + n0, m0 * VFS_PAGE_SIZE ≤ n0 + n, m0 * VFS_PAGE_SIZE ≤ # buf + n0, n0 + n ≤ n1, n1 ≤ # buf + n0, n ≤ # buf, n + m ≤ # buf, m0 * VFS_PAGE_SIZE ≤ n1 ⊦ n4 + m = 0, ((content.stream to n0) + (⌜buf⌝ to n)) + ((⌜buf⌝ from n) to m) = (content.stream to n0) + (⌜buf⌝ to n + m), #((content.stream to n0) + (⌜buf⌝ to n)) < ⌜m0 * VFS_PAGE_SIZE⌝ |
n0 + n = n3 + m0 * VFS_PAGE_SIZE, files1 -- ino = files0 -- ino, VFS_PAGE_SIZE = n4 + n3 + m, files1[ino] = mkfile(m2, md0, # links(ino, dirs), content0), files0[ino] = mkfile(m2, md0, m4, content), afs-cons(dirs, files1), ino ∈ files1, ino ∈ files0, m0 * VFS_PAGE_SIZE ≤ n1, n + m ≤ # buf, n ≤ # buf, n1 ≤ # buf + n0, n0 + n ≤ n1, m0 * VFS_PAGE_SIZE ≤ # buf + n0, m0 * VFS_PAGE_SIZE ≤ n0 + n, m0 * VFS_PAGE_SIZE ≤ n + n0 ⊦ n4 + m = 0, (⌜buf⌝ to n) + ((⌜buf⌝ from n) to m) = ⌜buf⌝ to n + m
Used simplifier rules: add-comm: ⊦ n∞1 + n∞2 = n∞2 + n∞1; from specification nat-inf%add-assoc: ⊦ (n∞ + n∞1) + n∞2 = n∞ + n∞1 + n∞2; from specification nat-inf% ⊦ ⌜n⌝ + ⌜m⌝ < ⌜n0⌝ ↔ n + m < n0; (s)% ⊦ m ≤ n → (n < m ↔ false); (s)% ⊦ ⌜m⌝ < ⌜n⌝ ↔ m < n; (s)% ⊦ # ⌜buf⌝ = ⌜# buf⌝ ; (s)% ⊦ #(σ0 + σ2) = # σ0 + # σ2; (s)%append-assoc: ⊦ (σ0 + σ3) + σ4 = σ0 + σ3 + σ4; from specification stream[buffer-inf]% ⊦ ⌜m⌝ ≠ ∞; (s)%¬ # σ0 < ⌜n⌝ ⊦ #(σ0 to n) = ⌜n⌝ ; (s)% ⊦ ¬ ∞ < n∞; (s)% ⊦ # content.stream = ∞; (s)% ⊦ σ0 + σ3 = σ0 + σ4 ↔ σ3 = σ4 ∨ # σ0 = ∞; (ws)