Definition clight_eff_sem
:  @EffectSem Clight.genv CL_core.
eapply Build_EffectSem with (sem := CL_coop_sem _ FE_FWD)
(effstep:=clight_effstep).
eapply clightstep_effax1.
apply clightstep_effax2.
apply clight_effstep_sub_val.
Defined.
End EFFSEM.

Lemma function_entry1_UNCH: forall f vargs m e le m',
function_entry1 f vargs m e le m'->
Mem.unchanged_on (fun b z => EmptyEffect b z = false) m m'.