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.

Theorem erasure_safety: forall ge cd j js ds m n,
Erasure.match_state ge cd j js m ds m ->
jm_csafe js m n ->
HybridMachineSig.HybridCoarseMachine.csafe ds m n.