| dirs[p_ino] = mkdir(m, md, n0, n1, entries), str0 ∈ (ino ∈ dirs ⊃ subdirs(p_ino, dirs) ++ str;(str ∈ entries ∧ entries[str] ∈ dirs ⊃ subdirs(p_ino, dirs) -- str;subdirs(p_ino, dirs))), p_ino ∈ dirs, str ∈ entries, entries[str] ∈ dirs ⊦ # (ino ∈ dirs ⊃ subdirs(p_ino, dirs) ++ str;(str ∈ entries ∧ entries[str] ∈ dirs ⊃ subdirs(p_ino, dirs) -- str;subdirs(p_ino, dirs))) = 0, (ino ∈ dirs ⊃ subdirs(p_ino, dirs) ++ str;(str ∈ entries ∧ entries[str] ∈ dirs ⊃ subdirs(p_ino, dirs) -- str;subdirs(p_ino, dirs))) = ∅, str0 = str, str0 ∈ (ino ∈ dirs ⊃ ∅ ++ str;∅), str0 ∈ subdirs(p_ino, dirs) \ (∅ ++ str) |
dirs[p_ino] = mkdir(m, md, n0, n1, entries), str0 ∈ (ino ∈ dirs ⊃ subdirs(p_ino, dirs) ++ str;subdirs(p_ino, dirs) -- str), p_ino ∈ dirs, str ∈ entries, entries[str] ∈ dirs ⊦ # (ino ∈ dirs ⊃ subdirs(p_ino, dirs) ++ str;subdirs(p_ino, dirs) -- str) = 0, (ino ∈ dirs ⊃ subdirs(p_ino, dirs) ++ str;subdirs(p_ino, dirs) -- str) = ∅, str0 = str, str0 ∈ (ino ∈ dirs ⊃ ∅ ++ str;∅), str0 ∈ entries ∧ entries[str0] ∈ dirs
Used simplifier rules: subdirs: ⊦ str ∈ subdirs(ino, dirs) ↔ ino ∈ dirs ∧ str ∈ dirs[ino].entries ∧ dirs[ino].entries[str] ∈ dirs;% ⊦ mkdir(m, md, m0, m1, entries).entries = entries; (s)%size-zero-01: ⊦ strings ≠ ∅ → # strings ≠ 0; (forward) from specification set-basic[dir-entries]%ne-01: ⊦ str ∈ strings → strings ≠ ∅; (forward) from specification set-basic[dir-entries]% ⊦ str ≠ str0 → (str ∈ strings -- str0 ↔ str ∈ strings); (ss)% ⊦ strings \ ∅ = strings; (s)% ⊦ strings \ (strings0 ++ str) = (strings \ strings0) -- str; (s)