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 add_equations_res_lessdef:
forall r oty l e e' rs ls,
add_equations_res r oty l e = Some e' ->
satisf rs ls e' ->
Val.has_type rs#r (match oty with Some ty => ty | None => Tint end) ->
Val.lessdef rs#r (Locmap.getpair (map_rpair R l) ls).