| (r => o0 * P)(H), r1 = r ∧ o2 = o1 ∧ H1 = H ⊦ ⟪if ¬ r1 ∈ H1 then abort else H1[r1] := o2⟫ (r => o1 * P)(H1) |
(r => o0 * P)(H), r1 = r ∧ o2 = o1 ∧ H1 = H ⊦ ⟪H1[r1] := o2⟫ (r => o1 * P)(H1)
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ (P0 * P1) * P2 = P0 * P1 * P2], [CSIMPSEQ : ⊦ P0 * P1 = P1 * P0], [CSIMPSEQ : ⊦ (r => o * P)(H) → r ∈ H])]]