| junkrefs(str, r ' + refs0, (st[jvmref -- sk, val][r -- _type]) .type, st) ⊦ junkrefs(str, r ' + refs0, st[r -- _type] .type, st) |
⊦ ¬ junkrefs(str, jvmref ' + refs, ty, st)
⊦ ¬ junkrefs(str, jvmref ' + refs, ty, st)
⊦ ¬ junkrefs(str, r ' + refs, st[r -- _type] .type, st) ∧ r ≠ jvmref → (junkrefs(str, r ' + refs, ty, st) ↔ ¬ st[r -- _type] .type ≤ ty)
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ (st[rk, val][rk]) = val], [CSIMPSEQ : ⊦ r -- sk = r0 -- sk0 ↔ r = r0 ∧ sk = sk0], [CSIMPSEQ : ⊦ r -- sk = r0 -- sk0 ↔ ¬ ¬ (r = r0 ∧ sk = sk0)], [CSIMPSEQ : ⊦ (refs + refs0) + refs1 = refs + refs0 + refs1], [CSIMPSEQ : ⊦ r ≠ r0 → (st[r0 -- sk0, val][r -- sk]) = st[r -- sk]], [CSIMPSEQ : ⊦ ty ≤ ty])], [EXTRAFMAS : (r -- _type = jvmref -- sk)]]