Lemma eval_expr_eval_lvalue_mem_lessalloc ge ve te m:
(forall (e : expr) (v : val),
eval_expr ge ve te m e v ->
forall m2 : mem, mem_lessalloc m m2 -> eval_expr ge ve te m2 e v) /\
(forall (e : expr) (b : block) (i : ptrofs),
eval_lvalue ge ve te m e b i ->
forall m2 : mem, mem_lessalloc m m2 -> eval_lvalue ge ve te m2 e b i).