| ⊦ ¬ r ∈ st .refs → (goodfieldandtype(r, sk, st ∪ st0) ↔ goodfieldandtype(r, sk, st0)) |
⊦ goodfieldandtype(r, sk, st) ↔ is_fskey(sk) ∧ r -- sk ∈ st ∧ okval(st[r -- sk], sk .fs .type)
⊦ goodfieldandtype(r, sk, st) ↔ ¬ ¬ (is_fskey(sk) ∧ r -- sk ∈ st ∧ okval(st[r -- sk], sk .fs .type))
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ is_indexkey(sk) → ¬ is_fskey(sk)], [CSIMPSEQ : ⊦ ¬ is_fskey(sk) ↔ is_indexkey(sk)], [CSIMPSEQ : ⊦ ¬ r ∈ st .refs → (st ∪ st0)[r -- sk] = st0[r -- sk]], [CSIMPSEQ : ⊦ ¬ r ∈ st .refs → ( r -- sk ∈ st ∪ st0 ↔ r -- sk ∈ st0)])]]