| ⊦ validrefs(str, refs + r0 ', ty, st) ∧ ¬ r ∈ refs ∧ fs ' ≠ _type ∧ fs ' ≠ _length ∧ oktype(val, fs .type, st) → validrefs(str, refs + r0 ', ty, st[r -- fs ', val]) |
validrefs(str, refs + r0 ', ty, st), okval(val, fs .type) ⊦ fs ' = _length, fs ' = _type, validrefs(str, refs + r0 ', ty, st[r -- fs ', val]), r ∈ refs
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ oktype(val, ty, st) ↔ okval(val, ty)])]]