Used simplifier rules: apply: ⊦ P[rs, f] ↔ P(mk(rs, f));%sep-com: ⊦ P0 * P1 = P1 * P0; from specification heap-sep%sep-ass: ⊦ (P0 * P1) * P2 = P0 * P1 * P2; from specification heap-sep% ⊦ P(H) → ((true * P))(H); (s)