| validrefs(str, r ' + acc, ty, st[jvmref -- sk, val]), ¬ is_valid_ref(str, r, st) ∨ ¬ st[r -- _type] .type ≤ ty, ∀ str, ty, st, sk, val. validrefs(str, acc, ty, st[jvmref -- sk, val]) ↔ validrefs(str, acc, ty, st) ⊦ r = jvmref |
⊦ r ≠ jvmref ∧ (¬ is_valid_ref(str, r, st) ∨ ¬ st[r -- _type] .type ≤ ty) → ¬ validrefs(str, r ' + refs, ty, st)
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ r ≠ r0 → ( is_valid_ref (str, r0, st[r -- sk, val]) ↔ is_valid_ref(str, r0, st))], [CSIMPSEQ : ⊦ r ≠ r0 → (st[r0 -- sk0, val][r -- sk]) = st[r -- sk]])], [EXTRATERMS : (st[jvmref -- sk, val], ty, acc, r, str)]]