| ⊦ ⟪afs_format#(n, isdir, LEB_SIZE, md; dirs; files, asynced, err)⟫ (err = ESUCCESS → asynced ∧ of-cons(∅, dirs, files) ∧ afs-cons(dirs, files)) |
ino = LEB_SIZE ⊦ ⟪if ino = LEB_SIZE then { {dirs := ∅, files := ∅; dirs := dirs ++ ROOT_INO; dirs[ROOT_INO] := mkdir(0, md, 0, 0, ∅); asynced := true; err := ESUCCESS} or {dirs := ?, files := ?, asynced := ?; fail#(; ; err)}} else abort⟫ (err = ESUCCESS → asynced ∧ of-cons(∅, dirs, files) ∧ afs-cons(dirs, files))
Used simplifier rules: afs_format#(N, DOSYNC, SIZE, MD; DIRS; FILES, ASYNCED, ERR) {if SIZE = LEB_SIZE then { {DIRS := ∅, FILES := ∅; DIRS := DIRS ++ ROOT_INO; DIRS[ROOT_INO] := mkdir(0, MD, 0, 0, ∅); ASYNCED := true; ERR := ESUCCESS} or {DIRS := ?, FILES := ?, ASYNCED := ?; fail#(; ; ERR)}} else abort };