| r ≠ jvmref ⊦ okclass(refval(r), class1, st[_mode, val]) ↔ okclass(refval(r), class1, st) |
⊦ okclass(val, class1, st) ↔ reftypep(val, st) ∧ (val .refval ≠ jvmref → val .refval -- _type ∈ st ∧ st[val .refval -- _type] = typeval(mkclasstype(class1)))
st[r -- _type] = typeval(mkclasstype(class1)), r ∈ st, r -- _type ∈ st ⊦ r = jvmref, okclass(refval(r), class1, st[_mode, val])
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ r ∈ st → reftypep(refval(r), st)], [CSIMPFORWARD : ⊦ r -- sk ∈ st → r ∈ st], [CSIMPSEQ : ⊦ (st[_mode, val][r -- _type]) = st[r -- _type]], [CSIMPSEQ : ⊦ r -- _type ∈ st[_mode, val] ↔ r -- _type ∈ st], [CSIMPSEQ : ⊦ refval(r) .refval = r], [CSIMPSEQ : ⊦ reftypep(val, st[_mode, val0]) ↔ reftypep(val, st)])]]