| ⊦ str = `*Array*', getbytearray(r, st[r0 -- mkfs(str .class, ty, fieldvar) ', val]) = getbytearray(r, st) |
⊦ rk .key ≠ _length ∧ is_fskey(rk .key) → getbytearray(r, st[rk, val]) = getbytearray(r, st)
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ (r -- sk) .key = sk], [CSIMPSEQ : ⊦ is_fskey(fs ')], [CSIMPFORWARD : ⊦ mkfs(class1, ty, fieldvar) ' = _length → class1 = `*Array*' .class ∧ ty = int_type ∧ fieldvar = `length' .field], [CSIMPSEQ : ⊦ stringvar .class = stringvar0 .class ↔ stringvar = stringvar0])], [EXTRATERMS : (val, r0 -- mkfs(str .class, ty, fieldvar) ', st, r)]]