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