(** * Soundness of the compile-time evaluator *)
(** A global environment [ge] induces a memory injection mapping our symbolic pointers [Vptr id ofs] to run-time pointers [Vptr b ofs] where [Genv.find_symbol ge id = Some b]. *)
Definition inj (b: block) :=
match Genv.find_symbol ge b with
| Some b' => Some (b', 0)
| None => None
end.

Lemma bool_val_match:
forall v ty b v' m,
bool_val v ty Mem.empty = Some b ->
Val.inject inj v v' ->
bool_val v' ty m = Some b.