End FIND_LABEL.
(** Properties of call continuations *)

(* Specifications: *)
Lemma match_cont_call_cont:
forall j tyret' nbrk' ncnt' tyret nbrk ncnt k tk,
match_cont j tyret nbrk ncnt k tk ->
match_cont j tyret' nbrk' ncnt' (Clight.call_cont k) (call_cont tk).
Lemma match_cont_is_call_cont:
forall j tyret nbrk ncnt k tk tyret' nbrk' ncnt',
match_cont j tyret nbrk ncnt k tk ->
Clight.is_call_cont k ->
match_cont j tyret' nbrk' ncnt' k tk /\ is_call_cont tk.
Lemma varinfo_preserved:
forall b, (exists gv : globvar type, Genv.find_var_info ge b = Some gv) <->
(exists gv : globvar unit, Genv.find_var_info tge b = Some gv).
Lemma assign_loc_inject: forall ty m1 b1 ofs v m1' R
(ASS: assign_loc ty m1 b1 ofs v m1')
j v2 (V:val_inject (restrict j R) v v2) b2 delta
(J: restrict j R b1 = Some(b2,delta))
m2 (MInj: Mem.inject j m1 m2),
exists m2',
assign_loc ty m2 b2 (Int.add ofs (Int.repr delta)) v2 m2' /\
Mem.inject j m1' m2'.
Lemma assign_loc_unique: forall t m b z v m1 m2
(AL1: assign_loc t m b z v m1)
(AL2: assign_loc t m b z v m2), m1=m2.