Hint Resolve set_list_incr: ty.

(* Specifications: *)
Lemma set_list_sound:
forall te xl tyl e e', set_list e xl tyl = OK e' -> satisf te e' -> map te xl = tyl.
Lemma move_incr:
forall te e r1 r2 e' changed,
move e r1 r2 = OK(changed, e') -> satisf te e' -> satisf te e.