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

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