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