(*map typeof bl = map (@snd _ _) (fst fsig) ->*)
(*    Forall (fun it => complete_type (composite_types Delta) (snd it) = true) (fn_vars (snd fsig)) ->*)
(*filter_genv psi = ge_of rho ->*)

Lemma call_cont_current_function:
forall {k i f e t l}, call_cont k = Kcall i f e t :: l -> current_function k = Some f.