| fv = sk × val, is_fskey(sk), ∀ class1, st. mkfs(class1, void_type, `initstate' .field) ' ∈ fis0 ∨ initdone(class1, addclass(class1, fis0, st)) ⊦ mkfs(class1, void_type, `initstate' .field) ' ∈ fv ' + fis0, initdone(class1, addclass(class1, fv ' + fis0, st)) |
is_fskey(sk), ∀ class1, st. mkfs(class1, void_type, `initstate' .field) ' ∈ fis0 ∨ initdone(class1, addclass(class1, fis0, st)) ⊦ mkfs(class1, void_type, `initstate' .field) ' = sk, initdone(class1, addclass(class1, (sk × val) ' + fis0, st)), mkfs(class1, void_type, `initstate' .field) ' ∈ fis0
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ (fis + fis0) + fis1 = fis + fis0 + fis1], [CSIMPSEQ : ⊦ sk ∈ (sk0 × val) ' + fis ↔ sk = sk0 ∨ sk ∈ fis])]]