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