Definition CL_coop_sem
(FE:function -> list val -> mem -> env -> temp_env -> mem -> Prop)
(HFE: forall f vargs m e le m', FE f vargs m e le m'-> mem_forward m m')
: CoopCoreSem genv CL_core.
apply Build_CoopCoreSem with (coopsem := CL_core_sem FE).
apply CL_forward. apply HFE.
Defined.

(* Specifications: *)
Lemma alloc_variables_forward: forall vars m e e2 m'
(M: alloc_variables e m vars e2 m'),
mem_forward m m'.
Lemma bind_parameter_forward: forall e m pars vargs m'
(M: bind_parameters e m pars vargs m'),
mem_forward m m'.