(** * Correctness of Cminor construction functions *)

(* Specifications: *)
Lemma make_stackaddr_correct:
forall sp te tm ofs,
eval_expr tge (Vptr sp Int.zero) te tm
(make_stackaddr ofs) (Vptr sp (Int.repr ofs)).
Lemma make_globaladdr_correct:
forall sp te tm id b,
Genv.find_symbol tge id = Some b ->
eval_expr tge (Vptr sp Int.zero) te tm
(make_globaladdr id) (Vptr b Int.zero).
Lemma make_stackaddr_correct:
forall sp te tm ofs,
eval_expr tge (Vptr sp Int.zero) te tm
(make_stackaddr ofs) (Vptr sp (Int.repr ofs)).
Lemma make_globaladdr_correct:
forall sp te tm id b,
Genv.find_symbol tge id = Some b ->
eval_expr tge (Vptr sp Int.zero) te tm
(make_globaladdr id) (Vptr b Int.zero).