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 long_type_compat_charact:
forall env l e q,
long_type_compat env l e = true ->
EqSet.In q e ->
subtype (env (ereg q)) Tlong = true \/ Loc.diff l (eloc q).