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