(*  Clight.eval_expr ge ve te m e2 v1 -> *)

(* Specifications: *)
Lemma deref_loc_load_result:
forall t ch m loc ofs v2,
access_mode t = By_value ch ->
deref_loc t m loc ofs v2 ->
Val.load_result ch v2 = v2.
Lemma rel_LR'_fun:
forall {CS: compspecs} rho phi e v, (rel_expr' rho phi e v -> forall v', rel_expr' rho phi e v' -> v=v') /\ (rel_lvalue' rho phi e v -> forall v', rel_lvalue' rho phi e v' -> v=v').