Section FIND_LABEL.
Variable lbl: label.
Variable tyret: type.
End FIND_LABEL.
(** Properties of call continuations *)

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'.