Fixpoint exprlist_all_values (rl: exprlist) : Prop :=
  match rl with
  | Enil => True
  | Econs (Eval v ty) rl' => exprlist_all_values rl'
  | Econs _ _ => False
  end.

Lemma callred_invert: forall r fd args ty m, callred ge r m fd args ty -> invert_expr_prop r m.