(** Loading constants *)

Definition genv_match (ge: genv) : Prop :=
  (forall id b, Genv.find_symbol ge id = Some b <-> bc b = BCglob id)
/\(forall b, Plt b (Genv.genv_next ge) -> bc b <> BCinvalid /\ bc b <> BCstack).

Lemma vmatch_ptr_stk: forall v ofs sp, vmatch v (Ptr(Stk ofs)) -> bc sp = BCstack -> Val.lessdef v (Vptr sp ofs).