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 subst_loc_part_satisf_highlong:
forall src dst rs ls e e',
subst_loc_part (R dst) (R src) High e = Some e' ->
satisf rs ls e' ->
satisf rs (Locmap.set (R dst) (Val.hiword (ls (R src))) ls) e.