o = o1, ((r => o0 * P))(H) ⊦ ⟪if ¬ r ∈ H then abort else H[r] := o⟫ ((r => o1 * P))(H)
Used simplifier rules: write(r, o; H){if ¬ r ∈ H then abort else H[r] := o};