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