| ⊦ r -- fs ' ∈ st ∧ oktype(st[r -- fs '], fs .type, st) ∧ oktype(val, fs .type, st) ∧ fs ' ≠ _type ∧ fs ' ≠ _length → (is_array(r, st[r -- fs ', val]) ↔ is_array(r, st)) |
⊦ is_array(r, st) ∧ oktype(val, fs .type, st) ∧ fs ' ≠ _type ∧ fs ' ≠ _length → is_array(r, st[r -- fs ', val])
r -- fs ' ∈ st, oktype(st[r -- fs '], fs .type, st), oktype(val, fs .type, st), is_array(r, st[r -- fs ', val]), r ∈ st ⊦ fs ' = _length, fs ' = _type, is_array(r, st)
[[CONCRETESIMPRULES : ([CSIMPFORWARD : ⊦ r -- sk ∈ st → r ∈ st])]]