Remark val_lessdef_normalize:
  forall v v' ty,
  Val.has_type v ty -> Val.lessdef v v' ->
  Val.lessdef v (Val.load_result (chunk_of_type ty) v').

Lemma exec_moves: forall mv env rs s f sp bb m e e' ls, track_moves env mv e = Some e' -> wf_moves mv -> satisf rs ls e' -> wt_regset env rs -> exists ls', star step tge (Block s f sp (expand_moves mv bb) ls m) E0 (Block s f sp bb ls' m) /\ satisf rs ls' e.