(*Definition clight_corestep1 (ge: genv) := clight_corestep function_entry1 ge.*)
Definition CL_core_sem1 := CL_core_sem function_entry1.
Definition CL_coop_sem1 : CoopCoreSem genv CL_core.
eapply (CL_coop_sem function_entry1).
apply function_entry1_forward.
Defined.
Inductive function_entry2 (f: function) (vargs: list val) (m: mem) (e: env) (le: temp_env) (m': mem) : Prop :=
| function_entry2_intro:
list_norepet (var_names f.(fn_vars)) ->
list_norepet (var_names f.(fn_params)) ->
list_disjoint (var_names f.(fn_params)) (var_names f.(fn_temps)) ->
alloc_variables empty_env m f.(fn_vars) e m' ->
bind_parameter_temps f.(fn_params) vargs (create_undef_temps f.(fn_temps)) = Some le ->
function_entry2 f vargs m e le m'.

Lemma function_entry2_forward: forall f vargs m e le m',
function_entry2 f vargs m e le m'-> mem_forward m m'.