| ((ls(r, x) * del-list(rx0, n0)))(H0), H0 ⊥ H1, ∀ n, H0, H1, m, P. del-list(rx0, n)(H0) ∧ H0 ⊥ H1 → (((del-list(rx0, m) * P))(H0 ∪ H1) ↔ n = m ∧ P(H1)) ⊦ ((_∃(λ x. ls(r, x) * del-list(rx0, m - # x) ∧ ⌜r ≠ null ∧ m ≥ # x⌝ ) * P))(H0 ∪ H1) ↔ n0 + # x = m ∧ P(H1), r = null |
((ls(r, x) * del-list(rx0, n0)))(H0), H0 ⊥ H1, ∀ n, H0, H1, m, P. del-list(rx0, n)(H0) ∧ H0 ⊥ H1 → (((del-list(rx0, m) * P))(H0 ∪ H1) ↔ n = m ∧ P(H1)) ⊦ (∃ x0. # x0 ≤ m ∧ (((ls(r, x0) * del-list(rx0, m - # x0)) * P))(H0 ∪ H1)) ↔ n0 + # x = m ∧ P(H1), r = null
Used simplifier rules: ex-p: ⊦ ((_∃ xP * P))(H) ↔ (∃ x. ((xP(x) * P))(H));% ⊦ ⌜bv⌝ (H) ↔ bv; (s)% ⊦ ((P0 ∧ P1))(H) ↔ P0(H) ∧ P1(H); (s)%sep-com: ⊦ P0 * P1 = P1 * P0; from specification heap-sep%sep-ass: ⊦ (P0 * P1) * P2 = P0 * P1 * P2; from specification heap-sep%and-com: ⊦ (P0 ∧ P1) = (P1 ∧ P0); from specification heap-sep%and-ass: ⊦ ((P0 ∧ P1) ∧ P2) = (P0 ∧ P1 ∧ P2); from specification heap-sep% ⊦ (⌜bv⌝ ∧ P0) * P1 = (⌜bv⌝ ∧ P0 * P1); (s)% ⊦ n ≥ m ↔ m ≤ n; (s)