| ¬ is_indexkey((sk × val) .1), sk .fs = mkfs(class, ty, fieldvar), ∀ r, class1, st. newref(r, addclass(class1, fis0, st)) ↔ newref(r, st) ⊦ newref(r, addclass(class1, (sk × val) ' + fis0, st)) ↔ newref(r, st), ¬ is_indexkey(sk) ∧ class ≠ class1 |
sk .fs = mkfs(class1, ty, fieldvar), is_fskey(sk), ∀ r, class1, st. newref(r, addclass(class1, fis0, st)) ↔ newref(r, st) ⊦ newref(r, addclass(class1, (sk × val) ' + fis0, st)) ↔ newref(r, st)
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ is_indexkey(sk) → ¬ is_fskey(sk)], [CSIMPSEQ : ⊦ ¬ is_indexkey(sk) ↔ is_fskey(sk)], [CSIMPSEQ : ⊦ (sk × val) .1 = sk])]]