| n0 + n = m0 * VFS_PAGE_SIZE + n2, files1 -- ino = files0 -- ino, VFS_PAGE_SIZE = n3 + n2 + m, VFS_PAGE_SIZE = n4 + 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, 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, n2 + m ≤ VFS_PAGE_SIZE ⊦ 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 from n2 + m) to n4 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), #(((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 = n4 + 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, 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, n2 + m ≤ VFS_PAGE_SIZE ⊦ n4 + 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 from n2 + m) to n4 to n4) + (((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), #(((content.stream to n0) + (⌜buf⌝ to n)) + (content.stream from n0 + n) from m0 * VFS_PAGE_SIZE) < ⌜VFS_PAGE_SIZE⌝
Used simplifier rules: ⊦ m < m + n ↔ n ≠ 0; (s)%lf-01: ⊦ m < n ∧ n = n0 → m < n0; (forward) from specification nat-basic%eqs: ⊦ m = n + n0 ∧ m = n + n1 → n0 = n1; (forward) from specification nat-basic%c: ⊦ m + n = n + m; from specification nat-basic%a: ⊦ (m + n0) + n1 = m + n0 + n1; from specification nat-basic%mult-c: ⊦ m * n = n * m; from specification nat-mult