| ((r => a × r0 * ls(r0, x) * P))(H) ⊦ ((ls(r, a ' + x) * P))(H) |
((r => a × r0 * ls(r0, x) * P))(H) ⊦ ∃ r0. (((r => a × r0 * ls(r0, x)) * P))(H)
Used simplifier rules: ls-rec: ⊦ ls(r, a ' + x) = _∃(λ r0. r => a × r0 * ls(r0, x));%sep-com: ⊦ P0 * P1 = P1 * P0; from specification heap-sep%sep-ass: ⊦ (P0 * P1) * P2 = P0 * P1 * P2; from specification heap-sep% ⊦ ((_∃ rP * P))(H) ↔ (∃ r. ((rP(r) * P))(H)); (s)%a: ⊦ (x + y) + z = x + y + z; from specification list