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