(*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_idem: forall k, call_cont (call_cont k) = call_cont k.
Definition cast_expropt (e: option expr) t : environ -> option val :=
match e with Some e' => `Some (eval_expr (Ecast e' t))  | None => `None end.