| ∀ sk, r, st. sk ∈ sks0 ∧ goodfieldsandtypes(r, sks0, st) → goodfieldandtype(r, sk, st) ⊦ sk0 ∈ sk + sks0 ∧ goodfieldsandtypes(r, sk + sks0, st) → goodfieldandtype(r, sk0, st) |
⊦ goodfieldsandtypes(r, sk ' + sks, st) ↔ goodfieldandtype(r, sk, st) ∧ goodfieldsandtypes(r, sks, st)
goodfieldandtype(r, sk, st), goodfieldsandtypes(r, sks0, st), sk0 ∈ sks0, ∀ sk, r, st. sk ∈ sks0 ∧ goodfieldsandtypes(r, sks0, st) → goodfieldandtype(r, sk, st) ⊦ goodfieldandtype(r, sk0, st)
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ sk + sks = sk ' + sks], [CSIMPSEQ : ⊦ sk ∈ sks + sks0 ↔ ¬ ¬ (sk ∈ sks ∨ sk ∈ sks0)], [CSIMPSEQ : ⊦ sk ∈ sk0 ' ↔ sk = sk0], [CSIMPSEQ : ⊦ (sks + sks0) + sks1 = sks + sks0 + sks1])]]