(** Soundness of [constval] with respect to the big-step semantics *)

(* Specifications: *)
Lemma constval_rvalue:
forall m a v,
eval_simple_rvalue empty_env m a v ->
forall v',
constval ge a = OK v' ->
Val.inject inj v' v
with constval_lvalue:
forall m a b ofs,
eval_simple_lvalue empty_env m a b ofs ->
forall v',
constval ge a = OK v' ->
Val.inject inj v' (Vptr b ofs).
Lemma constval_simple:
forall a v, constval ge a = OK v -> simple a.