Module ErasureProof := erasure_proof.Parching.Module Erasure := ErasureFnctr ErasureProof.(*Definition local_erasure:= erasure initU init_rmap init_pmap init_rmap_perm.*)
  Definition step_diagram:= ErasureProof.core_diagram.

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.