| ⊦ (∀ st, r, sk, val. (fis0 ∈ st[r -- sk, val] ↔ fis0 ∈ st) ∨ sk ∈ fis0) → ((sk × val) ' + fis0 ∈ st[r -- sk0, val0] ↔ (sk × val) ' + fis0 ∈ st) ∨ sk0 ∈ (sk × val) ' + fis0 |
⊦ (sk × val) ' + fis ∈ st ↔ ¬ ¬ ((jvmref -- sk) × val ∈ st ∧ fis ∈ st)
∀ st, r, sk, val. (fis0 ∈ st[r -- sk, val] ↔ fis0 ∈ st) ∨ sk ∈ fis0 ⊦ sk0 = sk, jvmref -- sk ∈ st[r -- sk0, val0] ∧ fis0 ∈ st[r -- sk0, val0] ∧ st[jvmref -- sk] = val ↔ jvmref -- sk ∈ st ∧ st[jvmref -- sk] = val ∧ fis0 ∈ st, sk0 ∈ fis0
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ sk ∈ (sk0 × val) ' + fis ↔ sk = sk0 ∨ sk ∈ fis], [CSIMPSEQ : ⊦ rk × val ∈ st ↔ ¬ ¬ (rk ∈ st ∧ st[rk] = val)], [CSIMPSEQ : ⊦ (fis + fis0) + fis1 = fis + fis0 + fis1], [CSIMPSEQ : ⊦ r -- sk = r0 -- sk0 ↔ r = r0 ∧ sk = sk0], [CSIMPSEQ : ⊦ (st[rk0, val][rk]) = ((rk = rk0 ⊃ val; st[rk]))], [CSIMPSEQ : ⊦ rk × val ∈ st ↔ rk ∈ st ∧ st[rk] = val])]]