| n0 + n = m0 * VFS_PAGE_SIZE + n2, files1 -- ino = files0 -- ino, VFS_PAGE_SIZE = n3 + n2 + m, files0[ino] = mkfile(m2, md0, m4, content), files1[ino] = mkfile(m2, md0, # links(ino, dirs), content0), n2 < VFS_PAGE_SIZE, afs-cons(dirs, files1), ino ∈ files0, ino ∈ files1, m0 * VFS_PAGE_SIZE ≤ # buf + n0, n2 + m ≤ VFS_PAGE_SIZE, m + n2 ≤ VFS_PAGE_SIZE, n0 + n ≤ n1, n1 ≤ # buf + n0, n ≤ # buf, n + m ≤ # buf, m0 * VFS_PAGE_SIZE ≤ n + n0, m0 * VFS_PAGE_SIZE ≤ n1 ⊦ n3 + m = 0, ((content.stream to n0) + (⌜buf⌝ to n) to m0 * VFS_PAGE_SIZE) + ((((content.stream to n0) + (⌜buf⌝ to n)) + (content.stream from n0 + n) from m0 * VFS_PAGE_SIZE) to n2) + ((⌜buf⌝ from n) to m) + ((((((content.stream to n0) + (⌜buf⌝ to n)) + (content.stream from n0 + n) from m0 * VFS_PAGE_SIZE) to VFS_PAGE_SIZE) from n2 + m) to n3) + (((content.stream to n0) + (⌜buf⌝ to n)) + (content.stream from n0 + n) from VFS_PAGE_SIZE * m0 + VFS_PAGE_SIZE) = (content.stream to n0) + (⌜buf⌝ to n + m) + (content.stream from n0 + n + m), n2 + m ≤ VFS_PAGE_SIZE ∧ ¬ #(((content.stream to n0) + (⌜buf⌝ to n)) + (content.stream from n0 + n) from m0 * VFS_PAGE_SIZE) < ⌜VFS_PAGE_SIZE⌝ |
n0 + n = m0 * VFS_PAGE_SIZE + n2, files1 -- ino = files0 -- ino, VFS_PAGE_SIZE = n3 + n2 + m, files1[ino] = mkfile(m2, md0, # links(ino, dirs), content0), files0[ino] = mkfile(m2, md0, m4, content), n2 < VFS_PAGE_SIZE, #(((content.stream to n0) + (⌜buf⌝ to n)) + (content.stream from n0 + n) from m0 * VFS_PAGE_SIZE) < ⌜VFS_PAGE_SIZE⌝ , afs-cons(dirs, files1), ino ∈ files1, ino ∈ files0, m0 * VFS_PAGE_SIZE ≤ n1, m0 * VFS_PAGE_SIZE ≤ n + n0, n + m ≤ # buf, n ≤ # buf, n1 ≤ # buf + n0, n0 + n ≤ n1, m + n2 ≤ VFS_PAGE_SIZE, n2 + m ≤ VFS_PAGE_SIZE, m0 * VFS_PAGE_SIZE ≤ # buf + n0 ⊦ ((content.stream to n0) + (⌜buf⌝ to n) to m0 * VFS_PAGE_SIZE) + ((((content.stream to n0) + (⌜buf⌝ to n)) + (content.stream from n0 + n) from m0 * VFS_PAGE_SIZE) to n2) + ((⌜buf⌝ from n) to m) + ((((((content.stream to n0) + (⌜buf⌝ to n)) + (content.stream from n0 + n) from m0 * VFS_PAGE_SIZE) to VFS_PAGE_SIZE) from n2 + m) to n3) + (((content.stream to n0) + (⌜buf⌝ to n)) + (content.stream from n0 + n) from VFS_PAGE_SIZE * m0 + VFS_PAGE_SIZE) = (content.stream to n0) + (⌜buf⌝ to n + m) + (content.stream from n0 + n + m), n3 + m = 0
Used simplifier rules: mult-c: ⊦ m * n = n * m; from specification nat-mult