| bv0 ↔ false, asynced0 ↔ asynced, files[m] = mkfile(m1, md, m2, content), of[fd] = mkfile(m, mode, m0), dirs0 = dirs, err = ESUCCESS, files0 = files, ino3 = 0, inode0 = mkinode(m, md, false, m2, 0, m1), n2 = m0, n3 = m0 + n, dom of < ino2, afs-cons(dirs, files), of-cons(of, dirs, files), fd ∈ of, mkinode(m, md, false, m2, 0, m1).ino ∈ files, n ≤ # buf, m0 ≤ m1, m0 + ino3 ≤ m0 + n, m0 + ino3 ≤ mkinode(m, md, false, m2, 0, m1).size, m0 + n - m0 ≤ # buf ⊦ [vfs_read_loop#(m0, m0 + n, mkinode(m, md, false, m2, 0, m1), false, dirs, files, asynced; buf, ino3, err)] (true → ⟪if ino3 ≠ 0 then err := ESUCCESS; of[fd].pos := of[fd].pos + ino3; n := ino3⟫ (of-cons(of, dirs, files) ∧ dom of < ino2)), mode ≠ MODE_R ∧ mode ≠ MODE_RW |
files[m] = mkfile(m1, md, # links(m, dirs), content), of[fd] = mkfile(m, mode, m0), err = ESUCCESS, ino3 = 0, dom of < ino2, afs-cons(dirs, files), of-cons(of, dirs, files), m ∈ files, fd ∈ of, m0 ≤ m1, n ≤ # buf ⊦ [vfs_read_loop#(m0, m0 + n, mkinode(m, md, false, # links(m, dirs), 0, m1), false, dirs, files, asynced; buf, ino3, err)] ⟪if ino3 ≠ 0 then err := ESUCCESS; of[fd].pos := of[fd].pos + ino3; n := ino3⟫ (of-cons(of, dirs, files) ∧ dom of < ino2), mode ≠ MODE_R ∧ mode ≠ MODE_RW
Used simplifier rules: afs-cons-file-nlink: ⊦ afs-cons(dirs, files) ∧ ino ∈ files ∧ files[ino] = mkfile(m, md, n, content) → # links(ino, dirs) = n; (forward) from specification afs-base% ⊦ mkinode(m, md, boolvar, m0, m1, m2).ino = m; (s)% ⊦ m ≤ m + n; (s)% ⊦ mkinode(m, md, boolvar, m0, m1, m2).size = m2; (s)% ⊦ n + 0 = n; (s)%c: ⊦ m + n = n + m; from specification nat-basic%a: ⊦ (m + n0) + n1 = m + n0 + n1; from specification nat-basic% ⊦ m + n - m = n; (s)