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