| (r =>_ * P)(H) ⊦ ⟪write(r, o; H)⟫ (r => o * P)(H) |
(r =>_ * P)(H) ⊦ ⟪H0 := H, o0 := o, r0 := r⟫ ⟪if ¬ r0 ∈ H0 then abort else H0[r0] := o0⟫ (r => o * P)(H0)
[[CONCRETESIMPRULES : ([CSIMPDECL : write (r, o; H) { if ¬ r ∈ H then abort else H[r] := o }])]]