| ∀ r, st. r = jvmref ∨ (update(r, fis0, st)[_mode]) = st[_mode] ⊦ r = jvmref, (update(r, (sk × val) ' + fis0, st)[_mode]) = st[_mode] |
⊦ update(r, (sk × val) ' + fis, st) = (update(r, fis, st)[r -- sk, val])
∀ r, st. r = jvmref ∨ (update(r, fis0, st)[_mode]) = st[_mode] ⊦ r = jvmref, (update(r, fis0, st)[_mode]) = st[_mode]
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ r ≠ jvmref → _mode ≠ r -- sk], [CSIMPSEQ : ⊦ (st[rk0, val][rk]) = ((rk = rk0 ⊃ val; st[rk]))], [CSIMPSEQ : ⊦ (fis + fis0) + fis1 = fis + fis0 + fis1])]]