Definition match_prog (prog tprog: program) :=
  match_program (fun cu f tf => tf = transf_fundef (romem_for cu) f) eq prog tprog.

Lemma const_for_result_correct: forall a op bc v sp m, const_for_result a = Some op -> vmatch bc v a -> bc sp = BCstack -> genv_match bc ge -> exists v', eval_operation tge (Vptr sp Ptrofs.zero) op nil m = Some v' /\ Val.lessdef v v'.