Definition vanalyze (cu: program) (f: function) :=
  ValueAnalysis.analyze (romem_for cu) f.

Lemma eagree_set_res: forall e1 e2 v1 v2 res ne, Val.lessdef v1 v2 -> eagree e1 e2 (kill_builtin_res res ne) -> eagree (regmap_setres res v1 e1) (regmap_setres res v2 e2) ne.