Section ErasureSafety.
Context (initU: HybridMachineSig.schedule).
Context (init_rmap : @res JR).
Context (init_pmap : @res DR).
Context (init_rmap_perm:  match_rmap_perm init_rmap init_pmap).
(*Definition local_erasure:= erasure initU init_rmap init_pmap init_rmap_perm.*)
Definition step_diagram:= ErasureProof.core_diagram.
Existing Instance DMS.

Lemma erasure_safety': forall n ge sch js jtr ds dtr m,
ErasureProof.match_st ge js ds ->
DryHybridMachine.invariant ds ->
jm_csafe (sch, jtr, js) m n ->
HybridMachineSig.HybridCoarseMachine.csafe (sch, dtr, ds) m n.