Hint Resolve contextlist'_head contextlist'_tail.

(* Specifications: *)
Lemma eval_simple_list_steps:
forall rl vl, eval_simple_list' rl vl ->
forall C, contextlist' C ->
star Csem.step ge (ExprState f (C rl) k e m)
E0 (ExprState f (C (rval_list vl rl)) k e m).
Lemma simple_list_can_eval:
forall rl C,
simplelist rl = true ->
contextlist' C ->
safe (ExprState f (C rl) k e m) ->
exists vl, eval_simple_list' rl vl.
Lemma rval_list_all_values:
forall vl rl, exprlist_all_values (rval_list vl rl).