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