| ⊦ r ≠ jvmref → ( (∀ sk, val. sk × val ∈ fis → is_integervalue(val) ∧ is_fskey(sk) ∧ is_arraytype(sk .fs .type) ∧ okarray(addclass(class, fis0, st)[r -- sk], sk .fs .type .type, val .intval, addclass(class, fis0, st))) ↔ okarrays(r, fis, st)) |
⊦ okarrays(r, fis, st) ↔ (∀ sk, val. sk × val ∈ fis → is_integervalue(val) ∧ is_fskey(sk) ∧ is_arraytype(sk .fs .type) ∧ okarray(st[r -- sk], sk .fs .type .type, val .intval, st))
⊦ r ≠ jvmref → ( (∀ sk, val. sk × val ∈ fis → is_integervalue(val) ∧ is_fskey(sk) ∧ is_arraytype(sk .fs .type) ∧ okarray(addclass(class, fis0, st)[r -- sk], sk .fs .type .type, val .intval, addclass(class, fis0, st))) ↔ (∀ sk, val. sk × val ∈ fis → is_integervalue(val) ∧ is_fskey(sk) ∧ is_arraytype(sk .fs .type) ∧ okarray(st[r -- sk], sk .fs .type .type, val .intval, st)))
[[CONCRETESIMPRULES : ()], [EXTRATERMS : (st, fis, r)]]