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_pair_satisf_makelong: forall env src1 src2 dst rs ls e e', subst_loc_pair (R dst) (R src1) (R src2) e = Some e' -> long_type_compat env (R dst) e = true -> wt_regset env rs -> satisf rs ls e' -> Archi.ptr64 = false -> satisf rs (Locmap.set (R dst) (Val.longofwords (ls (R src1)) (ls (R src2))) ls) e.