
{lstElem == hd /\ ! lstElem <> 0 /\ tmp <> elt | lst + 0 |-> hd ** lst + 1 |-> cur ** lst + 2 |-> lastcell **  list lstElem 0}
found <- lstElem
{(found <> 0 | lst + 0 |-> hd ** lst + 1 |-> cur ** lst + 2 |-> lastcell **  list hd found ** found + 0 |-> nxt ** found + 1 |-> elt **  list nxt 0) \/ (found == 0 | lst + 0 |-> hd ** lst + 1 |-> cur ** lst + 2 |-> lastcell **  list hd 0)}

