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 parallel_set_builtin_res_satisf: forall env res res' e0 e1 rs ls v v', remove_equations_builtin_res env res res' e0 = Some e1 -> forallb (fun r => reg_unconstrained r e1) (params_of_builtin_res res) = true -> forallb (fun mr => loc_unconstrained (R mr) e1) (params_of_builtin_res res') = true -> satisf rs ls e1 -> Val.lessdef v v' -> satisf (regmap_setres res v rs) (Locmap.setres res' v' ls) e0.