| ((lls(r0, r1, a + x0) * lls(r1, r2, y) * P))(H), ∀ r0, r1, r2, y, P, H. ((lls(r0, r1, x0) * lls(r1, r2, y) * P))(H) → ((lls(r0, r2, x0 + y) * P))(H) ⊦ ((lls(r0, r2, (a + x0) + y) * P))(H) |
(((r0 => a × r * lls(r, r1, x0)) * lls(r1, r2, y) * P))(H), ∀ r0, r1, r2, y, P, H. ((lls(r0, r1, x0) * lls(r1, r2, y) * P))(H) → ((lls(r0, r2, x0 + y) * P))(H) ⊦ ∃ r. (((r0 => a × r * lls(r, r2, x0 + y)) * P))(H)
Used simplifier rules: lls-rec: ⊦ lls(r, r1, a ' + x) = _∃(λ r0. r => a × r0 * lls(r0, r1, 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% ⊦ a + x = a ' + x; (s)