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 rred_invert: forall r m t r' m', rred ge r m t r' m' -> invert_expr_prop r m.