| files2[ino4] = mkfile(m2 * VFS_PAGE_SIZE + n0, md, # links(ino4, dirs0), content0), n0 < VFS_PAGE_SIZE, ⌜m2 * VFS_PAGE_SIZE + n0⌝ + ⌜n⌝ < #(((content0.stream to VFS_PAGE_SIZE * m2) + (σ⊥ to VFS_PAGE_SIZE)) + σ⊥), afs-cons(dirs0, files2[ino4, mkfile(m2 * VFS_PAGE_SIZE + n0, md, # links(ino4, dirs0), content0 upto (m2 * VFS_PAGE_SIZE + n0))]), afs-cons(dirs0, files2), files2 ~ files2[ino4, mkfile(m2 * VFS_PAGE_SIZE + n0, md, # links(ino4, dirs0), content0 upto (m2 * VFS_PAGE_SIZE + n0))], ino4 ∈ files2 ⊦ (((content0.stream to VFS_PAGE_SIZE * m2) + (σ⊥ to VFS_PAGE_SIZE)) + σ⊥)[(m2 * VFS_PAGE_SIZE + n0) + n] = zero, n0 = 0, m2 ∈ content0 |
files2[ino4] = mkfile(m2 * VFS_PAGE_SIZE + n0, md, # links(ino4, dirs0), content0), n0 < VFS_PAGE_SIZE, afs-cons(dirs0, files2), afs-cons(dirs0, files2[ino4, mkfile(m2 * VFS_PAGE_SIZE + n0, md, # links(ino4, dirs0), content0 upto (m2 * VFS_PAGE_SIZE + n0))]), files2 ~ files2[ino4, mkfile(m2 * VFS_PAGE_SIZE + n0, md, # links(ino4, dirs0), content0 upto (m2 * VFS_PAGE_SIZE + n0))], ino4 ∈ files2 ⊦ (((content0.stream to VFS_PAGE_SIZE * m2) + (σ⊥ to VFS_PAGE_SIZE)) + σ⊥)[(m2 * VFS_PAGE_SIZE + n0) + n] = zero, n0 = 0, m2 ∈ content0
Used simplifier rules: ⊦ ⌜m⌝ ≠ ∞; (s)% ⊦ ⌜m⌝ + n∞ = ∞ ↔ n∞ = ∞; (s)% ⊦ n∞ < ∞ ↔ n∞ ≠ ∞; (s)%append-assoc: ⊦ (σ0 + σ3) + σ4 = σ0 + σ3 + σ4; from specification stream[buffer-inf]%add-comm: ⊦ n∞1 + n∞2 = n∞2 + n∞1; from specification nat-inf% ⊦ ⌜m⌝ + ∞ = ∞; (s)% ⊦ # σ⊥ = ∞; (s)%¬ # σ0 < ⌜n⌝ ⊦ #(σ0 to n) = ⌜n⌝ ; (s)% ⊦ ¬ ∞ < n∞; (s)% ⊦ # content.stream = ∞; (s)% ⊦ #(σ0 + σ2) = # σ0 + # σ2; (s)%add-assoc: ⊦ (n∞ + n∞1) + n∞2 = n∞ + n∞1 + n∞2; from specification nat-inf%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)