| ⊦ sk ≠ _type → (okclass(val, class1, st[r0 -- sk, 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)))
⊦ sk = _type, reftypep(val, st[r0 -- sk, val0]) ∧ (val .refval ≠ jvmref → val .refval -- _type ∈ st[r0 -- sk, val0] ∧ st[val .refval -- _type] = typeval(mkclasstype(class1))) ↔ okclass(val, class1, st)
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ sk ≠ sk0 → (st[r -- sk, val][r0 -- sk0]) = st[r0 -- sk0]])]]