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 lred_invert: forall l m l' m', lred ge e l m l' m' -> invert_expr_prop l m.