(r => o * P)(H) ⊦ ⟪H0 := H⟫ ⟪if ¬ r ∈ H0 then abort else H0 := H0 -- r⟫ P(H0)
[[CONCRETESIMPRULES : ([CSIMPDECL : free (r; H) { if ¬ r ∈ H then abort else H := H -- r }])]]