| ∀ str, st. validfieldinits(str, fis0, st) ↔ validfieldinits(fis0, st) ∧ ¬ junkrefs(str, fis0 .vals, st) ∧ (∀ sk. sk ∈ fis0 → type∃(str, sk .fs .type)) ⊦ validfieldinits(str, fv ' + fis0, st) ↔ validfieldinits(fv ' + fis0, st) ∧ ¬ junkrefs(str, fv .2 ' + fis0 .vals, st) ∧ (∀ sk. sk ∈ fv ' + fis0 → type∃(str, sk .fs .type)) |
fv = sk0 × val, ∀ str, st. validfieldinits(str, fis0, st) ↔ validfieldinits(fis0, st) ∧ ¬ junkrefs(str, fis0 .vals, st) ∧ (∀ sk. sk ∈ fis0 → type∃(str, sk .fs .type)) ⊦ validfieldinits(str, fv ' + fis0, st) ↔ validfieldinits(fv ' + fis0, st) ∧ ¬ junkrefs(str, val ' + fis0 .vals, st) ∧ (∀ sk. sk ∈ fv ' + fis0 → type∃(str, sk .fs .type))
[[CONCRETESIMPRULES : ([CSIMPELIM : ⊦ sk = fv .1 ∧ val = fv .2 ↔ fv = sk × val])], [EXTRATERMS : (fv, sk0, val)]]