| ⊦ okarrays(r, (sk × val) ' + fis, 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, fis, st)) |
⊦ okarrays(r, (sk × val) ' + fis, st) ↔ is_integervalue(val) ∧ ¬ is_indexkey(sk) ∧ is_arraytype(sk .fs .type) ∧ okarray(st[r -- sk], sk .fs .type .type, val .intval, st) ∧ okarrays(r, fis, st)
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ ¬ is_fskey(sk) ↔ is_indexkey(sk)])]]