| ⊦ goodfieldsandtypes(r, sk ', st) ↔ goodfieldandtype(r, sk, st) |
⊦ goodfieldsandtypes(r, sk ' + sks, st) ↔ goodfieldandtype(r, sk, st) ∧ goodfieldsandtypes(r, sks, st)
⊦ goodfieldsandtypes(r, [], st)
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ sks + [] = sks], [CSIMPSEQ : ⊦ (sks + sks0) + sks1 = sks + sks0 + sks1])], [EXTRATERMS : (r, sk, [], st)]]