(** Loading constants *)

(* Specifications: *)
Lemma symbol_address_sound:
forall ge id ofs,
genv_match ge ->
vmatch (Genv.symbol_address ge id ofs) (Ptr (Gl id ofs)).
Lemma vmatch_ptr_gl:
forall ge v id ofs,
genv_match ge ->
vmatch v (Ptr (Gl id ofs)) ->
Val.lessdef v (Genv.symbol_address ge id ofs).
Lemma vmatch_ptr_stk:
forall v ofs sp,
vmatch v (Ptr(Stk ofs)) ->
bc sp = BCstack ->
Val.lessdef v (Vptr sp ofs).