| # str < # rk .key .fs .class .class, # stringvar < # rk .key .fs .class .class, r -- mkfs(stringvar .class, ty, fieldvar) ' ∈ rks, # str ≤ # stringvar, is_fskey(rk .key), rk ∈ rks, ∀ rk0. rk0 ≠ r -- mkfs(stringvar .class, ty, fieldvar) ' ∧ rk0 ∈ rks ∧ is_fskey(rk0 .key) → # rk0 .key .fs .class .class < # str, ∀ rks0. # rks0 < # rks → (true → (∃ str. ∀ rk. rk ∈ rks0 ∧ is_fskey(rk .key) → ¬ # str ≤ # rk .key .fs .class .class)) ⊦ # rks = 0, rks = ∅, ∃ str. ∀ rk. rk ∈ rks ∧ is_fskey(rk .key) → ¬ # str ≤ # rk .key .fs .class .class |
rk = r0 -- sk, # str < # sk .fs .class .class, # stringvar < # sk .fs .class .class, r -- mkfs(stringvar .class, ty, fieldvar) ' ∈ rks, # str ≤ # stringvar, is_fskey(sk), rk ∈ rks, ∀ rk0. rk0 ≠ r -- mkfs(stringvar .class, ty, fieldvar) ' ∧ rk0 ∈ rks ∧ is_fskey(rk0 .key) → # rk0 .key .fs .class .class < # str, ∀ rks0. # rks0 < # rks → (true → (∃ str. ∀ rk. rk ∈ rks0 ∧ is_fskey(rk .key) → ¬ # str ≤ # rk .key .fs .class .class)) ⊦ # rks = 0, rks = ∅, ∃ str. ∀ rk. rk ∈ rks ∧ is_fskey(rk .key) → ¬ # str ≤ # rk .key .fs .class .class
[[CONCRETESIMPRULES : ([CSIMPELIM : ⊦ r = rk .ref ∧ sk = rk .key ↔ rk = r -- sk])], [EXTRATERMS : (rk, r0, sk)]]