| hd0 ≠ null ⊦ h(hd0) = mknode(cur, a, null) → ( (dll-trav(prv, hd, lst, cur, hd0, lst0, null, x) * hP)(h) ↔ x ≠ [] ∧ (cur = null ⊃ hd = hd0 ∧ lst = lst0 ∧ (dlls(hd, lst, prv, null, x) * hP)(h) ; hd0 = lst0 ∧ (∃ y, b. x = (y + b) + a ∧ (dlls(hd, lst, prv, cur, y) * cur => mknode(lst, b, hd0) * hd0 => mknode(cur, a, null) * hP)(h)) )) |