(** Typing properties of [match_stacks]. *)

(* Specifications: *)
Lemma match_stacks_type_sp:
forall j cs cs' sg,
match_stacks j cs cs' sg ->
Val.has_type (parent_sp cs') Tptr.
Lemma match_stacks_type_retaddr:
forall j cs cs' sg,
match_stacks j cs cs' sg ->
Val.has_type (parent_ra cs') Tptr.