| ⊦ okarrays(r, (sk × val) ', st) ↔ ¬ ¬ (is_integervalue(val) ∧ is_fskey(sk) ∧ is_arraytype(sk .fs .type) ∧ okarray(st[r -- sk], sk .fs .type .type, val .intval, st)) |
⊦ okarrays(r, (sk × val) ', st) ↔ is_integervalue(val) ∧ ¬ is_indexkey(sk) ∧ is_arraytype(sk .fs .type) ∧ okarray(st[r -- sk], sk .fs .type .type, val .intval, st)
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ ¬ is_fskey(sk) ↔ is_indexkey(sk)])]]