Notation the_ge := (@the_ge the_program).

Lemma evstep_erase: forall c1 c1' c2 ev m1 m1' m2 (HeraseCores: core_erasure c1 c1') (HerasedMem: mem_erasure m1 m1') (Hstep: ev_step semSem c1 m1 ev c2 m2), exists c2' m2' ev', ev_step semSem c1' m1' ev' c2' m2' /\ core_erasure c2 c2' /\ mem_erasure m2 (erasePerm m2') /\ mem_event_list_erasure ev ev'.