(** *Event semantics for Clight_new*)
   (* This should be a version of CLN_memsem annotated with memory events.*)
  
  Program Definition CLN_evsem ge : @EvSem C := {| msem := CLN_memsem ge; ev_step := cl_evstep ge |}.

(* Specifications: *)
Lemma CLN_msem : forall ge, msem (CLN_evsem ge) = CLN_memsem ge.
Lemma CLN_step_decay: forall g c m tr c' m', event_semantics.ev_step (CLN_evsem g) c m tr c' m' -> decay m m'.
Lemma at_external_SEM_eq: forall ge c m, semantics.at_external (CLN_evsem ge) c m = match c with | State _ _ _ => None | ExtCall ef args _ _ _ _ => Some (ef, args) end.