| ⊦ validval(str, r -- i ', val, st) ↔ okval(val, st[r -- _type] .type .type), is_referencevalue(val) |
⊦ validval(str, r -- sk, val, st) ↔ (is_fskey(sk) → validval(str, val, sk .fs .type, st) ∧ sk .fs .type ≠ void_type ∧ sk ≠ _length) ∧ (is_indexkey(sk) → validval(str, val, st[r -- _type] .type .type, st))
⊦ (is_fskey(i ') → validval(str, val, i ' .fs .type, st) ∧ i ' .fs .type ≠ void_type ∧ i ' ≠ _length) ∧ (is_indexkey(i ') → validval(str, val, st[r -- _type] .type .type, st)) ↔ okval(val, st[r -- _type] .type .type), is_referencevalue(val)
[[CONCRETESIMPRULES : ()], [EXTRATERMS : (st, val, i ', r, str)]]