Definition ev_step_det:
        forall (m m' m'' : mem) (c c' c'' : semC) ev ev',
          ev_step semSem c m ev c' m' ->
          ev_step semSem c m ev' c'' m'' -> c' = c'' /\ m' = m'' /\ ev = ev'.

Lemma decay_coherence : forall (m m' : mem) (pmap : access_map) (Hdecay: decay m m') (Hlt: permMapLt pmap (getMaxPerm m)) (Hcoh: permMapCoherence (getCurPerm m) pmap), permMapCoherence (getCurPerm m') pmap.