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