(** Translation of simple expressions. *)

(* Specifications: *)
Lemma tr_simple_nil:
(forall le dst r sl a tmps, tr_expr le dst r sl a tmps ->
dst = For_val \/ dst = For_effects -> simple r = true -> sl = nil)
/\(forall le rl sl al tmps, tr_exprlist le rl sl al tmps ->
simplelist rl = true -> sl = nil).
Lemma tr_simple_expr_nil:
forall le dst r sl a tmps, tr_expr le dst r sl a tmps ->
dst = For_val \/ dst = For_effects -> simple r = true -> sl = nil.