| ∀ r, sks0, st. fits(r, sks1 + sks0, st) ↔ fits(r, sks1, st) ∧ fits(st[r -- sks1] .refval, sks0, st) ⊦ fits(r, (sk + sks1) + sks0, st) ↔ fits(r, sk + sks1, st) ∧ fits(st[r -- (sk + sks1)] .refval, sks0, st) |
∀ r, sks0, st. fits(r, sks1 + sks0, st) ↔ fits(r, sks1, st) ∧ fits(st[r -- sks1] .refval, sks0, st) ⊦ fits(r, (sk ' + sks1) + sks0, st) ↔ fits(r, sk ' + sks1, st) ∧ fits(st[r -- (sk ' + sks1)] .refval, sks0, st)
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ sk + sks = sk ' + sks])]]