| sk .fs = mkfs(class, ty, fieldvar), i ' .fs = mkfs(class0, ty0, fieldvar0), validref(str, r0, st[r -- _type] .type .type, st), okval(refval(r0), st[r -- _type] .type .type), is_indexkey(sk), okval(refval(r2), st[r1 -- _type] .type .type), validref(str, r2, st[r1 -- _type] .type .type, st) ⊦ is_arraytype(st[r1 -- _type] .type), validref(str, r0, st[r -- _type] .type .type, st[r1 -- i ', refval(r2)]) |
⊦ validref(str, r, ty, st) ∧ ¬ is_array(str, r0, st) → validref(str, r, ty, st[r0 -- i ', val])
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ ¬ is_arraytype (st[r -- _type] .type) → ¬ is_array(str, r, st)])], [EXTRATERMS : (refval(r2), i, r1, st, st[r -- _type] .type .type, r0, str)]]