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.

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.