| st[r0 -- _type] .type ≤ ty, is_reftype(ty0), junkrefs(str, r0 ' + acc, ty, st[r0 -- mkfs(class, ty0, fieldvar) ', refval(jvmref)]), is_array(str, r0, st), ∀ str, ty, st, fs, r. ¬ junkrefs(str, acc, ty, st) ∧ is_reftype(fs .type) → ¬ junkrefs(str, acc, ty, st[r -- fs ', refval(jvmref)]) ⊦ r0 = jvmref, _type = mkfs(class, ty0, fieldvar) ', junkrefs(str, r0 ' + acc, ty, st), is_array(str, r0, st[r0 -- mkfs(class, ty0, fieldvar) ', refval(jvmref)]) |
⊦ fs ' ≠ _length ∧ fs ' ≠ _type → (is_array(str, r, st[r0 -- fs ', val]) ↔ is_array(str, r, st))
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ (refs + refs0) + refs1 = refs + refs0 + refs1], [CSIMPFORWARD : ⊦ mkfs(class1, ty, fieldvar) ' = _length → class1 = `*Array*' .class ∧ ty = int_type ∧ fieldvar = `length' .field], [CSIMPSEQ : ⊦ mkfs (`*Array*' .class, int_type, `length' .field) ' = _length], [CSIMPSEQ : ⊦ _type ≠ _length], [CSIMPSEQ : ⊦ ¬ is_reftype(int_type)])], [EXTRATERMS : (refval(jvmref), mkfs(class, ty0, fieldvar), r0, st, r0, str)]]