| ⊦ r ≠ jvmref → (okarrays(r, fis, 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))) ↔ okarrays(r, fis, st))
[[CONCRETESIMPRULES : ()], [EXTRATERMS : (addclass(class, fis0, st), fis, r)]]