| (a[r =>_] * R)[rs, f, g], r0 ∈ rs ⊦ # rs = 0, a = g(r0), f(r0) = (r = r0 ⊃ o;f(r0)), rs = ∅ |
Used simplifier rules: sep-ass: ⊦ (R0 * R1) * R2 = R0 * R1 * R2; from specification heap-sep[heap-aux]%sep-com: ⊦ R0 * R1 = R1 * R0; from specification heap-sep[heap-aux]% ⊦ (a[r =>_] * R)[rs, f, g] → (g(r) = a ↔ true); (ss)