| instore(r, class, (sk × val) ', st), instore(r, class, (sk × val) ', st) ↔ r -- sk ∈ st ∧ st[r -- sk] = val ∧ instore(r, class, [], st) ⊦ r ≠ jvmref ∧ r -- _type ∈ st ∧ st[r -- _type] = typeval(mkclasstype(class)) ∧ r -- sk ∈ st ∧ st[r -- sk] = val |
⊦ ¬ instore(jvmref, class, fis, st)
r ∈ st, instore(r, class, [], st), r -- sk ∈ st, instore(r, class, (sk × st[r -- sk]) ', st) ⊦ r = jvmref, st[r -- _type] = typeval(mkclasstype(class)) ∧ r -- _type ∈ st
[[CONCRETESIMPRULES : ([CSIMPFORWARD : ⊦ r -- sk ∈ st → r ∈ st])]]