| ⊦ rk .ref ≠ r ∧ ¬ exactreftype(refval(r), ty, st[rk, val]) → ¬ exactreftype(refval(r), ty, st) |
⊦ exactreftype(val, ty, st) ↔ is_referencevalue(val) ∧ val .refval ∈ st ∧ (val .refval ≠ jvmref → val .refval -- _type ∈ st ∧ is_typevalue(st[val .refval -- _type]) ∧ st[val .refval -- _type] .type = ty)
r ∈ st, r ≠ jvmref → r -- _type ∈ st ∧ is_typevalue(st[r -- _type]) ∧ st[r -- _type] .type = ty ⊦ rk .ref = r, exactreftype(refval(r), ty, st[rk, val])
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ refval(r) .refval = r], [CSIMPSEQ : ⊦ is_referencevalue(refval(r))])]]