Definition call_setup2
(cs: compspecs) Qtemp Qvar GV a Delta P Q R R'
fs argsig retty cc (A: rmaps.TypeTree)  Pre Post NEPre NEPost
(bl: list expr) (vl : list val)
(Qactuals : PTree.t _)
(witness: functors.MixVariantFunctor._functor (rmaps.dependent_type_functor_rec nil A) mpred)
(Frame: list mpred)
(Ppre: list Prop) (Qpre : list localdef) (Rpre: list mpred)
(Qpre_temp : PTree.t _) GV':=
call_setup1 cs Qtemp Qvar GV a Delta P Q R R' fs argsig retty cc A Pre Post NEPre NEPost bl vl Qactuals /\
Pre nil witness = PROPx Ppre (LOCALx Qpre (SEPx Rpre)) /\
local2ptree Qpre = (Qpre_temp, PTree.empty _, nil, GV') /\
ENTAIL Delta, PROPx P (LOCALx Q (SEPx R))
|-- !! Forall (check_one_temp_spec Qactuals) (PTree.elements Qpre_temp) /\
check_gvars_spec GV GV' /\
fold_right_sepcon R |-- fold_right_sepcon Rpre * fold_right_sepcon Frame.

Lemma semax_call_aux55:
forall (cs: compspecs) (Qtemp: PTree.t val) (Qvar: PTree.t (type * val)) GV (a: expr)
Delta P Q R fs argsig retty (*cc*)
(A : rmaps.TypeTree)
(Pre
Post : forall ts : list Type,
functors.MixVariantFunctor._functor
(rmaps.dependent_type_functor_rec
ts (AssertTT A)) mpred) (* NEPre NEPost *)
witness Frame bl Ppre Qpre Rpre Qactuals Qpre_temp GV' vl
(PTREE : local2ptree Q = (Qtemp, Qvar, nil, GV))
(TC0 : ENTAIL Delta, PROPx P (LOCALx Q (SEPx R)) |-- tc_expr Delta a)
(TC1 : ENTAIL Delta, PROPx P (LOCALx Q (SEPx R))
|-- tc_exprlist Delta (argtypes argsig) bl)
(MSUBST : force_list (map (msubst_eval_expr Delta Qtemp Qvar GV)
(explicit_cast_exprlist (argtypes argsig) bl)) = Some vl)
(PTREE'' : pTree_from_elements (combine (var_names argsig) vl) = Qactuals)
(PRE1 : Pre nil witness = PROPx Ppre (LOCALx Qpre (SEPx Rpre)))
(PTREE' : local2ptree Qpre = (Qpre_temp, PTree.empty _, nil, GV'))
(CHECKTEMP : Forall (check_one_temp_spec Qactuals) (PTree.elements Qpre_temp))
(CHECKG: check_gvars_spec GV GV')
(FRAME : fold_right_sepcon R
|-- fold_right_sepcon Rpre * fold_right_sepcon Frame)
(PPRE : fold_right_and True Ppre)
(LEN : length (argtypes argsig) = length bl),
ENTAIL Delta,
(EX v : val,
lift0 (func_ptr fs (* (mk_funspec (argsig, retty) cc A Pre Post NEPre NEPost) *) v) &&
local (` (eq v) (eval_expr a))) && |>PROPx P (LOCALx Q (SEPx R))
|-- |> (tc_expr Delta a && tc_exprlist Delta (argtypes argsig) bl) &&
(|> @liftx (Tarrow environ (LiftEnviron mpred)) (Pre nil witness)
(make_args' (argsig, retty) (eval_exprlist (argtypes argsig) bl)) *
` (func_ptr' fs (* (mk_funspec (argsig, retty) cc A Pre Post NEPre NEPost) *) )
(eval_expr a) * |>PROPx P (LOCALx Q (SEPx Frame))).